CLEAR STORAGE AND BOOT PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB CLEAR STORAGE AND BOOT 102 * 103 * SET A BUNCH OF WORD MARKS, CLEAR 81-99, SET SENTINEL FOR CLEAR 104 * 105 ORG 1 0001 106 SW S2,S3 7 0001 , 008 015 107 S2 SW C1,C2 7 0008 , 022 026 108 S3 SW C3,S4 7 0015 , 030 040 109 C1 CS S3&4 4 0022 / 019 110 C2 SW 1 4 0026 , 001 111 C3 LCA S3&5,100 CLEAR XR'S, PUT 4 AT 100 7 0030 L 020 100 112 DS 3 JUNK IS OK 0039 113 S4 SW S5,S6 7 0040 , 047 054 114 S5 SW S7,READA 7 0047 , 061 068 115 S6 SW ENDA,ENDA 7 0054 , 072 072 116 S7 CW 81,81 LCA TO CLEAR XR LEFT THIS 7 0061 ) 081 081 117 READA R CS2 4 0068 1 022 118 ENDA EQU *&1 0072 119 * 120 * BOOTSTRAP, OR CLEAR IF WORD MARKS ARE SET UP AND READA LOADS IT 121 * 122 ORG 1 0001 123 SW CS1,W2 7 0001 , 008 047 124 CS1 CS W2,W2-1 CLEAR THIS INSTRUCTION'S WORD MARK 7 0008 / 047 046 125 DS 7 CS AND BRANCH DOESN'T NEED WORD MARK 0021 126 CS2 CS 0 4 0022 / 000 127 CS3 SBR CS2&3 4 0026 H 025 128 CS4 BCE CS2,100, DONE WHEN LOCATION 100 NOT EQUAL 4 8 0030 B 022 100 129 DC @ 4@ JUNK BEFORE D IS OK 2 0039 130 CS5 CS W4,W2-1 CLEAR CLEAR ROUTINE AND ITS WORD MARKS 7 0040 / 061 046 131 W2 SW W3,W4 7 0047 , 054 061 132 W3 SW READB,ENDB 7 0054 , 068 072 133 W4 SW 1,CS5 7 0061 , 001 040 134 READB R 40 4 0068 1 040 135 ENDB EQU *&1 0072 136 END 1 / 001 080 1 CLEAR STORAGE AND BOOT PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS C1 22 C2 26 C3 30 CS1 8 CS2 22 CS3 26 CS4 30 CS5 40 ENDA 72 ENDB 72 READA 68 READB 68 S2 8 S3 15 S4 40 S5 47 S6 54 S7 61 W2 47 W3 54 W4 61