programs/tools/src/cleanup.asm

   1 *             CLEANUP
   2 *
   3 *   CLEANS UP CORE LOCATIONS '00020-'30777.
   4 *
   5         ORG     '31000
   6 STRT    LDA     ='20    START ADDRESS
   7         STA     PTR
   8 LOOP    CRA
   9         STA*    PTR
  10         IRS     PTR
  11         JMP     GO1     NO OVERFLOW
  12         HLT             OVERFLOW OCCURED
  13 GO1     LDA     PTR
  14         SUB     ='31000
  15         SZE             SKIP IF READY
  16         JMP     LOOP    RESTART
  17 RDY     OCP     '104    ASR START
  18         JST     CRLF
  19         JST     OK
  20         HLT
  21         JMP     STRT    RESTART :-)
  22 *******
  23 OK      DAC     **
  24         LDA     ='117   CHARACTER O
  25         JST     PRNT
  26         LDA     ='113   NOW K
  27         JST     PRNT
  28         JMP*    OK
  29 *******
  30 CRLF    DAC     **
  31         LDA     =13     LOAD CR
  32         JST     PRNT
  33         LDA     =10     LOAD LF
  34         JST     PRNT
  35         JMP*    CRLF
  36 ******
  37 PRNT    DAC     **
  38         SKS     4       WAIT FOR ASR33
  39         JMP     *-1     TO BECOME READY
  40         OTA     4       OUTPUT CHAR
  41         NOP             SECURITY
  42         JMP*    PRNT    BACK
  43 *****
  44 PTR     DEC     0       THE POSITION
  45 *****
  46         END