Text preview for : 1401_autocoderListing.pdf part of IBM 1401 autocoderListing IBM 140x 1401_autocoderListing.pdf



Back to : 1401_autocoderListing.pdf | Home

CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1
CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027BOOI0270BO 261,001/00111310 2
BOOTSTRAP ,008015,022029,036040,047054,061068,012/061039 ,0010011040 3


1401 AUTOCODER-PASS i-GENERATE SYSTEM TAPE-VERSION 3 371Il PAGE 1

SEQ PG LIN LABEL OP OPERANDS SFX CT loeN INSTRUCTION TYPE CARD

101 1 0.1 000 JOB 1401 AUTOCODER-PASS I-GENERATE SYSTEM TAPE-VERSION 3
102 1 02 CTl 630 1
- 103
- 1 03 SYSTP EQU (U1 CUI
104 1 04 CARD EQU 0 0000
105 1 05 PRINT EQU 200 0200
106 1 06 ORG 87 0087
107 1 07 XRl DCW 000 3 0089 4
108 1 08 DC 00 2 0091 4
109 1 09 XR2 Dew 000 3 0094 4
110 1 10 DC 00 2 0096 4
111 1 11 XR3 Dew 000 3 0099 4
112 1 12 DC 000000 6 0105 4
113 1 13 ZONE DCW 2SKB 4 0109 4
114 1 14 ABIT EQU lONE-2 0101
115 1 15 NOBIT EQU lONE-3 0106
116 1 16 XXXX EQU 0 0000
111 1 11 ...
118 1 18 ... START OF MAIN LINE
119 1 19 it

120 1 20 ORG 333 0333
121 1 21 START RWO SYSTP 5 0333 U CUI R 5
122 1 22 CC 1 2 0338 F 1 5
123 1 23 MCW 'GENERATING 1401 AUTOCODER SYSTEM',PRINT+32 7 0340 M *83 232 5
124 1 24 W 1 0347 2 5
125 1 25 CC 1 2 0348 F 1 5
126 1 26 CS PRINT+132 4 0350 I 332 5
12; , . if'" 1 1\-.,'::,. I ~
1 21 \,.') .&. U;JJ-r I -'
128 1 28 MCW CARO+75,SEQNO=4 7 0355 M 015 *81 6
129 1 29 ...
130 1 30 it START OF NEXT BLOCK
131 1 31 it

132 1 32 NXTBK R 1 0362 1 6
133 1 33 C CARD+12,'CONTROl' 1 0363 C 012 *94 6
134 1 34 BU MACRO 5 0370 B 792 1 6
135 1 35 Bwl CKSEQ,CARD+80,2 8 0375 V 726 080 2 6
136 1 36 BCE EOJOB,CARD+78,9 8 0383 B 811 018 9 6
137 1 31 sw CARD+21 4 0391 , 021 1
138 1 38 LA CARO+25,HCLD5=5 7 0395 ... 025 *99 7
139 1 39 cw eARO+21 4 0402 ) 021 1
140 1 40 it

141 1 41 ... FLOAT ADDRESS TO FIVE CHARACTERS
142 1 42 ...
143 1 43 FLOAT BeE "'+5,HOL05,+ 8 0406 B 418 *99 ... 7
144 1 44 B CaMPI 4 0414 8 429 7
145 1 45 lA HOLD5-1,HOL05 7 0418 + *98 *99 1
146 1 46 B FLOAT 4 0425 8 406 7
147 1 41 it
1401 AUToCODER-PASS I-GENERATE SYSTEM TAPE-VERSION 3 3111l PAGE 2


SEQ PG LIN LABEL OP OPERANDS SFX CT loeN INSTRUCTION TYPE CARD

148 1 48