CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 TAPE CLEAR STORAGE ROUTINE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TAPE CLEAR STORAGE ROUTINE 102 ORG 1 0001 103 SW 200 4 0001 , 200 104 LOOP CS 0 4 0005 / 000 105 SBR LOOP&3 4 0009 H 008 106 BW LOOP,200 8 0013 V 005 200 1 107 LCA UPPER,115 7 0021 L 052 115 108 CHAIN 2 MACRO 109 LCA 1 0028 L GEN 110 LCA 1 0029 L GEN 111 CS 100,99 7 0030 / 100 099 112 LCA %U1,1,R LANDS AT 100-107 8 0037 L %U1 001 R 113 CS 15,199 LANDS AT 108-114 7 0045 / 015 199 114 UPPER DCW @ @ LANDS AT 115 1 0052 115 END 1 / 001 080 1 TAPE CLEAR STORAGE ROUTINE PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS LOOP 5 UPPER 52