DECIMAL *128 0 0 0 25 32 34 43 20 -67 -67 -86 -51 -10 184 26 0 0 24 177 0 0 15 21 -78 0 0 15 16 158 0 164 20 -63 21 -89 0 169 21 -78 28 0 173 24 158 0 0 -10 158 0 128 24 26 0 0 128 0 0 32 20 -58 2 21 192 0 195 213 0 198 222 0 201 230 0 204 243 0 207 261 0 210 -10 0 0 276 0 0 -80 -91 325 -61 291 319 650 0 0 -70 -91 325 41 -61 319 0 0 -76 -73 -83 -84 -91 325 34 37 20 -61 46 0 0 -68 -69 -70 -73 -78 -69 -67 -79 -77 -80 -73 -76 -69 -82 -10 38 0 0 -67 -65 -76 -76 -91 325 -10 39 34 21 1 20 -10 0 0 20 -10 -78 -79 -84 -32 -77 -80 -58 22 144 20 -10 0 295 45 36 0 0 300 20 -10 0 0 20 16 -10 -83 -69 -84 -32 -84 -87 -73 -67 -69 -58 -91 4 20 35 0 0 42 31 657 31 0 328 357 0 331 360 0 0 627 325 0 0 -44 664 319 0 344 -91 352 0 348 -44 28 0 0 23 24 0 0 34 40 325 0 0 27 0 673 33 20 -87 -93 0 372 33 21 -82 -93 0 378 33 22 -67 -93 0 384 33 23 -77 -93 0 391 33 19 -46 -46 -93 0 397 33 24 -65 -93 0 403 33 14 -76 -93 0 409 33 3 -72 -93 0 416 33 4 -72 -61 -93 0 424 33 35 -45 -62 -72 -93 0 431 33 30 -78 -70 -93 0 437 33 33 -86 -93 0 443 33 29 -80 -93 0 449 33 31 -48 -93 0 456 33 34 -86 -61 -93 0 463 33 47 -92 -70 -93 0 469 33 45 -84 -93 0 477 33 5 -73 -78 -67 -93 0 485 33 6 -68 -69 -67 -93 0 492 33 7 -80 -82 -93 0 498 33 8 -45 -93 0 504 33 9 -43 -93 0 510 33 11 -61 -93 0 517 33 48 -82 -73 -93 0 526 33 32 -83 -82 -73 -79 -93 0 532 33 49 -68 -93 0 539 33 13 -83 -72 -93 0 547 33 16 -84 -84 -80 -93 0 555 33 15 -84 -84 -82 -93 0 563 33 17 -72 -83 -82 -93 0 571 33 18 -72 -83 -80 -93 0 578 33 2 -73 -78 -93 0 585 33 26 -83 -84 -93 0 591 33 27 -70 -93 0 598 33 28 -84 -70 -93 0 604 33 -10 -92 -93 0 610 33 -32 -95 -93 0 616 33 -44 -44 -93 0 622 33 -91 -91 -93 0 0 33 128 -93 0 0 44 30 357 47 29 33 29 36 639 31 0 0 23 643 0 646 -93 0 0 24 643 0 128 335 26 0 0 128 0 128 340 26 0 0 128 0 128 -10 2 0 0 128 0 0 160 OCTAL DECIMAL 680 33 53 -82 -95 -93 0 687 33 56 -69 -66 -93 0 694 33 57 -82 -66 -93 0 366 33 10 -82 -79 -93 0 OCTAL SE,CLA / INITIAL ENTRY *200 JMP I IE IE,L25 *6600 L13,JMS I STACK X14 JMP I M151 M151,L151 L25,/ INIT TAD NIL DCA PIA DCA I PIA DCA I PIA PLS KRB TLS CLA JMP I M151 NIL,177 L36,JMS I TEXT 215 212 316 317 / CR,LF,NOT SET:[ 324 240 323 305 324 272 7445 JMP I M20 M20,L20 L37,JMS I TEXT 7445 / [ YP1,ISZ Y3 JMP I M151 L38,/ DEF JMP I M151 L40,CLA CMA TAD Y3 DCA I X1 L229,ISZ X1 DCA I X1 JMP YP1 L41,/ FIND ADDR TAD NIL CIA TAD I X9 SPA CLA JMP I M151 TAD I X9 DCA X9 JMP L41 L42,/ FILL ADDR TAD X1 DCA I X9 TAD X1 DCA X9 JMP I M151 L43,ISZ Y3 TAD Y3 DCA X14 TAD Y3 DCA X9 JMP I M151 L44,TAD LL195 DCA I STP TAD A18 DCA I STP L195,TAD Y0 DCA X0 TAD X1 DCA X4 TAD X13 DCA Y1 TAD X13 DCA X1 TAD X4 DCA X13 JMP I M151 LL195,L195 A18,X18 L46,TAD I X14 DCA Y3 TAD Y3 SPA SNA CLA JMP I M0 TAD RB CIA TAD Y3 SPA CLA JMP I M0 L198,TAD LL196 DCA I STP TAD A18 DCA I STP TAD I Y3 DCA Y2 JMS I STACK Y2 JMP I M151 LL196,L196 M0,L0 L196,TAD Y2 SPA SNA CLA JMP L197 JMS I TEXT 254 215 7566 TAD Y2 DCA Y3 JMP L198 L197,JMS I TEXT 215 7566 JMP I M168 M168,L168 L10,TAD Y1 DCA X1 JMP I J151 *7000 L49,JMS I F0 DCA X3 TAD X3 TAD ZZ SMA SZA CLA JMP I J998 TAD X3 TAD N SPA CLA JMP I J998 JMP I X2 ZZ,60 N,71 L39,JMS I STACK X8 JMS I LRO L180,TAD X1 CIA TAD X8 SMA CLA JMP I J151 TAD I X8 DCA X4 TAD X4 SPA SNA CLA JMP L175 / ONLY LITERALS AND PHRASES / AND NEXT ALTS PRESENT TAD X8 CIA TAD X4 SPA CLA JMP E TAD X1 CIA TAD X4 SPA SNA CLA JMP L175 E,TAD X8 DCA E+3 JMS I STACK 0 IAC CLL RAL TAD X4 DCA WK TAD I WK DCA I X8 TAD B36 TAD I X8 SZA CLA JMP L175 TAD X4 DCA I X8 L175,ISZ X8 JMP L180 B36,7734 / -NOT SET=36 LF0,0 F3,TAD X5 CIA TAD X0 SPA CLA JMP F4 F1,TAD X5 DCA X0 JMS I INCH CIA DCA I X0 TAD I X0 TAD IG SNA CLA JMP F1 ISZ X5 F4,TAD I X0 TAD X17 SNA CLA JMP F5 TAD I X0 JMP I LF0 F5,ISZ X0 JMP F3 IG,15 L57,TAD Y1 CIA TAD X1 DCA X4 / DISPLACEMENT CMA TAD X5 DCA WK / FROM HERE TAD X4 TAD X5 DCA X5 / NEW X5 CMA TAD X5 DCA X4 / TO HERE LOOP,TAD I WK DCA I X4 TAD WK CIA TAD X0 SZA CLA JMP LE TAD X1 DCA WK TAD Y1 DCA X1 LE,TAD X4 CIA TAD X0 SNA CLA JMP I J151 CMA TAD WK DCA WK CMA TAD X4 DCA X4 JMP LOOP L55,ISZ Y3 TAD Y1 DCA I Y3 JMP I J151 L56,DCA I X1 ISZ X1 TAD Y1 DCA X3 JMS I LRO JMP I K56 K56,INTERP LRO,RO / BIPS AFTER DEBUG AT4000 OCTAL *7200 DECIMAL L0,DCA Y2 JMP I J168 L1,TAD I X14 DCA X3 JMP I J166 J166,L166 AM,125 OCTAL XOC,7400 L2,TAD XOC DCA X0 TAD XOC DCA X5 DCA X4 NC,JMS I INCH CIA DCA I X5 TAD RB TAD I X5 SNA CLA JMP BK TAD AM TAD I X5 SNA CLA JMP BN TAD CR TAD I X5 SNA CLA JMP NC TAD NL TAD I X5 ISZ X5 ISZ X4 SNA CLA JMP I J151 JMP NC BN,JMS I TEXT CR,15 7566 JMP L2 BK,CLA CMA TAD X4 DCA X4 TAD X4 SPA CLA JMP L2 CLA CMA TAD X5 DCA X5 TAD I X5 CIA JMS I TTP JMP NC L3,ISZ Y3 TAD Y3 DCA X14 JMP I J151 L4,ISZ Y3 TAD I Y3 DCA I X14 JMP I J151 L5,ISZ Y3 ISZ I Y3 JMP I J151 JMP I J151 L6,ISZ Y3 CLA CMA TAD I Y3 DCA I Y3 JMP I J151 L7,ISZ Y3 TAD I Y3 JMS I WRITE JMP I J151 L8,ISZ Y3 TAD I X14 CIA TAD I Y3 DCA I Y3 JMP I J151 L9,ISZ Y3 TAD I Y3 TAD I X14 DCA I Y3 JMP I J151 LX2,0 JMS I STACK X2 TAD I LX2 DCA X2 JMP I J151 L20,JMS LX2 L173 L21,JMS LX2 L170 L22,JMS LX2 L171 L23,JMS LX2 L172 / X16 CODED FOR DEVICES / BOTTOM 6 BITS =0 TTR; #0 HSR / TOP 6 BITS =0 TTP; #0 HSP L17,TAD X16 TAD N64 IOS,DCA X4 JMS I STACK X16 TAD X4 DCA X16 JMP I J151 L18, ISZ X16 TAD X16 JMP IOS L15, TAD X16 AND T6 JMP IOS L16,TAD X16 AND B6 JMP IOS L32,LAS AND NC4 JMP IOS N64,100 NC4,0101 RO,0 TAD Y1 DCA I STP TAD A1 DCA I STP JMP I RO A1,X1 OCTAL *6403 /TEMPORARY DECIMAL L19,/RUNOUT TAD N200 DCA WK RL,JMS I HSP ISZ WK JMP RL JMP I K151 K151,L151 N200,-200 L24,JMS I F0 DCA X3 TAD X3 SMA CLA JMP I K998 TAD X3 TAD NL SNA CLA JMP I K998 TAD X3 TAD RB SPA CLA JMP I K998 JMP I X2 K998,L998 L14,/L OCTAL JMS I F0 DCA X3 TAD X3 TAD AQ SMA SZA CLA JMP I K998 TAD X3 TAD ZQ SPA CLA JMP I K998 JMP I X2 AQ,101 ZQ,132 L35,/->H TAD X14 DCA Y3 JMP I K155 K155,L155 L30,/NEW ISZ Y3 TAD I Y3 DCA LX4 L210,TAD I LX4 SNA CLA JMP L211 TAD I LX4 DCA LX4 JMP L210 L211,JMS I STACK LX4,0 TAD X1 DCA I LX4 L31,/END DCA I X1 ISZ X1 JMP I K151 L33,/V TAD X12 DCA X3 JMP I K66 K66,L166 L29,/P ISZ Y3 TAD I Y3 DCA I X1 ISZ X1 JMP I K151 L34,/V= JMS I STACK X12 ISZ Y3 TAD I Y3 DCA X12 JMP I K151 L47,/\F TAD LL191 DCA I STP TAD AX18 DCA I STP JMP I K151 LL191,L191 L191,TAD X6 SNA CLA JMP I K168 TAD M4 TAD STP DCA STP JMP I K168 K168,L168 DECIMAL M4,-2 L45, L11,ISZ Y3 TAD I Y3 CIA TAD I X14 SZA CLA JMP I K998 JMP I K151 L48,TAD Y0 DCA X0 JMP I K151 L50,/? TAD N128 DCA Y2 TAD X0 DCA Y0 TAD X1 DCA Y1 JMP I K151 N128,128 AX18,X18 AX8,X8 OCTAL L26,TAD X0 DCA Y0 TAD X1 DCA Y1 CLA CMA TAD Y3 DCA Y3 JMP I K155 LST,0 TAD I LST ISZ LST DCA WK TAD I WK DCA I STP TAD WK DCA I STP JMP I LST OCTAL *4000 STK, *10 PIA,0 STP,STK *1 READ,LREAD WRITE,LWRITE TEXT,LTEXT CLA WK,0 MONITOR,LMONITOR *20 OUTCH,PSYMB INCH,RSYMB HSR,HRSYMB HSP,HSYMB TTR,RSYMB TTP,PSYMB LAYCH,LAY F0,LF0 AY0,STK STACK,LST Y0,0 Y1,0 Y2,0 Y3,202 RB,177 NL,12 J168,L168 J151,L151 J998,L998 DINCH,RSYMB T6,7700 B6,77 CSYMB,0 *6000 RSYMB,0 RWAIT,KSF JMP RWAIT KRB RW2,TSF JMP RW2 TLS AND RB SNA JMP RWAIT JMP I RSYMB PSYMB,0 WWAIT,TSF JMP WWAIT TLS CAC,CLA JMP I PSYMB DECIMAL / DECIMAL ROUTINES PAGE / LOCALS: SNB,RNB,RNB8,CSYMB,DIGIT / LOCALS MNINE,MZERO,MINUS, /LOCAL VARIABLES M1000,DIGIT,STEP,ZERO.AM1000,NB / LOCAL LABEL OUTSYMB:LAYCH / STEP -1000,*1/10,-1 / TEMP AUTO INDEX PIA / PLANT - IF NEGATIVE LREAD,0 DCA RNB JMS I DINCH DCA CSYMB TAD CSYMB CIA TAD MINUS SZA CLA JMP SETRNB CLA CMA DCA SNB RNEXTCH,JMS I DINCH DCA CSYMB JMP FDIGIT SETRNB,IAC DCA SNB FDIGIT, TAD MZERO TAD CSYMB SPA CLA JMP EXIT TAD MNINE TAD CSYMB SMA SZA CLA JMP EXIT / *10RNB+D-'0' TAD RNB CLL RTL CLL RAL DCA RNB8 TAD RNB CLL RAL TAD RNB8 TAD CSYMB TAD MZERO DCA RNB JMP RNEXTCH EXIT,TAD SNB SMA SZA CLA JMP LRETURN TAD RNB CIA JMP I LREAD LRETURN,TAD RNB JMP I LREAD / READ DATA SNB,0 RNB,0 RNB8,0 OCTAL ZERO,60 MNINE,7707 MZERO,7720 MINUS,55 DECIMAL /WRITE LWRITE,0 DCA NB TAD AM1000 DCA PIA TAD CAC DCA ND TAD NB SMA CLA JMP WSTART TAD MINUS JMS I OUTCH TAD NB CIA DCA NB WSTART,TAD ZERO DCA DIGIT TAD I PIA DCA STEP WCYCLE,IAC TAD STEP SZA CLA JMP LL4 TAD PD DCA ND LL4,TAD STEP TAD NB SPA CLA JMP DOUT TAD STEP TAD NB DCA NB ISZ DIGIT JMP WCYCLE DOUT,TAD DIGIT TAD MZERO SPA SNA CLA JMP ND TAD PD DCA ND ND,TAD DIGIT SZA JMS I OUTCH IAC TAD STEP SZA CLA JMP WSTART JMP I LWRITE / WRITE DATA NB,0 PD,TAD DIGIT STEP,0 DIGIT,0 AM1000,M1000-1 M1000,-1000 -100 -10 -1 OCTAL *5600 DECIMAL LTEXT,0 LTX,TAD I LTEXT ISZ LTEXT SPA JMP LASTT JMS I OUTCH JMP LTX LASTT,CIA JMS I OUTCH JMP I LTEXT OCTAL LMONITOR,0 MON,JMS I TEXT 215 -212 TAD X4 JMS I WRITE JMS I TEXT ML,7706 / -':' TAD I X4 JMS I WRITE NQ,JMS I INCH DCA CSYMB TAD CSYMB TAD CF SNA CLA ISZ X4 TAD CSYMB TAD NEQ SZA CLA JMP XL JMS I READ DCA I X4 JMP NQ XL,TAD CSYMB TAD MSP SNA CLA JMP I LMONITOR TAD CSYMB TAD ML SZA CLA JMP LQ JMS I READ DCA X4 JMP MON LQ,TAD CSYMB TAD QT SZA CLA JMP MON TAD I X4 CIA JMS I OUTCH JMS I TEXT QT,-47 JMP NQ CF,-15 NEQ,-75 MSP,-40 L51,TAD DIN DCA DINCH ISZ Y3 JMS I READ DCA I Y3 TAD TTR DCA DINCH JMP I 151 DF0,0 JMS I F0 CIA ISZ X0 JMP I DF0 DOUTCH,0 DIN,DF0 L52,TAD OUTCH DCA DOUTCH TAD LAYCH DCA OUTCH ISZ Y3 TAD I Y3 JMS I WRITE TAD DOUTCH DCA OUTCH L53,JMS I STACK X17 DCA X17 JMP I J151 *5400 / INTERPRETOR DECIMAL /AY0 CURRENT BASE /X0 INPUT POINTER /X1 OUTPUT POINTER /Y0 SAVED X0 /Y1 SAVED X1 /Y2 NEXT ALTERNATIVE /Y3 SYNTAX POINTER /STACK / AYO: AY0' Y0' Y1' Y2' STP:Y3' INTERP,/STACK LOCALS TAD AY0 DCA I STP TAD STP DCA AY0 TAD Y0 DCA I STP TAD Y1 DCA I STP TAD Y2 DCA I STP TAD Y3 DCA I STP TAD X1 DCA Y1 TAD X0 DCA Y0 TAD X3 DCA Y3 L152,TAD I Y3 DCA Y2 L151,ISZ Y3 L155,TAD I Y3 DCA X3 JMS I SS L166,TAD X3 CIA SMA SZA CLA JMP I X2 TAD X3 TAD H0 SMA SZA CLA JMP INTERP TAD X3 TAD LSW DCA WK TAD I WK DCA WK JMP I WK H0,-100 SS,SINGLESTEP LSW,SW L157,/ EXIT SEQUENCE TAD AY0 DCA STP TAD I STP DCA Y0 TAD I STP DCA Y1 TAD I STP DCA Y2 TAD I STP DCA Y3 CLA CMA TAD AY0 DCA STP TAD I AY0 DCA AY0 /->151 IF X6=1 TAD X6 SZA CLA JMP L151 JMP L998 M5,-4 M2,-2 TCH,0 JMS I F0 CIA TAD X3 SZA CLA JMP L998 ISZ X0 JMP I TCH L170,/READ JMS TCH JMP L151 L171,/COPY JMS TCH L173,TAD X3 TAD NL SZA CLA JMP LL JMS I TEXT OCTAL 7563 LL,TAD X3 CIA JMS I OUTCH JMP L151 L172,/ MOVE TAD X3 DCA I X1 ISZ X1 JMP L170 L28,DCA Y2 L27,L998,TAD Y0 DCA X0 TAD Y1 DCA X1 DCA X6 L168, /UNSTACKING OPERATIONS TAD J168 DCA X18 / TEST IF STACK EMPTY TAD M5 TAD STP CIA TAD AY0 SMA CLA JMP L167 TAD STP DCA WK TAD M2 TAD STP DCA STP CLA CMA TAD WK DCA X4 TAD I WK DCA WK TAD I X4 DCA I WK JMP I X18 L167,TAD Y2 SNA CLA JMP L157 TAD Y2 DCA Y3 ISZ X6 JMP L152 OCTAL *6200 DECIMAL / I/O ROUTINES , SERVICE ROUTINS HRSYMB,0 RFC HRW,RSF JMP HRW RRB AND RB SNA JMP HRSYMB+1 JMP I HRSYMB HSYMB,0 HSW,PSF JMP HSW PLS CLA JMP I HSYMB LAY,0 CIA DCA I X1 ISZ X1 JMP I LAY DEV1,0 TAD TTR DCA INCH JMP I DEV1 DEV2,0 TAD TTP DCA OUTCH JMP I DEV2 DEV3,0 TAD HSR DCA INCH JMP I DEV3 DEV4,0 TAD HSP DCA OUTCH JMP I DEV4 SINGLESTEP,0 JMS DEV1 JMS DEV2 LAS / SWITCHS AND FOUR SNA CLA JMP S1 TAD Y3 DCA X4 JMS I MONITOR S1,LAS AND EG CIA TAD B4 SNA CLA JMP CONT TAD Y3 CIA TAD X8 SPA SNA CLA JMP I B28 TAD B4 CIA TAD EG DCA B4 JMP I SW B4,0 EG,8 CONT,TAD X16 AND T6 SZA CLA JMS DEV3 TAD X16 AND B6 SZA CLA JMS DEV4 JMP I SINGLESTEP FOUR,4 // SWITCH SW,L0 L1 L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L998 L13 L14 L15 L16 L17 L18 L19 L20 L21 L22 L23 L24 L25 L26 L27 B28,L28 L29 L30 L31 L32 L33 L34 L35 L36 L37 L38 L39 L40 L41 L42 L43 L44 L45 L46 L47 L48 L49 L50 L51 L52 L53 L54 L55 L56 L57 OCTAL / PAGE ZERO *152 / X VARIABLES X0,7400 X1,SE X2,L170 X3,203 X4,0 X5,7400 X6,1 X7,0 X8,SE X9,0 X10,0 X11,0 X12,0 X13,SE+1400 X14,0 X15,0 X16,0 X17,40 X18,0 X19,0 X20,0 *471 66 7506 7445 4 24 43 *5200 L54,TAD I 163 TAD N100 SPA CLA JMP I FL DCA R36 TAD I 163 / 1ST : GARBAGE RECOGNITION / R36 >= 1 / = NB GARBAGE WORDS TO LEFT +1. / X4 CURRENT WORD. / MARK ALTERNATIVE LIST (X9). GA,DCA 156 TAD I 156 DCA 5 NP,ISZ R36 TAD R36 DCA I 156 ISZ 156 TAD I 156 SZA CLA JMP NP ISZ R36 TAD R36 DCA I 156 TAD 5 SNA CLA JMP UP TAD 5 JMP GA R36,0 N100,7601 FL,5533 G,DCA 156 TAD 162 DCA 5 / FROM WK CMA TAD 162 DCA 10 / TO PIA GC,TAD 153 CIA TAD 5 SMA CLA JMP GX / EXIT IF WK>X1 TAD I 5 SPA SNA CLA / MOVE IF <=0 JMP GL TAD I 5 TAD M300 / DONT MOVE IF <300, (1:300 IS RUBBISH) SPA CLA JMP GR GL,TAD I 5 DCA I 10 GR,ISZ 5 JMP GC GE,5424 GX,ISZ 10 / SET X1 & EXIT TAD 10 DCA 153 JMP I GE / 2ND : UPDATE WORDS POINTING INTO (X8,X1). UP,TAD 162 / X8 DCA 156 UP1,TAD 156 CIA TAD 167 / X13 SPA SNA CLA JMP G TAD I 156 SPA SNA CLA / IGNORE IF <=0. JMP UP2 TAD I 156 CIA TAD 162 SMA SZA CLA / IGNORE IF