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