programs/tools/src/cleanup2.asm

   1 * CLEANUP - REVISED 2006-04-23
   2 *
   3 *   CLEAR CORE MEMORY
   4 *
   5 *   THIS LITTLE ROUTINE CAN BE LOADED ANYWHERE IN CORE.
   6 *
   7         SUBR    ZSTART,ANFA
   8         SUBR    ZEND,ENDE
   9         SUBR    LOOP
  10         SUBR    ANFA
  11 *
  12         REL             ASSEMBLE IN RELOCATABLE MODE
  13         ORG     0
  14 STRT    JMP     ST2     JUMP OVER CONSTANTS
  15 ANFA    OCT     20
  16 ENDE    DAC     STRT-1
  17 ST2     LDA     ANFA    LOAD START ADDRESS
  18         STA     PTR
  19 LOOP    CRA
  20         STA*    PTR     STORE THE ZERO
  21         LDA     PTR
  22         SUB     ENDE    TEST FOR
  23         SNZ             LAST LOCATION?
  24         JMP     RDY     IF LAST LOCATION, END
  25         IRS     PTR
  26         JMP     LOOP    NO OVERFLOW
  27         HLT             OVERFLOW OCCURED
  28 RDY     OCP     '104    ASR START
  29 *
  30         LDA     KO
  31         JST     PRNT
  32         LDA     LFCR
  33         JST     PRNT
  34         HLT
  35         JMP     STRT    RESTART :-)
  36 *******
  37 KO      BCI     1,KO
  38 LFCR    OCT     '6412
  39 *******
  40 PRNT    DAC     **
  41         OTA     4       OUTPUT CHAR
  42         JMP     *-1     REPEAT UNTIL POSSIBLE
  43         ICA             NEXT CHAR
  44         OTA     4
  45         JMP     *-1
  46         JMP*    PRNT    RETURN
  47 *****
  48 PTR     DEC     0       LOCATION POINTER
  49 *****
  50         END