23 4343 JMS TTYGCH 06524 7006 RTL 06525 7006 RTL 06526 3343 DCA TTYGCH 06527 1343 TAD TTYGCH ------ *7000 PAL8-V7 PAGE 9-2 06530 0240 AND TT7400 06531 1714 TAD I TTYCA 06532 3714 DCA I TTYCA 06533 1343 TAD TTYGCH 06534 0200 TTY200, AND TTY360 06535 7106 CLL RTL 06536 7006 RTL 06537 1265 TAD TTYPCH 06540 2314 ISZ TTYCA 06541 3714 DCA I TTYCA 06542 5252 JMP TTLOOP 06543 0000 TTYGCH, 0 06544 1275 TAD TTYCDF 06545 7700 TT7700, SMA CLA 06546 5743 JMP I TTYGCH 06547 2274 ISZ TTYTST 06550 5353 JMP TTYKSF 06551 1367 TAD TTY212 06552 5364 JMP TTECHO 06553 6031 TTYKSF, KSF 06554 5353 JMP .-1 06555 4274 JMS TTYTST 06556 1372 TAD TTM27 06557 7450 SNA 06560 3275 DCA TTYCDF 06561 1370 TAD TTY14 06562 3274 DCA TTYTST 06563 6036 KRB 06564 4307 TTECHO, JMS TTPRNT 06565 5743 JMP I TTYGCH 06566 0232 TTY232, 232 06567 0212 TTY212, 212 06570 0014 TTY14, 14 06571 7575 TTM203, -203 06572 7751 TTM27, -27 06573 7764 TTYM14, -14 06574 7546 TTM232, -232 06575 6032 TTYCTO, 6032 06576 5256 JMP TTYRTN 06577 3700 TT3700, 3700 ------ *7000 PAL8-V7 PAGE 10 IFNZRO LINCTAPE+TD8E+TD8ESYS > IFZERO LINCTAPE+TD8E < 5000 *5000 05000 0000 DFUN, 0 05001 7575 DM203, -203 05002 0000 DBLOCK, 0 05003 0000 DBLKCT, 0 05004 0003 D3, 3 05005 7754 WC, 7754 05006 7755 CA, 7755 05007 0000 DERRCT, 0 05010 2235 DTA0, ISZ DTANO 05011 2235 DTA1, ISZ DTANO 05012 2235 DTA2, ISZ DTANO 05013 2235 DTA3, ISZ DTANO 05014 2235 DTA4, ISZ DTANO 05015 2235 DTA5, ISZ DTANO 05016 2235 DTA6, ISZ DTANO 05017 2235 DTA7, ISZ DTANO 05020 0400 D400, 400 05021 7346 CLA CLL CMA RTL 05022 3207 DCA DERRCT 05023 1235 TAD DTANO 05024 7040 CMA 05025 1277 TAD DTATAD 05026 3235 DCA DTANO 05027 7332 CLA CLL CML RTR 05030 1235 TAD DTANO 05031 3240 DCA DTADCA 05032 6214 RDF 05033 1256 TAD DCDIF0 05034 3371 DCA DSTOP 05035 0000 DTANO, 0 05036 3377 DCA DTA 05037 1241 TAD DTAISZ 05040 0000 DTADCA, 0 5040 DLOC=DTADCA 05041 2235 DTAISZ, ISZ DTANO 05042 1777 TAD I DTA 05043 3200 DCA DFUN 05044 2377 ISZ DTA 05045 7140 DT7140, CLL CMA 05046 1777 TAD I DTA 05047 3240 DCA DLOC 05050 2377 ISZ DTA 05051 1777 TAD I DTA 05052 7104 CLL RAL 05053 3202 DCA DBLOCK 05054 2377 ISZ DTA 05055 1205 DTATRY, TAD WC 05056 6203 DCDIF0, CDF CIF 0 05057 3606 DCA I CA 05060 1200 TAD DFUN ------ *7000 PAL8-V7 PAGE 10-1 05061 7010 RAR 05062 7220 CLA CML 05063 1235 TAD DTANO 05064 7012 RTR 05065 7012 RTR 05066 1245 TAD DT7140 05067 6766 DTCA DTXA 05070 6774 DTLB 05071 5301 JMP DC+3 05072 7006 DERR, RTL 05073 7004 RAL 05074 7600 D7600, 7600 05075 1340 TAD D200 05076 7430 DC, SZL 05077 1220 DTATAD, TAD D400 05100 6764 DTXA 05101 1340 TAD D200 05102 6034 KRS 05103 1201 TAD DM203 05104 7650 SNA CLA 05105 6031 KSF 05106 5312 JMP DTAWT 05107 1274 TAD D7600 05110 3377 DCA DTA 05111 5372 JMP DSTOP+1 05112 6773 DTAWT, DTSF DTRB 05113 5312 JMP .-1 05114 7510 SPA 05115 5272 JMP DERR 05116 6761 DTRA 05117 7006 RTL 05120 7046 CMA RTL 05121 7620 SNL CLA 05122 1204 TAD D3 05123 1605 TAD I WC 05124 7040 CMA 05125 1202 TAD DBLOCK 05126 7040 CMA 05127 7640 SZA CLA 05130 5276 JMP DC 05131 7420 SNL 05132 5277 JMP DC+1 05133 1240 TAD DLOC 05134 3606 DCA I CA ------ *7000 PAL8-V7 PAGE 10-2 05135 1200 TAD DFUN 05136 6774 DTLB 05137 1355 TAD D7700 05140 0200 D200, AND DFUN 05141 7104 CLL RAL 05142 3203 DCA DBLKCT 05143 7004 RAL 05144 7001 IAC 05145 7126 CLL CML RTL 05146 7006 RTL 05147 6764 DL, DTXA 05150 1274 TAD D7600 05151 3605 DCA I WC 05152 6773 DTSF DTRB 05153 5352 JMP .-1 05154 7120 CLL CML 05155 7700 D7700, SMA CLA 05156 5362 JMP .+4 05157 2207 ISZ DERRCT 05160 5255 JMP DTATRY 05161 5371 JMP DSTOP 05162 1203 TAD DBLKCT 05163 1274 TAD D7600 05164 7450 SNA 05165 5370 JMP DOVER 05166 3203 DCA DBLKCT 05167 5347 JMP DL 05170 2377 DOVER, ISZ DTA 05171 7402 DSTOP, HLT 05172 1340 TAD D200 05173 6764 DTXA 05174 3235 DCA DTANO 05175 7010 RAR 05176 5777 JMP I DTA 05177 0000 DTA, 0 > IFNZRO LINCTAPE+TD8E+TD8ESYS > ------ *7000 PAL8-V7 PAGE 11 IFZERO TD8E+LIST ------ *7000 PAL8-V7 PAGE 17 IFZERO LINCTAPE+LIST ------ *7000 PAL8-V7 PAGE 18 6400 *6400 IFNZRO NOHSPT > IF