TITLE cc20 RADIX 10. .INSRT NC .CODE ENTRY Zdebug ENTRY Zidebu ENTRY Zkflag ENTRY Zcflag ENTRY Zgflag ENTRY Zxflag ENTRY Zbflag ENTRY Zsflag ENTRY Zavl ENTRY Zavlp ENTRY Zavp ENTRY Zavc ENTRY Zavm ENTRY Zave ENTRY Zavs ENTRY Zphsnm ENTRY Zphspr ENTRY Zphsac ENTRY Zphsav ENTRY Zphsop ENTRY Zphset ENTRY Zphspt ENTRY Ztarge ENTRY Ztarna ENTRY Ztarsf ENTRY Ztarlp ENTRY Ztarob ENTRY Zsconc ENTRY Zmain ENTRY Zproop ENTRY Zcnsof ENTRY Zexecp ENTRY Zwrsta ENTRY Zperas ENTRY Zpromi ENTRY Zproeq ENTRY ZsetJp ENTRY Zsettr ENTRY Zsetpn ENTRY Zslowe ENTRY Zprpht ENTRY Zdigit EXTERN Zcout EXTERN Zexpar EXTERN Zistty EXTERN Zcopen EXTERN Zcprin EXTERN Zcclos EXTERN Znow EXTERN Zstcpy EXTERN Zperro EXTERN Zdelet EXTERN Zlower EXTERN Zfnsfd EXTERN Zexcti EXTERN Zexcco EXTERN Zetime EXTERN Zexecv EXTERN Zstcmp EXTERN Zcputc EXTERN Zusern EXTERN Zprcal EXTERN Zfngdr EXTERN Zfngnm EXTERN Zpr60t EXTERN Zexecs EXTERN Zcgetc .UDATA Zdebug: BLOCK 40 Zidebu: BLOCK 40 Zkflag: BLOCK 1 Zcflag: BLOCK 1 Zgflag: BLOCK 1 Zxflag: BLOCK 1 Zbflag: BLOCK 1 Zsflag: BLOCK 1 .IDATA Zavl: Zdebug 0 S49 S0 S7 S35 Zavlp: Zdebug 0 S28 S56 S7 S21 S0 S35 S14 S42 0 Zavp: Zdebug S49 S28 S56 S7 S21 S14 S42 0 Zavc: Zdebug S7 S28 S56 S21 S127 Zavm: Zdebug 0 S0 S7 S21 S35 S14 Zave: Zdebug S7 S0 Zavs: S0 S56 S42 0 Zphsnm: S132 S134 S137 S139 S141 S143 S145 .UDATA Zphspr: BLOCK 700 .IDATA Zphsac: 6 10 8 6 7 3 4 Zphsav: Zavl Zavlp Zavp Zavc Zavm Zave Zavs Zphsop: 110 110 110 110 110 110 110 Zphset: 0 0 0 0 0 0 0 Zphspt: 0 0 0 0 0 0 0 Ztarge: 0 Ztarna: S147 S153 S159 S167 S174 S179 S184 Ztarsf: S104 S105 S108 S111 S115 S119 S123 Ztarlp: S190 S191 S192 S193 S194 S195 S196 Ztarob: S197 S201 S206 S211 S215 S220 S225 .CODE .PDATA S0: 48 46 99 115 59 116 0 S7: 48 46 101 114 59 116 0 S14: 48 46 104 109 59 116 0 S21: 48 46 109 97 59 116 0 S28: 48 46 110 111 59 116 0 S35: 48 46 115 116 59 116 0 S42: 48 46 115 121 59 116 0 S49: 48 46 116 111 59 116 0 S56: 48 46 116 121 59 116 0 S63: 60 99 62 99 50 48 0 S70: 60 99 62 99 50 48 0 S77: 60 99 46 99 109 112 62 99 50 48 0 S88: 46 101 120 101 0 S93: 46 111 101 120 101 0 S99: 46 101 120 101 0 S104: 0 S105: 49 49 0 S108: 54 48 0 S111: 51 54 48 0 S115: 45 99 109 0 S119: 45 117 120 0 S123: 45 49 48 0 S127: 51 48 48 48 0 S132: 76 0 S134: 76 80 0 S137: 80 0 S139: 67 0 S141: 77 0 S143: 69 0 S145: 83 0 S147: 112 100 112 49 48 0 S153: 112 100 112 49 49 0 S159: 104 105 115 54 48 48 48 0 S167: 105 98 109 51 54 48 0 S174: 99 109 97 99 0 S179: 117 110 105 120 0 S184: 110 101 119 49 48 0 S190: 0 S191: 0 S192: 0 S193: 0 S194: 0 S195: 0 S196: 0 S197: 109 105 100 0 S201: 80 65 76 88 0 S206: 71 77 65 80 0 S211: 66 65 76 0 S215: 67 77 65 67 0 S220: 85 78 73 88 0 S225: 78 77 73 68 65 83 0 S232: 67 97 110 39 116 32 70 105 110 100 32 39 37 115 39 46 10 0 S250: 37 115 58 10 0 S255: 115 0 S257: 120 0 S259: 98 0 S261: 49 48 48 48 48 0 S267: 85 110 114 101 99 111 103 110 105 122 101 100 32 111 112 116 105 111 110 58 32 45 37 99 10 0 S293: 85 110 114 101 99 111 103 110 105 122 101 100 32 111 112 116 105 111 110 58 32 37 99 61 37 115 10 0 S321: 0 S322: 115 116 107 0 S326: 115 121 109 116 97 98 0 S333: 85 110 97 98 108 101 32 116 111 32 101 120 101 99 117 116 101 32 112 104 97 115 101 32 37 115 10 0 S361: 85 110 114 101 99 111 103 110 105 122 101 100 32 80 104 97 115 101 32 68 101 115 105 103 110 97 116 105 111 110 58 32 37 99 10 0 S397: 85 110 114 101 99 111 103 110 105 122 101 100 32 80 104 97 115 101 32 79 112 116 105 111 110 58 32 37 99 10 0 S428: 0 S429: 85 110 114 101 99 111 103 110 105 122 101 100 32 116 97 114 103 101 116 32 109 97 99 104 105 110 101 58 32 37 115 10 0 S462: 60 99 62 99 46 115 116 97 116 0 S472: 60 99 108 117 62 99 46 115 116 97 116 0 S484: 37 115 32 45 32 0 S490: 32 45 32 0 S494: 37 115 47 0 S498: 37 115 0 S501: 32 40 0 S504: 100 61 37 115 0 S509: 109 61 37 115 0 S514: 10 10 0 S517: 32 80 61 0 S521: 32 69 61 0 S525: 32 95 32 0 S529: 32 40 119 41 0 S534: 115 121 115 58 109 105 100 97 115 46 101 120 101 0 S548: 85 110 97 98 108 101 32 116 111 32 65 115 115 101 109 98 108 101 46 10 0 S569: 69 82 82 0 S573: 65 115 115 101 109 98 108 101 114 32 69 114 114 111 114 115 46 10 0 .CODE %A==2 %A,,[ASCIZ/main/] Zmain: ADDI P,FS1 ; LINE 254 SETO A, ADDB A,<0-FS1-%A-%P>(P) ; LINE 255 MOVEI A,1 ADDB A,<1-FS1-%A-%P>(P) ; LINE 256 PPUSH <0-FS1-%A-%P>(P) PPUSH <1-FS1-%A-%P>(P) CCALL 2,Zproop MOVEM A,<0-FS1-%A-%P>(P) ; LINE 257 PPUSH <0-FS1-%A-%P>(P) PPUSH <1-FS1-%A-%P>(P) MOVEI A,<14-FS1-%P>(P) PPUSH A MOVEI A,<64-FS1-%P>(P) PPUSH A CCALL 4,Zexpar MOVEM A,<0-FS1-%A-%P>(P) ; LINE 258 MOVEI A,<14-FS1-%P>(P) MOVEM A,<1-FS1-%A-%P>(P) ; LINE 262 MOVEI A,Ztarlp ADD A,Ztarge MOVE A,(A) MOVEM A,<12-FS1-%P>(P) ; LINE 263 MOVE A,<12-FS1-%P>(P) MOVE A,(A) JUMPE A,L5000 ; LINE 264 MOVEI A,Zphsac MOVEI C,11 MOVEM C,1(A) ; LINE 265 MOVEI A,Zavlp MOVE C,<12-FS1-%P>(P) MOVEM C,10(A) GO L5001 L5000: ; LINE 267 MOVEI A,Zphsac MOVEI C,10 MOVEM C,1(A) L5001: ; LINE 281 PPUSH Zcout CCALL 1,Zistty MOVEM A,<5-FS1-%P>(P) ; LINE 283 MOVEI A,0 MOVEM A,<1-FS1-%P>(P) L2: MOVE A,<1-FS1-%P>(P) CAML A,<0-FS1-%A-%P>(P) GO L5002 ; LINE 284 MOVE A,<1-FS1-%A-%P>(P) ADD A,<1-FS1-%P>(P) MOVE A,(A) MOVEM A,<13-FS1-%P>(P) ; LINE 288 PPUSH <13-FS1-%P>(P) PPUSH [114] CCALL 2,Zcopen MOVEM A,<3-FS1-%P>(P) CAME A,[-1] GO L5003 ; LINE 289 MOVEI A,S232 PPUSH A PPUSH <13-FS1-%P>(P) CCALL 2,Zcprin GO L1 L5003: ; LINE 292 PPUSH <3-FS1-%P>(P) CCALL 1,Zcclos ; LINE 294 MOVE A,<5-FS1-%P>(P) JUMPE A,L5005 MOVE A,<0-FS1-%A-%P>(P) CAIG A,1 GO L5004 L5005: MOVEI A,S250 PPUSH A PPUSH <13-FS1-%P>(P) CCALL 2,Zcprin L5004: ; LINE 295 MOVEI A,<6-FS1-%P>(P) PPUSH A CCALL 1,Znow ; LINE 299 MOVE A,Zsflag JUMPE A,L5006 MOVEI A,Zdebug PPUSH A PPUSH [2] MOVEI A,Zidebu PPUSH A MOVEI A,S255 PPUSH A CCALL 4,Zsconc GO L5007 L5006: ; LINE 300 MOVE A,Zxflag JUMPE A,L5008 MOVEI A,Zdebug PPUSH A PPUSH [2] MOVEI A,Zidebu PPUSH A MOVEI A,S257 PPUSH A CCALL 4,Zsconc GO L5009 L5008: ; LINE 301 MOVEI A,Zidebu PPUSH A MOVEI A,Zdebug PPUSH A CCALL 2,Zstcpy L5009: L5007: ; LINE 305 PPUSH <13-FS1-%P>(P) MOVEI A,<2064-FS1-%P>(P) PPUSH A MOVEI A,<2164-FS1-%P>(P) PPUSH A MOVEI A,<2264-FS1-%P>(P) PPUSH A CCALL 4,Zcnsof ; LINE 308 MOVEI A,S7 PPUSH A PPUSH [119] MOVEI A,S259 PPUSH A CCALL 3,Zcopen PPUSH A CCALL 1,Zcclos ; LINE 310 MOVEI A,0 MOVEM A,<4-FS1-%P>(P) L5: MOVE A,<4-FS1-%P>(P) CAIL A,7 GO L5010 MOVEI A,Zphspt ADD A,<4-FS1-%P>(P) MOVNI C,--1 MOVEM C,(A) L4: MOVEI A,1 ADDB A,<4-FS1-%P>(P) GO L5 L5010: L3: ; LINE 311 MOVEI A,Zavm MOVEI C,<2064-FS1-%P>(P) MOVEM C,1(A) ; LINE 312 MOVEI A,Zavs MOVEI C,<2264-FS1-%P>(P) MOVEM C,3(A) ; LINE 316 MOVEI A,Zavlp MOVE C,<13-FS1-%P>(P) MOVEM C,1(A) ; LINE 317 PPUSH [1] CCALL 1,Zexecp MOVEM A,<2-FS1-%P>(P) ; LINE 329 MOVE A,<2-FS1-%P>(P) JUMPN A,L5011 MOVE A,Zxflag JUMPN A,L5011 PPUSH [3] CCALL 1,Zexecp MOVEM A,<2-FS1-%P>(P) L5011: ; LINE 330 MOVE A,<2-FS1-%P>(P) JUMPN A,L5012 MOVE A,Zxflag JUMPN A,L5012 PPUSH [4] CCALL 1,Zexecp MOVEM A,<2-FS1-%P>(P) L5012: ; LINE 334 MOVEI A,S7 PPUSH A MOVEI A,S0 PPUSH A CCALL 2,Zperro ; LINE 344 MOVE A,Zkflag JUMPN A,L5013 ; LINE 345 MOVEI A,S49 PPUSH A CCALL 1,Zdelet ; LINE 346 MOVEI A,S7 PPUSH A CCALL 1,Zdelet ; LINE 347 MOVEI A,S28 PPUSH A CCALL 1,Zdelet ; LINE 348 MOVEI A,S21 PPUSH A CCALL 1,Zdelet ; LINE 349 MOVEI A,S14 PPUSH A CCALL 1,Zdelet ; LINE 350 MOVEI A,S35 PPUSH A CCALL 1,Zdelet L5013: ; LINE 353 MOVE A,Zsflag JUMPE A,L5014 PPUSH [6] CCALL 1,Zexecp L5014: ; LINE 355 MOVE A,Zkflag JUMPN A,L5015 ; LINE 356 MOVEI A,S0 PPUSH A CCALL 1,Zdelet ; LINE 357 MOVEI A,S42 PPUSH A CCALL 1,Zdelet ; LINE 358 MOVEI A,S56 PPUSH A CCALL 1,Zdelet L5015: ; LINE 361 PPUSH <13-FS1-%P>(P) MOVEI A,<6-FS1-%P>(P) PPUSH A CCALL 2,Zwrsta ; LINE 363 MOVE A,<2-FS1-%P>(P) JUMPN A,L5016 MOVE A,Zxflag JUMPN A,L5016 MOVE A,Zcflag JUMPN A,L5016 MOVE A,Ztarge JUMPE A,L5017 MOVE A,Ztarge CAIE A,6 GO L5016 L5017: ; LINE 365 MOVEI A,<2064-FS1-%P>(P) PPUSH A MOVEI A,<2164-FS1-%P>(P) PPUSH A CCALL 2,Zperas MOVEM A,<2-FS1-%P>(P) ; LINE 366 MOVE A,Zgflag JUMPN A,L5018 MOVE A,<2-FS1-%P>(P) JUMPN A,L5018 MOVEI A,<2064-FS1-%P>(P) PPUSH A CCALL 1,Zdelet L5018: L5016: L1: ; LINE 283 MOVEI A,1 ADDB A,<1-FS1-%P>(P) GO L2 L5002: L0: SUBI P,FS1+%A+1 GO @<%A+1>(P) FS1==2364-1 %A==2 %A,,[ASCIZ/proopt/] Zproop: ADDI P,FS2 ; LINE 384 MOVEI A,0 MOVEM A,Zsflag MOVEM A,Zbflag MOVEM A,Zxflag MOVEM A,Zgflag MOVEM A,Zcflag MOVEM A,Zkflag ; LINE 386 MOVE A,<1-FS2-%A-%P>(P) MOVEM A,<2-FS2-%P>(P) MOVEM A,<3-FS2-%P>(P) ; LINE 387 MOVEI A,0 MOVEM A,<4-FS2-%P>(P) L7: ; LINE 388 SETO A, ADDB A,<0-FS2-%A-%P>(P) JUMPL A,L5019 ; LINE 389 MOVEI B,1 MOVE A,<2-FS2-%P>(P) ADDM B,<2-FS2-%P>(P) MOVE A,(A) MOVEM A,<1-FS2-%P>(P) ; LINE 390 MOVE A,<1-FS2-%P>(P) MOVE A,(A) CAIE A,45 GO L5020 MOVE A,<1-FS2-%P>(P) ADDI A,1 PPUSH A CCALL 1,Zpromi GO L5021 L5020: ; LINE 391 MOVE A,<1-FS2-%P>(P) MOVE A,(A) MOVEM A,<5-FS2-%P>(P) JUMPE A,L5022 MOVE A,<1-FS2-%P>(P) MOVE A,1(A) CAIE A,61 GO L5022 ; LINE 392 PPUSH <5-FS2-%P>(P) MOVE A,<1-FS2-%P>(P) ADDI A,2 PPUSH A CCALL 2,Zproeq GO L5023 L5022: ; LINE 394 MOVEI B,1 MOVE A,<3-FS2-%P>(P) ADDM B,<3-FS2-%P>(P) MOVE C,<1-FS2-%P>(P) MOVEM C,(A) ; LINE 395 MOVEI A,1 ADDB A,<4-FS2-%P>(P) L5023: L5021: GO L7 L5019: L6: ; LINE 398 MOVE A,<4-FS2-%P>(P) SUBI P,FS2+%A+1 GO @<%A+1>(P) SUBI P,FS2+%A+1 GO @<%A+1>(P) FS2==6-1 %A==1 %A,,[ASCIZ/promin/] Zpromi: ADDI P,FS3 L9: ; LINE 412 MOVE A,<0-FS3-%A-%P>(P) MOVE A,(A) MOVEM A,<1-FS3-%P>(P) JUMPE A,L5024 ; LINE 413 MOVEI B,1 MOVE A,<0-FS3-%A-%P>(P) ADDM B,<0-FS3-%A-%P>(P) PPUSH <1-FS3-%P>(P) MOVEM A,<2-FS3-%P>(P) CCALL 1,Zlower MOVE C,A MOVEM C,<1-FS3-%P>(P) MOVE A,<2-FS3-%P>(P) MOVEM C,(A) ; LINE 414 MOVE A,<1-FS3-%P>(P) MOVE B,[-6,,[ 107 99 103 115 120 98 L11 L12 L13 L14 L15 L16 ]] CAMN A,(B) GO @6(B) AOBJN B,.-2 GO L17 L11: ; LINE 415 MOVEI A,1 MOVEM A,Zkflag GO L10 L12: ; LINE 416 MOVEI A,1 MOVEM A,Zcflag GO L10 L13: ; LINE 417 MOVEI A,1 MOVEM A,Zgflag GO L10 L14: ; LINE 418 MOVEI A,1 MOVEM A,Zsflag GO L10 L15: ; LINE 419 MOVEI A,1 MOVEM A,Zxflag GO L10 L16: ; LINE 420 MOVEI A,1 MOVEM A,Zbflag ; LINE 421 MOVEI A,Zavc MOVEI C,S261 MOVEM C,5(A) GO L10 L17: ; LINE 423 MOVEI A,S267 PPUSH A PPUSH <1-FS3-%P>(P) CCALL 2,Zcprin GO L10 L5025: L10: GO L9 L5024: L8: SUBI P,FS3+%A+1 GO @<%A+1>(P) FS3==3-1 %A==2 %A,,[ASCIZ/proeq/] Zproeq: ADDI P,FS4 ; LINE 441 PPUSH <0-FS4-%A-%P>(P) CCALL 1,Zlower MOVEM A,<0-FS4-%A-%P>(P) MOVE B,[-5,,[ 100 116 111 110 109 L19 L24 L25 L26 L27 ]] CAMN A,(B) GO @5(B) AOBJN B,.-2 GO L28 L19: ; LINE 442 MOVEI A,Zidebu MOVEM A,<1-FS4-%P>(P) L21: ; LINE 443 MOVEI B,1 MOVE A,<1-FS4-%A-%P>(P) ADDM B,<1-FS4-%A-%P>(P) MOVE A,(A) MOVEM A,<2-FS4-%P>(P) JUMPE A,L5027 MOVEI B,1 MOVE A,<1-FS4-%P>(P) ADDM B,<1-FS4-%P>(P) PPUSH <2-FS4-%P>(P) MOVEM A,<3-FS4-%P>(P) CCALL 1,Zlower MOVE C,A MOVE A,<3-FS4-%P>(P) MOVEM C,(A) GO L21 L5027: L20: ; LINE 444 MOVE A,<1-FS4-%P>(P) MOVEI C,0 MOVEM C,(A) ; LINE 445 SUBI P,FS4+%A+1 GO @<%A+1>(P) L26: L25: L24: L23: ; LINE 448 MOVEI B,1 MOVE A,<1-FS4-%A-%P>(P) ADDM B,<1-FS4-%A-%P>(P) MOVE A,(A) MOVEM A,<2-FS4-%P>(P) JUMPE A,L5028 PPUSH <2-FS4-%P>(P) PPUSH <0-FS4-%A-%P>(P) CCALL 2,ZsetJp GO L23 L5028: L22: ; LINE 449 SUBI P,FS4+%A+1 GO @<%A+1>(P) L27: ; LINE 451 PPUSH <1-FS4-%A-%P>(P) CCALL 1,Zsettr ; LINE 452 SUBI P,FS4+%A+1 GO @<%A+1>(P) L28: ; LINE 454 MOVEI A,S293 PPUSH A PPUSH <0-FS4-%A-%P>(P) PPUSH <1-FS4-%A-%P>(P) CCALL 3,Zcprin L5026: L18: SUBI P,FS4+%A+1 GO @<%A+1>(P) FS4==4-1 %A==4 %A,,[ASCIZ/cnsofn/] Zcnsof: ADDI P,FS5 ; LINE 470 PPUSH <1-FS5-%A-%P>(P) PPUSH <0-FS5-%A-%P>(P) MOVEI A,S321 PPUSH A PPUSH [0] PPUSH [0] MOVEI A,Ztarob ADD A,Ztarge PPUSH (A) PPUSH [0] PPUSH [0] CCALL 8,Zfnsfd ; LINE 471 PPUSH <2-FS5-%A-%P>(P) PPUSH <1-FS5-%A-%P>(P) PPUSH [0] PPUSH [0] PPUSH [0] MOVEI A,S322 PPUSH A PPUSH [0] PPUSH [0] CCALL 8,Zfnsfd ; LINE 472 PPUSH <3-FS5-%A-%P>(P) PPUSH <1-FS5-%A-%P>(P) PPUSH [0] PPUSH [0] PPUSH [0] MOVEI A,S326 PPUSH A PPUSH [0] PPUSH [0] CCALL 8,Zfnsfd SUBI P,FS5+%A+1 GO @<%A+1>(P) FS5==1-1 %A==1 %A,,[ASCIZ/execph/] Zexecp: ADDI P,FS6 ; LINE 486 PPUSH <0-FS6-%A-%P>(P) CCALL 1,Zsetpn ; LINE 487 CCALL 0,Zetime MOVEM A,<1-FS6-%P>(P) ; LINE 488 MOVE A,<0-FS6-%A-%P>(P) IMULI A,100 MOVEI C,Zphspr ADD C,A PPUSH C MOVEI A,Zphsac ADD A,<0-FS6-%A-%P>(P) PPUSH (A) MOVEI A,Zphsav ADD A,<0-FS6-%A-%P>(P) PPUSH (A) CCALL 3,Zexecv JUMPE A,L5029 ; LINE 489 MOVEI A,S333 PPUSH A MOVEI A,Zphsnm ADD A,<0-FS6-%A-%P>(P) PPUSH (A) CCALL 2,Zcprin ; LINE 490 MOVNI A,--1 SUBI P,FS6+%A+1 GO @<%A+1>(P) L5029: ; LINE 492 MOVEI A,Zphset ADD A,<0-FS6-%A-%P>(P) MOVEM A,<2-FS6-%P>(P) CCALL 0,Zetime MOVE C,A SUB C,<1-FS6-%P>(P) MOVE A,<2-FS6-%P>(P) MOVEM C,(A) ; LINE 493 MOVEI A,Zphspt ADD A,<0-FS6-%A-%P>(P) MOVE C,Zexcti MOVEM C,(A) ; LINE 494 MOVE A,Zexcco SUBI P,FS6+%A+1 GO @<%A+1>(P) SUBI P,FS6+%A+1 GO @<%A+1>(P) FS6==3-1 %A==2 %A,,[ASCIZ/set_phase_option/] ZsetJp: ADDI P,FS7 ; LINE 509 PPUSH <0-FS7-%A-%P>(P) CCALL 1,Zlower MOVEM A,<0-FS7-%A-%P>(P) ; LINE 510 MOVE A,<0-FS7-%A-%P>(P) SUBI A,99 JUMPL A,L36 CAILE A,115-99 GO L36 GO @(A)[ L32 L36 L34 L36 L36 L36 L36 L36 L36 L31 L33 L36 L36 L30 L36 L36 L35 ] L31: L30: ; LINE 515 MOVEI A,1 MOVEM A,<1-FS7-%P>(P) GO L29 L32: ; LINE 526 MOVEI A,3 MOVEM A,<1-FS7-%P>(P) GO L29 L33: ; LINE 527 MOVEI A,4 MOVEM A,<1-FS7-%P>(P) GO L29 L34: ; LINE 528 MOVEI A,5 MOVEM A,<1-FS7-%P>(P) GO L29 L35: ; LINE 529 MOVEI A,6 MOVEM A,<1-FS7-%P>(P) GO L29 L36: ; LINE 530 MOVEI A,S361 PPUSH A PPUSH <0-FS7-%A-%P>(P) CCALL 2,Zcprin ; LINE 531 SUBI P,FS7+%A+1 GO @<%A+1>(P) L5030: L29: ; LINE 533 MOVEI A,Zphsop ADD A,<1-FS7-%P>(P) PPUSH <1-FS7-%A-%P>(P) MOVEM A,<2-FS7-%P>(P) CCALL 1,Zlower MOVE C,A MOVE A,<2-FS7-%P>(P) MOVEM C,(A) SUBI P,FS7+%A+1 GO @<%A+1>(P) FS7==3-1 %A==1 %A,,[ASCIZ/setpn/] Zsetpn: ADDI P,FS8 ; LINE 548 MOVEI A,Zphsop ADD A,<0-FS8-%A-%P>(P) MOVE A,(A) SUBI A,110 JUMPL A,L40 CAILE A,116-110 GO L40 GO @(A)[ L41 L38 L40 L40 L40 L40 L39 ] L38: ; LINE 549 MOVEI A,S70 MOVEM A,<1-FS8-%P>(P) MOVEI A,S93 MOVEM A,<2-FS8-%P>(P) GO L37 L39: ; LINE 551 MOVEI A,S77 MOVEM A,<1-FS8-%P>(P) MOVEI A,S99 MOVEM A,<2-FS8-%P>(P) GO L37 L40: ; LINE 553 MOVEI A,S397 PPUSH A MOVEI A,Zphsop ADD A,<0-FS8-%A-%P>(P) PPUSH (A) CCALL 2,Zcprin L41: ; LINE 555 MOVEI A,S63 MOVEM A,<1-FS8-%P>(P) MOVEI A,S88 MOVEM A,<2-FS8-%P>(P) GO L37 L5031: L37: ; LINE 558 MOVEI A,Ztarsf ADD A,Ztarge MOVE A,(A) MOVEM A,<3-FS8-%P>(P) ; LINE 559 MOVE A,<0-FS8-%A-%P>(P) CAIN A,5 GO L5033 MOVE A,<0-FS8-%A-%P>(P) CAIE A,6 GO L5032 L5033: MOVEI A,S428 MOVEM A,<3-FS8-%P>(P) L5032: ; LINE 560 MOVE A,<0-FS8-%A-%P>(P) IMULI A,100 MOVEI C,Zphspr ADD C,A PPUSH C PPUSH [4] PPUSH <1-FS8-%P>(P) MOVEI A,Zphsnm ADD A,<0-FS8-%A-%P>(P) PPUSH (A) PPUSH <3-FS8-%P>(P) PPUSH <2-FS8-%P>(P) CCALL 6,Zsconc SUBI P,FS8+%A+1 GO @<%A+1>(P) FS8==4-1 %A==1 %A,,[ASCIZ/settrg/] Zsettr: ADDI P,FS9 ; LINE 575 MOVE A,<0-FS9-%A-%P>(P) MOVEM A,<3-FS9-%P>(P) L43: ; LINE 576 MOVE A,<3-FS9-%P>(P) MOVE A,(A) MOVEM A,<1-FS9-%P>(P) JUMPE A,L5034 MOVEI B,1 MOVE A,<3-FS9-%P>(P) ADDM B,<3-FS9-%P>(P) PPUSH <1-FS9-%P>(P) MOVEM A,<4-FS9-%P>(P) CCALL 1,Zlower MOVE C,A MOVE A,<4-FS9-%P>(P) MOVEM C,(A) GO L43 L5034: L42: ; LINE 577 MOVEI A,0 MOVEM A,<2-FS9-%P>(P) L46: MOVE A,<2-FS9-%P>(P) CAIL A,7 GO L5035 ; LINE 578 PPUSH <0-FS9-%A-%P>(P) MOVEI A,Ztarna ADD A,<2-FS9-%P>(P) PPUSH (A) CCALL 2,Zstcmp JUMPE A,L5036 ; LINE 579 MOVE A,<2-FS9-%P>(P) MOVEM A,Ztarge ; LINE 580 SUBI P,FS9+%A+1 GO @<%A+1>(P) L5036: L45: ; LINE 577 MOVEI A,1 ADDB A,<2-FS9-%P>(P) GO L46 L5035: L44: ; LINE 583 MOVEI A,S429 PPUSH A PPUSH <0-FS9-%A-%P>(P) CCALL 2,Zcprin SUBI P,FS9+%A+1 GO @<%A+1>(P) FS9==5-1 %A==2 %A,,[ASCIZ/wrstat/] Zwrsta: ADDI P,FS10 ; LINE 599 MOVEI A,1 MOVEM A,<2-FS10-%P>(P) ; LINE 600 MOVEI A,S462 PPUSH A PPUSH [97] CCALL 2,Zcopen MOVEM A,<1-FS10-%P>(P) ; LINE 601 MOVE A,<1-FS10-%P>(P) CAME A,[-1] GO L5037 MOVEI A,S472 PPUSH A PPUSH [97] CCALL 2,Zcopen MOVEM A,<1-FS10-%P>(P) L5037: ; LINE 602 MOVE A,<1-FS10-%P>(P) CAME A,[-1] GO L5038 SUBI P,FS10+%A+1 GO @<%A+1>(P) L5038: ; LINE 603 PPUSH [10] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc ; LINE 604 PPUSH <1-FS10-%P>(P) MOVEI A,S484 PPUSH A CCALL 0,Zusern PPUSH A CCALL 3,Zcprin ; LINE 605 PPUSH <1-FS10-%A-%P>(P) PPUSH <1-FS10-%P>(P) CCALL 2,Zprcal ; LINE 606 PPUSH <1-FS10-%P>(P) MOVEI A,S490 PPUSH A CCALL 2,Zcprin ; LINE 607 PPUSH <0-FS10-%A-%P>(P) MOVEI A,<4-FS10-%P>(P) PPUSH A CCALL 2,Zfngdr ; LINE 608 MOVEI A,<4-FS10-%P>(P) MOVE A,(A) JUMPE A,L5039 ; LINE 609 MOVEI A,<4-FS10-%P>(P) PPUSH A CCALL 1,Zslowe ; LINE 610 PPUSH <1-FS10-%P>(P) MOVEI A,S494 PPUSH A MOVEI A,<4-FS10-%P>(P) PPUSH A CCALL 3,Zcprin L5039: ; LINE 612 PPUSH <0-FS10-%A-%P>(P) MOVEI A,<4-FS10-%P>(P) PPUSH A CCALL 2,Zfngnm ; LINE 613 MOVEI A,<4-FS10-%P>(P) PPUSH A CCALL 1,Zslowe ; LINE 614 PPUSH <1-FS10-%P>(P) MOVEI A,S498 PPUSH A MOVEI A,<4-FS10-%P>(P) PPUSH A CCALL 3,Zcprin ; LINE 618 MOVE A,Zcflag JUMPN A,L5041 MOVE A,Zgflag JUMPN A,L5041 MOVE A,Zkflag JUMPN A,L5041 MOVE A,Zxflag JUMPN A,L5041 MOVE A,Zbflag JUMPN A,L5041 MOVE A,Zsflag JUMPE A,L5040 L5041: ; LINE 619 MOVE A,<2-FS10-%P>(P) JUMPE A,L5042 PPUSH <1-FS10-%P>(P) MOVEI A,S501 PPUSH A CCALL 2,Zcprin MOVEI A,0 MOVEM A,<2-FS10-%P>(P) GO L5043 L5042: PPUSH [32] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5043: ; LINE 620 MOVE A,Zcflag JUMPE A,L5044 PPUSH [99] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5044: ; LINE 621 MOVE A,Zgflag JUMPE A,L5045 PPUSH [103] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5045: ; LINE 622 MOVE A,Zkflag JUMPE A,L5046 PPUSH [107] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5046: ; LINE 623 MOVE A,Zxflag JUMPE A,L5047 PPUSH [120] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5047: ; LINE 624 MOVE A,Zbflag JUMPE A,L5048 PPUSH [98] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5048: ; LINE 625 MOVE A,Zsflag JUMPE A,L5049 PPUSH [115] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5049: L5040: ; LINE 628 MOVE A,Zidebu JUMPE A,L5050 ; LINE 629 MOVE A,<2-FS10-%P>(P) JUMPE A,L5051 PPUSH <1-FS10-%P>(P) MOVEI A,S501 PPUSH A CCALL 2,Zcprin MOVEI A,0 MOVEM A,<2-FS10-%P>(P) GO L5052 L5051: PPUSH [32] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5052: ; LINE 630 PPUSH <1-FS10-%P>(P) MOVEI A,S504 PPUSH A MOVEI A,Zidebu PPUSH A CCALL 3,Zcprin L5050: ; LINE 632 MOVE A,Ztarge JUMPE A,L5053 ; LINE 633 MOVE A,<2-FS10-%P>(P) JUMPE A,L5054 PPUSH <1-FS10-%P>(P) MOVEI A,S501 PPUSH A CCALL 2,Zcprin MOVEI A,0 MOVEM A,<2-FS10-%P>(P) GO L5055 L5054: PPUSH [32] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5055: ; LINE 634 PPUSH <1-FS10-%P>(P) MOVEI A,S509 PPUSH A MOVEI A,Ztarna ADD A,Ztarge PPUSH (A) CCALL 3,Zcprin L5053: ; LINE 636 MOVE A,<2-FS10-%P>(P) JUMPN A,L5056 PPUSH [41] PPUSH <1-FS10-%P>(P) CCALL 2,Zcputc L5056: ; LINE 638 PPUSH <1-FS10-%P>(P) MOVEI A,S514 PPUSH A CCALL 2,Zcprin ; LINE 639 MOVEI A,0 MOVEM A,<3-FS10-%P>(P) L49: MOVE A,<3-FS10-%P>(P) CAIL A,7 GO L5057 PPUSH <3-FS10-%P>(P) PPUSH <1-FS10-%P>(P) CCALL 2,Zprpht L48: MOVEI A,1 ADDB A,<3-FS10-%P>(P) GO L49 L5057: L47: ; LINE 640 PPUSH <1-FS10-%P>(P) CCALL 1,Zcclos SUBI P,FS10+%A+1 GO @<%A+1>(P) FS10==54-1 %A==2 %A,,[ASCIZ/prphtm/] Zprpht: ADDI P,FS11 ; LINE 651 MOVEI A,Zphspt ADD A,<0-FS11-%A-%P>(P) MOVE A,(A) CAMN A,[-1] GO L5058 ; LINE 652 PPUSH <1-FS11-%A-%P>(P) MOVEI A,Zphsnm ADD A,<0-FS11-%A-%P>(P) PPUSH (A) CCALL 2,Zcprin ; LINE 653 MOVEI A,Zphsnm ADD A,<0-FS11-%A-%P>(P) MOVE A,(A) MOVE A,1(A) JUMPN A,L5059 PPUSH [32] PPUSH <1-FS11-%A-%P>(P) CCALL 2,Zcputc L5059: ; LINE 654 PPUSH <1-FS11-%A-%P>(P) MOVEI A,S517 PPUSH A CCALL 2,Zcprin ; LINE 655 MOVEI A,Zphspt ADD A,<0-FS11-%A-%P>(P) PPUSH (A) PPUSH <1-FS11-%A-%P>(P) CCALL 2,Zpr60t ; LINE 656 PPUSH <1-FS11-%A-%P>(P) MOVEI A,S521 PPUSH A CCALL 2,Zcprin ; LINE 657 MOVEI A,Zphset ADD A,<0-FS11-%A-%P>(P) PPUSH (A) PPUSH <1-FS11-%A-%P>(P) CCALL 2,Zpr60t ; LINE 658 PPUSH [10] PPUSH <1-FS11-%A-%P>(P) CCALL 2,Zcputc L5058: SUBI P,FS11+%A+1 GO @<%A+1>(P) FS11==1-1 %A==2 %A,,[ASCIZ/perasm/] Zperas: ADDI P,FS12 ; LINE 679 PPUSH <1-FS12-%A-%P>(P) MOVEI A,<2-FS12-%P>(P) PPUSH A CCALL 2,Zstcpy MOVEM A,<1-FS12-%P>(P) ; LINE 680 MOVEI A,S525 PPUSH A PPUSH <1-FS12-%P>(P) CCALL 2,Zstcpy MOVEM A,<1-FS12-%P>(P) ; LINE 681 PPUSH <0-FS12-%A-%P>(P) PPUSH <1-FS12-%P>(P) CCALL 2,Zstcpy MOVEM A,<1-FS12-%P>(P) ; LINE 682 MOVEI A,S529 PPUSH A PPUSH <1-FS12-%P>(P) CCALL 2,Zstcpy MOVEM A,<1-FS12-%P>(P) ; LINE 686 MOVEI A,S534 PPUSH A MOVEI A,<2-FS12-%P>(P) PPUSH A CCALL 2,Zexecs JUMPE A,L5060 ; LINE 687 MOVEI A,S548 PPUSH A CCALL 1,Zcprin ; LINE 688 MOVEI A,1 SUBI P,FS12+%A+1 GO @<%A+1>(P) L5060: ; LINE 693 PPUSH <1-FS12-%A-%P>(P) MOVEI A,<2-FS12-%P>(P) PPUSH A CCALL 2,Zstcpy MOVEM A,<1-FS12-%P>(P) ; LINE 694 MOVEI A,S569 PPUSH A MOVE A,Ztarge JUMPN A,L5061 MOVEI A,3 GO L5062 L5061: MOVEI A,4 L5062: MOVE C,<1-FS12-%P>(P) SUB C,A PPUSH C CCALL 2,Zstcpy MOVEM A,<1-FS12-%P>(P) ; LINE 698 MOVEI A,<2-FS12-%P>(P) PPUSH A PPUSH [114] CCALL 2,Zcopen MOVEM A,<102-FS12-%P>(P) ; LINE 699 MOVE A,<102-FS12-%P>(P) CAMN A,[-1] GO L5063 L51: ; LINE 701 PPUSH <102-FS12-%P>(P) CCALL 1,Zcgetc MOVEM A,<103-FS12-%P>(P) JUMPLE A,L5064 ; LINE 702 MOVE A,<103-FS12-%P>(P) CAIE A,45 GO L5065 ; LINE 703 PPUSH <102-FS12-%P>(P) CCALL 1,Zcgetc MOVEM A,<103-FS12-%P>(P) ; LINE 704 PPUSH <103-FS12-%P>(P) CCALL 1,Zdigit JUMPE A,L51 L53: ; LINE 705 PPUSH <103-FS12-%P>(P) CCALL 1,Zdigit JUMPE A,L5066 PPUSH <102-FS12-%P>(P) CCALL 1,Zcgetc MOVEM A,<103-FS12-%P>(P) GO L53 L5066: L52: ; LINE 706 MOVE A,<103-FS12-%P>(P) CAIE A,9 GO L51 ; LINE 707 MOVEI A,S573 PPUSH A CCALL 1,Zcprin ; LINE 708 PPUSH <102-FS12-%P>(P) CCALL 1,Zcclos ; LINE 709 MOVEI A,1 SUBI P,FS12+%A+1 GO @<%A+1>(P) L5065: GO L51 L5064: L50: ; LINE 712 PPUSH <102-FS12-%P>(P) CCALL 1,Zcclos ; LINE 713 MOVEI A,<2-FS12-%P>(P) PPUSH A CCALL 1,Zdelet L5063: ; LINE 715 MOVEI A,0 SUBI P,FS12+%A+1 GO @<%A+1>(P) SUBI P,FS12+%A+1 GO @<%A+1>(P) FS12==104-1 %A==1 %A,,[ASCIZ/digit/] Zdigit: ADDI P,FS13 ; LINE 719 MOVE A,<0-FS13-%A-%P>(P) CAIGE A,48 GO L5067 MOVE A,<0-FS13-%A-%P>(P) CAILE A,57 GO L5067 MOVEI A,1 GO L5068 L5067: MOVEI A,0 L5068: SUBI P,FS13+%A+1 GO @<%A+1>(P) SUBI P,FS13+%A+1 GO @<%A+1>(P) FS13==1-1 %A==10 %A,,[ASCIZ/sconcat/] Zsconc: ADDI P,FS14 ; LINE 736 MOVE A,<0-FS14-%A-%P>(P) MOVEM A,<3-FS14-%P>(P) ; LINE 737 MOVEI A,<2-FS14-%A-%P>(P) MOVEM A,<1-FS14-%P>(P) L55: ; LINE 739 SETO A, ADDB A,<1-FS14-%A-%P>(P) JUMPL A,L5069 ; LINE 740 MOVEI B,1 MOVE A,<1-FS14-%P>(P) ADDM B,<1-FS14-%P>(P) MOVE A,(A) MOVEM A,<2-FS14-%P>(P) L57: ; LINE 741 MOVEI B,1 MOVE A,<2-FS14-%P>(P) ADDM B,<2-FS14-%P>(P) MOVE A,(A) MOVEM A,<4-FS14-%P>(P) JUMPE A,L5070 MOVEI B,1 MOVE A,<3-FS14-%P>(P) ADDM B,<3-FS14-%P>(P) MOVE C,<4-FS14-%P>(P) MOVEM C,(A) GO L57 L5070: L56: GO L55 L5069: L54: ; LINE 744 MOVE A,<3-FS14-%P>(P) MOVEI C,0 MOVEM C,(A) ; LINE 745 MOVE A,<0-FS14-%A-%P>(P) SUBI P,FS14+%A+1 GO @<%A+1>(P) SUBI P,FS14+%A+1 GO @<%A+1>(P) FS14==5-1 %A==1 %A,,[ASCIZ/slower/] Zslowe: ADDI P,FS15 L59: ; LINE 757 MOVE A,<0-FS15-%A-%P>(P) MOVE A,(A) MOVEM A,<1-FS15-%P>(P) JUMPE A,L5071 MOVEI B,1 MOVE A,<0-FS15-%A-%P>(P) ADDM B,<0-FS15-%A-%P>(P) PPUSH <1-FS15-%P>(P) MOVEM A,<2-FS15-%P>(P) CCALL 1,Zlower MOVE C,A MOVE A,<2-FS15-%P>(P) MOVEM C,(A) GO L59 L5071: L58: SUBI P,FS15+%A+1 GO @<%A+1>(P) FS15==3-1 .PDATA CONSTANTS END