TITLE c31 RADIX 10. .INSRT NC .CODE ENTRY Zacore ENTRY Zacorp ENTRY ZlcJno ENTRY ZflcJn ENTRY Zcore ENTRY Zcorep ENTRY Zcbn ENTRY Znfunc ENTRY Zlinen ENTRY Zexprl ENTRY Zttxle ENTRY ZcurJo ENTRY Ztempl ENTRY Zautol ENTRY Zaquot ENTRY Zframe ENTRY Zobjmo ENTRY ZfJerr ENTRY Zargop ENTRY ZfJmac ENTRY ZfJnod ENTRY Zfidn ENTRY Zntw ENTRY ZeofJn ENTRY Zaflag ENTRY Zciln ENTRY ZintJs ENTRY Zallre ENTRY Zallme ENTRY Zanywh ENTRY ZfnJer ENTRY ZfnJno ENTRY ZfnJty ENTRY Zoptio ENTRY ZfnJma ENTRY ZtypeJ ENTRY Znodel ENTRY Zopbop ENTRY Zftype ENTRY Zswloc ENTRY Zmain ENTRY ZsJall ENTRY Zerrx ENTRY Zfhead ENTRY Zstmt ENTRY Zftail ENTRY Zclean ENTRY Zgette ENTRY Zttemp ENTRY Zastmt ENTRY Zcgswi ENTRY Zexpr EXTERN Zxoplo EXTERN Ztsize EXTERN Ztalig EXTERN Zcalig EXTERN Zretre EXTERN Ztpoin EXTERN Zspoin EXTERN Ztrdt EXTERN Zprdt EXTERN Zconf EXTERN Zrtopp EXTERN Zrtopl EXTERN Zmacta EXTERN Zopreg EXTERN Zopmem EXTERN ZoffJo EXTERN Zntype EXTERN Znmem EXTERN Znac EXTERN Znpc EXTERN Znreg EXTERN ZfltJh EXTERN Zopdop EXTERN Zadope EXTERN Zcgass EXTERN Zcgcal EXTERN Zcgcom EXTERN Zcgexp EXTERN Zcgflo EXTERN Zcgidn EXTERN Zcgind EXTERN Zcgint EXTERN Zcglse EXTERN Zcgmov EXTERN Zcgop EXTERN Zcgqma EXTERN Zcgstr EXTERN Zconv EXTERN Zconvd EXTERN Zconve EXTERN Zconvx EXTERN ZeJall EXTERN Zintco EXTERN Zjumpv EXTERN Zmkeno EXTERN Zmmove EXTERN Zopt EXTERN Ztaddr EXTERN Ztelis EXTERN Ztfarg EXTERN Ztexpr EXTERN Ztpadd EXTERN Ztpcom EXTERN Ztpsub EXTERN Ztptro EXTERN Zttexp EXTERN Ztxidn EXTERN Ztxinc EXTERN Ztxpr2 EXTERN Ztxpr3 EXTERN Zelist EXTERN Zro2p EXTERN Zchoos EXTERN Zmkarr EXTERN Zmkptr EXTERN Zto2p EXTERN ZTCHAR EXTERN ZTINT EXTERN ZTFLOA EXTERN ZTDOUB EXTERN ZTLONG EXTERN ZTUNSI EXTERN ZTUNDE EXTERN ZTPCHA EXTERN ZTACHA EXTERN ZTFINT EXTERN Zcprin EXTERN Zcexit EXTERN Zundfo EXTERN Zatoi EXTERN Zgetve EXTERN ZregJi EXTERN Zrtypt EXTERN Ztypci EXTERN Zxopen EXTERN Zmpure EXTERN ZreadJ EXTERN Zalign EXTERN Zmepil EXTERN Zendca EXTERN Zcclos EXTERN Zmaxer EXTERN Zerror EXTERN Zmprol EXTERN Zmpdat EXTERN Zstrin EXTERN Zln EXTERN Zilabe EXTERN Zjumpn EXTERN Zjumpz EXTERN Zjump EXTERN Zjumpe EXTERN Zcretu EXTERN Zmtswi EXTERN Zmlabc EXTERN Zmetsw EXTERN Zmlswi EXTERN Zmint EXTERN Zmelsw .UDATA Zftype: BLOCK 1 Zacore: BLOCK 1350 .IDATA Zacorp: Zacore ZlcJno: 1 .UDATA ZflcJn: BLOCK 1 Zcore: BLOCK 1 Zcorep: BLOCK 1 .IDATA Zcbn: 0 Znfunc: 0 Zlinen: 1 Zexprl: 0 Zttxle: 0 .UDATA ZcurJo: BLOCK 1 .IDATA Ztempl: 0 Zautol: 0 Zframe: 0 .UDATA ZintJs: BLOCK 1 Zargop: BLOCK 1 .IDATA Zobjmo: -1 ZfJerr: -1 ZfJmac: -1 ZfJnod: -1 Zfidn: -1 Zntw: 0 2 6 14 3 1 7 4 ZeofJn: 0 Zaflag: 0 Zaquot: 0 Zciln: 5000 .UDATA ZfnJer: BLOCK 1 ZfnJma: BLOCK 1 ZfnJno: BLOCK 1 ZfnJty: BLOCK 1 Zoptio: BLOCK 1 .IDATA ZtypeJ: 0 0 0 0 0 0 4 4 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 5 4 4 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1 0 1 4 3 5 5 1 7 1 4 0 0 Znodel: 1 1 4 2 2 2 3 3 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5 3 2 3 3 5 4 3 3 6 3 3 1 1 Zopbop: 0 0 127 126 124 125 123 121 0 0 0 0 0 0 0 6 7 86 90 88 80 76 72 68 64 0 0 0 0 0 0 0 82 84 84 82 64 68 72 76 80 86 88 90 92 93 0 122 120 0 Zallre: 1 -1 Zallme: 2 -1 Zanywh: 3 0 Zswloc: 1 0 .CODE .PDATA S0: 116 0 S2: 98 0 S4: 45 51 52 51 53 57 55 51 56 51 54 56 0 S17: 80 104 97 115 101 32 67 32 99 97 108 108 101 100 32 119 105 116 104 32 116 111 111 32 102 101 119 32 97 114 103 117 109 101 110 116 115 46 10 0 .CODE %A==2 %A,,[ASCIZ/main/] Zmain: ADDI P,FS1 ; LINE 102 MOVE A,<0-FS1-%A-%P>(P) CAIL A,6 GO L5000 ; LINE 103 MOVEI A,S17 PPUSH A CCALL 1,Zcprin ; LINE 104 PPUSH [100] CCALL 1,Zcexit L5000: ; LINE 107 MOVEI A,Ztsize MOVE A,1(A) MOVEM A,ZintJs ; LINE 108 PPUSH [96] CCALL 1,Zundfo JUMPN A,L5001 MOVEI A,1 GO L5002 L5001: MOVEI A,0 L5002: MOVEM A,Zargop ; LINE 112 MOVEI A,Zrtopp MOVE A,10(A) MOVEM A,<2-FS1-%P>(P) ; LINE 113 MOVE A,<2-FS1-%P>(P) JUMPL A,L5003 ; LINE 114 MOVEI A,Zrtopl ADD A,<2-FS1-%P>(P) MOVE A,(A) MOVEM A,<2-FS1-%P>(P) ; LINE 115 MOVE A,<2-FS1-%P>(P) JUMPL A,L5004 ; LINE 116 MOVE A,<2-FS1-%P>(P) IMULI A,7 MOVEI C,Zxoplo ADD C,A MOVE A,(C) MOVEI C,Zswloc MOVEM A,(C) ; LINE 117 MOVE A,<2-FS1-%P>(P) IMULI A,7 ADDI A,1 MOVEI C,Zxoplo ADD C,A MOVE A,(C) MOVEI C,Zswloc MOVEM A,1(C) L5004: L5003: ; LINE 121 MOVE A,<1-FS1-%A-%P>(P) MOVE A,1(A) MOVEM A,<4-FS1-%P>(P) L1: ; LINE 122 MOVEI B,1 MOVE A,<4-FS1-%P>(P) ADDM B,<4-FS1-%P>(P) MOVE A,(A) MOVEM A,<1-FS1-%P>(P) JUMPE A,L5005 MOVE A,<1-FS1-%P>(P) SUBI A,97 JUMPL A,L5006 CAILE A,97-97 GO L5006 GO @(A)[ L3 ] L3: ; LINE 123 MOVEI A,1 MOVEM A,Zaflag GO L2 L5006: L2: GO L1 L5005: L0: ; LINE 126 MOVE A,<1-FS1-%A-%P>(P) MOVE A,1(A) MOVEM A,Zoptio ; LINE 127 MOVE A,<1-FS1-%A-%P>(P) MOVE A,2(A) MOVEM A,ZfnJer ; LINE 128 MOVE A,<1-FS1-%A-%P>(P) MOVE A,3(A) MOVEM A,ZfnJno ; LINE 129 MOVE A,<1-FS1-%A-%P>(P) MOVE A,4(A) MOVEM A,ZfnJty ; LINE 130 MOVE A,<1-FS1-%A-%P>(P) MOVE A,5(A) MOVEM A,ZfnJma ; LINE 132 MOVEI A,6600 MOVEM A,<3-FS1-%P>(P) ; LINE 133 MOVE A,<0-FS1-%A-%P>(P) CAIG A,6 GO L5007 MOVE A,<1-FS1-%A-%P>(P) PPUSH 6(A) CCALL 1,Zatoi MOVEM A,<2-FS1-%P>(P) CAIG A,1000 GO L5008 MOVE A,<2-FS1-%P>(P) MOVEM A,<3-FS1-%P>(P) L5008: L5007: ; LINE 135 PPUSH <3-FS1-%P>(P) CCALL 1,Zgetve MOVEM A,Zcore ; LINE 136 CCALL 0,ZregJi ; LINE 138 CCALL 0,Zrtypt ; LINE 139 CCALL 0,Ztypci ; LINE 141 PPUSH ZfnJma PPUSH [97] MOVEI A,S0 PPUSH A CCALL 3,Zxopen MOVEM A,ZfJmac ; LINE 142 MOVE A,Zobjmo JUMPE A,L5009 CCALL 0,Zmpure L5009: ; LINE 143 CCALL 0,ZsJall ; LINE 145 PPUSH ZfnJno PPUSH [114] MOVEI A,S2 PPUSH A CCALL 3,Zxopen MOVEM A,ZfJnod L5: ; LINE 146 MOVE A,ZeofJn JUMPN A,L5010 ; LINE 147 MOVE A,ZlcJno MOVEM A,ZflcJn ; LINE 148 MOVE A,Zcore MOVEM A,Zcorep ; LINE 149 MOVE A,Zcbn AOS Zcbn L7: ; LINE 151 CCALL 0,ZreadJ CAIN A,89 GO L5011 ; LINE 152 MOVE A,ZeofJn JUMPN A,L6 ; LINE 153 MOVE A,<3-FS1-%P>(P) SUBI A,6 ADD A,Zcore MOVE C,Zcorep CAMGE C,A GO L5012 ; LINE 154 PPUSH [4013] CCALL 1,Zerrx L5012: GO L7 L5011: L6: ; LINE 157 MOVE A,ZeofJn JUMPN A,L5013 ; LINE 158 MOVE A,Zcorep PPUSH -5(A) MOVE A,Zcorep PPUSH -4(A) MOVE A,Zcorep PPUSH -1(A) CCALL 3,Zfhead ; LINE 159 MOVE A,Zcorep MOVE A,-2(A) MOVEM A,Zautol MOVEM A,Zframe ; LINE 160 MOVE A,Zcorep PPUSH -3(A) CCALL 1,Zstmt ; LINE 161 PPUSH Zframe MOVE A,Znac SUBI A,1 PPUSH A CCALL 2,Zalign MOVEM A,Zframe ; LINE 162 CCALL 0,Zmepil ; LINE 163 CCALL 0,Zftail L5013: GO L5 L5010: L4: ; LINE 166 CCALL 0,Zendca ; LINE 167 PPUSH ZfJmac CCALL 1,Zcclos ; LINE 168 PPUSH [0] CCALL 1,Zclean SUBI P,FS1+%A+1 GO @<%A+1>(P) FS1==5-1 %A==1 %A,,[ASCIZ/cleanup/] Zclean: ADDI P,FS2 ; LINE 180 MOVE A,<0-FS2-%A-%P>(P) JUMPE A,L5014 MOVE A,<0-FS2-%A-%P>(P) GO L5015 L5014: MOVE A,Zmaxer CAIGE A,2000 GO L5016 MOVEI A,1 GO L5017 L5016: MOVEI A,0 L5017: L5015: PPUSH A CCALL 1,Zcexit SUBI P,FS2+%A+1 GO @<%A+1>(P) FS2==1-1 %A==5 %A,,[ASCIZ/errx/] Zerrx: ADDI P,FS3 ; LINE 190 PPUSH <0-FS3-%A-%P>(P) PPUSH Zlinen PPUSH <1-FS3-%A-%P>(P) PPUSH <2-FS3-%A-%P>(P) PPUSH <3-FS3-%A-%P>(P) PPUSH <4-FS3-%A-%P>(P) CCALL 6,Zerror SUBI P,FS3+%A+1 GO @<%A+1>(P) FS3==1-1 %A==3 %A,,[ASCIZ/fhead/] Zfhead: ADDI P,FS4 ; LINE 215 MOVEI A,1 ADDB A,Znfunc ; LINE 216 PPUSH <1-FS4-%A-%P>(P) CCALL 1,Zto2p MOVEM A,Zftype ; LINE 217 MOVE A,<0-FS4-%A-%P>(P) MOVEM A,Zfidn ; LINE 218 MOVE A,Zobjmo JUMPE A,L5018 CCALL 0,Zmpure L5018: ; LINE 219 PPUSH Znfunc PPUSH Zfidn PPUSH <2-FS4-%A-%P>(P) CCALL 3,Zmprol SUBI P,FS4+%A+1 GO @<%A+1>(P) FS4==1-1 %A==0 %A,,[ASCIZ/ftail/] Zftail: ADDI P,FS5 SUBI P,FS5+%A+1 GO @<%A+1>(P) FS5==1-1 %A==1 %A,,[ASCIZ/gettemp/] Zgette: ADDI P,FS6 ; LINE 242 MOVE A,<0-FS6-%A-%P>(P) PPUSH 1(A) PPUSH [1] CCALL 2,Zttemp SUBI P,FS6+%A+1 GO @<%A+1>(P) SUBI P,FS6+%A+1 GO @<%A+1>(P) FS6==1-1 %A==2 %A,,[ASCIZ/ttemp/] Zttemp: ADDI P,FS7 ; LINE 255 PPUSH Ztempl MOVE A,<0-FS7-%A-%P>(P) PPUSH 2(A) CCALL 2,Zalign MOVEM A,Ztempl MOVEM A,<1-FS7-%P>(P) ; LINE 256 MOVE A,<0-FS7-%A-%P>(P) MOVE A,1(A) IMUL A,<1-FS7-%A-%P>(P) ADDB A,Ztempl ; LINE 257 MOVE A,Ztempl CAMG A,Zframe GO L5019 MOVE A,Ztempl MOVEM A,Zframe L5019: ; LINE 258 MOVE A,<1-FS7-%P>(P) SUBI P,FS7+%A+1 GO @<%A+1>(P) SUBI P,FS7+%A+1 GO @<%A+1>(P) FS7==2-1 %A==0 %A,,[ASCIZ/s_alloc/] ZsJall: ADDI P,FS8 ; LINE 269 MOVE A,Zobjmo CAIN A,3 GO L5020 CCALL 0,Zmpdat L5020: ; LINE 270 CCALL 0,Zstrin SUBI P,FS8+%A+1 GO @<%A+1>(P) FS8==1-1 %A==1 %A,,[ASCIZ/stmt/] Zstmt: ADDI P,FS9 ; LINE 296 MOVE A,<0-FS9-%A-%P>(P) MOVE A,(A) CAIE A,84 GO L5021 MOVE A,<0-FS9-%A-%P>(P) PPUSH 1(A) CCALL 1,Zstmt MOVE A,<0-FS9-%A-%P>(P) PPUSH 2(A) CCALL 1,Zstmt GO L5022 L5021: ; LINE 297 PPUSH <0-FS9-%A-%P>(P) CCALL 1,Zastmt L5022: SUBI P,FS9+%A+1 GO @<%A+1>(P) FS9==1-1 %A==1 %A,,[ASCIZ/astmt/] Zastmt: ADDI P,FS10 L9: ; LINE 312 ; LINE 314 SKIPE <0-FS10-%A-%P>(P) GO L5023 SUBI P,FS10+%A+1 GO @<%A+1>(P) L5023: ; LINE 315 MOVE A,<0-FS10-%A-%P>(P) MOVE A,(A) MOVEM A,<3-FS10-%P>(P) MOVEM A,ZcurJo ; LINE 316 MOVE A,<3-FS10-%P>(P) SUBI A,80 JUMPL A,L5024 CAILE A,90-80 GO L5024 GO @(A)[ L12 L13 L14 L15 L16 L11 L5024 L5024 L17 L5024 L18 ] L11: ; LINE 318 PPUSH <0-FS10-%A-%P>(P) CCALL 1,Zln ; LINE 319 MOVE A,Zciln AOS Zciln MOVEM A,<4-FS10-%P>(P) ; LINE 320 MOVE A,<0-FS10-%A-%P>(P) PPUSH 2(A) MOVE A,<0-FS10-%A-%P>(P) PPUSH 4(A) PPUSH <4-FS10-%P>(P) CCALL 3,Zcgswi ; LINE 321 MOVE A,<0-FS10-%A-%P>(P) PPUSH 3(A) CCALL 1,Zstmt ; LINE 322 PPUSH <4-FS10-%P>(P) CCALL 1,Zilabe ; LINE 323 SUBI P,FS10+%A+1 GO @<%A+1>(P) L12: ; LINE 325 PPUSH <0-FS10-%A-%P>(P) CCALL 1,Zln ; LINE 326 MOVE A,<0-FS10-%A-%P>(P) PPUSH 2(A) CCALL 1,Ztexpr PPUSH A CCALL 1,Zopt MOVEM A,<6-FS10-%P>(P) JUMPN A,L5025 SUBI P,FS10+%A+1 GO @<%A+1>(P) L5025: ; LINE 327 MOVE A,<6-FS10-%P>(P) MOVE A,(A) CAIE A,126 GO L5026 ; LINE 328 MOVE A,<6-FS10-%P>(P) MOVEM A,<7-FS10-%P>(P) MOVE A,7(A) JUMPE A,L5027 MOVE A,<0-FS10-%A-%P>(P) PPUSH 3(A) CCALL 1,Zstmt GO L5028 L5027: ; LINE 329 MOVE A,<0-FS10-%A-%P>(P) PPUSH 4(A) CCALL 1,Zstmt L5028: GO L5029 L5026: ; LINE 331 MOVE A,<0-FS10-%A-%P>(P) MOVE A,3(A) MOVEM A,<5-FS10-%P>(P) ; LINE 332 MOVE A,<5-FS10-%P>(P) MOVE A,(A) CAIE A,82 GO L5030 ; LINE 333 PPUSH <6-FS10-%P>(P) MOVE A,<5-FS10-%P>(P) PPUSH 1(A) CCALL 2,Zjumpn ; LINE 334 MOVE A,<0-FS10-%A-%P>(P) MOVE A,4(A) JUMPE A,L5031 MOVE A,<0-FS10-%A-%P>(P) PPUSH 4(A) CCALL 1,Zstmt L5031: GO L5032 L5030: ; LINE 337 PPUSH <6-FS10-%P>(P) MOVE A,Zciln AOS Zciln MOVEM A,<1-FS10-%P>(P) MOVEM A,<2-FS10-%P>(P) PPUSH A CCALL 2,Zjumpz ; LINE 338 MOVE A,<0-FS10-%A-%P>(P) PPUSH 3(A) CCALL 1,Zstmt ; LINE 339 MOVE A,<0-FS10-%A-%P>(P) MOVE A,4(A) JUMPE A,L5033 ; LINE 340 MOVE A,Zciln AOS Zciln MOVEM A,<2-FS10-%P>(P) PPUSH A CCALL 1,Zjump ; LINE 341 PPUSH <1-FS10-%P>(P) CCALL 1,Zilabe ; LINE 342 MOVE A,<0-FS10-%A-%P>(P) PPUSH 4(A) CCALL 1,Zstmt L5033: ; LINE 344 PPUSH <2-FS10-%P>(P) CCALL 1,Zilabe L5032: L5029: ; LINE 347 SUBI P,FS10+%A+1 GO @<%A+1>(P) L13: ; LINE 349 PPUSH <0-FS10-%A-%P>(P) CCALL 1,Zln ; LINE 350 MOVE A,<0-FS10-%A-%P>(P) PPUSH 2(A) CCALL 1,Ztexpr MOVEM A,<6-FS10-%P>(P) JUMPN A,L5034 SUBI P,FS10+%A+1 GO @<%A+1>(P) L5034: ; LINE 351 MOVE A,<6-FS10-%P>(P) MOVE A,1(A) CAME A,ZTINT GO L5035 PPUSH <6-FS10-%P>(P) CCALL 1,Zjumpe GO L5036 L5035: ; LINE 352 PPUSH [2009] CCALL 1,Zerrx L5036: ; LINE 353 SUBI P,FS10+%A+1 GO @<%A+1>(P) L14: ; LINE 355 MOVE A,<0-FS10-%A-%P>(P) PPUSH 1(A) CCALL 1,Zjump ; LINE 356 SUBI P,FS10+%A+1 GO @<%A+1>(P) L15: ; LINE 358 MOVE A,<0-FS10-%A-%P>(P) PPUSH 1(A) CCALL 1,Zilabe ; LINE 359 MOVE A,<0-FS10-%A-%P>(P) MOVE A,2(A) MOVEM A,<0-FS10-%A-%P>(P) GO L9 L16: ; LINE 362 MOVE A,<0-FS10-%A-%P>(P) PPUSH 1(A) CCALL 1,Zstmt ; LINE 363 MOVE A,<0-FS10-%A-%P>(P) PPUSH 2(A) CCALL 1,Zstmt ; LINE 364 SUBI P,FS10+%A+1 GO @<%A+1>(P) L17: ; LINE 366 PPUSH <0-FS10-%A-%P>(P) CCALL 1,Zln ; LINE 367 MOVE A,<0-FS10-%A-%P>(P) MOVE A,2(A) JUMPE A,L5037 MOVE A,<0-FS10-%A-%P>(P) PPUSH 2(A) CCALL 1,Ztexpr PPUSH A MOVE A,Zftype PPUSH 3(A) CCALL 2,Zconve MOVEM A,<6-FS10-%P>(P) GO L5038 L5037: ; LINE 368 MOVEI A,0 MOVEM A,<6-FS10-%P>(P) L5038: ; LINE 369 PPUSH <6-FS10-%P>(P) CCALL 1,Zcretu ; LINE 370 SUBI P,FS10+%A+1 GO @<%A+1>(P) L18: ; LINE 372 PPUSH <0-FS10-%A-%P>(P) CCALL 1,Zln ; LINE 373 MOVE A,<0-FS10-%A-%P>(P) PPUSH 2(A) CCALL 1,Ztexpr PPUSH A MOVEI A,Zanywh PPUSH A CCALL 2,Zexpr ; LINE 374 SUBI P,FS10+%A+1 GO @<%A+1>(P) L5024: L10: GO L9 L8: SUBI P,FS10+%A+1 GO @<%A+1>(P) FS10==8-1 %A==3 %A,,[ASCIZ/cgswitch/] Zcgswi: ADDI P,FS11 ; LINE 392 PPUSH <0-FS11-%A-%P>(P) CCALL 1,Ztexpr MOVEM A,<1-FS11-%P>(P) ; LINE 393 MOVEI A,85 MOVEM A,ZcurJo ; LINE 394 PPUSH <1-FS11-%P>(P) PPUSH [3] CCALL 2,Zconv PPUSH A MOVEI A,Zswloc PPUSH A CCALL 2,Zexpr MOVEM A,<1-FS11-%P>(P) ; LINE 395 SKIPE <1-FS11-%P>(P) GO L5039 SUBI P,FS11+%A+1 GO @<%A+1>(P) L5039: ; LINE 396 MOVE A,<1-FS11-%P>(P) MOVE A,2(A) MOVEM A,<13-FS11-%P>(P) ; LINE 397 MOVE A,<1-FS11-%P>(P) MOVE A,3(A) MOVEM A,<14-FS11-%P>(P) ; LINE 398 MOVNI A,--1 MOVEM A,<2-FS11-%P>(P) ; LINE 399 MOVEI A,0 MOVEM A,<3-FS11-%P>(P) ; LINE 400 MOVEI A,Zacore MOVEM A,<8-FS11-%P>(P) MOVEM A,<12-FS11-%P>(P) ; LINE 401 MOVEI A,Zacore ADDI A,1350 MOVEM A,<9-FS11-%P>(P) ; LINE 402 MOVE A,<1-FS11-%A-%P>(P) MOVEM A,<7-FS11-%P>(P) L20: ; LINE 403 SKIPN <7-FS11-%P>(P) GO L5040 ; LINE 404 MOVE A,<7-FS11-%P>(P) MOVE A,(A) SUBI A,86 JUMPL A,L27 CAILE A,87-86 GO L27 GO @(A)[ L22 L26 ] L22: ; LINE 406 MOVE A,<7-FS11-%P>(P) MOVE A,2(A) MOVEM A,<11-FS11-%P>(P) ; LINE 407 MOVE A,<8-FS11-%P>(P) MOVEM A,<10-FS11-%P>(P) L25: MOVE A,<10-FS11-%P>(P) CAML A,<12-FS11-%P>(P) GO L5042 ; LINE 408 MOVE A,<10-FS11-%P>(P) MOVE A,(A) CAME A,<11-FS11-%P>(P) GO L5043 PPUSH [2020] CCALL 1,Zerrx GO L23 L5043: L24: ; LINE 407 MOVE A,<10-FS11-%P>(P) ADDI A,2 MOVEM A,<10-FS11-%P>(P) GO L25 L5042: L23: ; LINE 409 MOVE A,<10-FS11-%P>(P) CAME A,<12-FS11-%P>(P) GO L5044 ; LINE 410 MOVE A,<12-FS11-%P>(P) CAMGE A,<9-FS11-%P>(P) GO L5045 PPUSH [4010] CCALL 1,Zerrx L5045: ; LINE 411 MOVEI B,1 MOVE A,<12-FS11-%P>(P) ADDM B,<12-FS11-%P>(P) MOVE C,<11-FS11-%P>(P) MOVEM C,(A) ; LINE 412 MOVEI B,1 MOVE A,<12-FS11-%P>(P) ADDM B,<12-FS11-%P>(P) MOVE C,<7-FS11-%P>(P) MOVE C,3(C) MOVEM C,(A) ; LINE 413 MOVE A,<3-FS11-%P>(P) AOS <3-FS11-%P>(P) JUMPN A,L5046 MOVE A,<11-FS11-%P>(P) MOVEM A,<4-FS11-%P>(P) MOVE A,<11-FS11-%P>(P) MOVEM A,<5-FS11-%P>(P) GO L5047 L5046: ; LINE 414 MOVE A,<11-FS11-%P>(P) CAML A,<4-FS11-%P>(P) GO L5048 MOVE A,<11-FS11-%P>(P) MOVEM A,<4-FS11-%P>(P) GO L5049 L5048: ; LINE 415 MOVE A,<11-FS11-%P>(P) CAMG A,<5-FS11-%P>(P) GO L5050 MOVE A,<11-FS11-%P>(P) MOVEM A,<5-FS11-%P>(P) L5050: L5049: L5047: L5044: GO L21 L26: ; LINE 419 MOVE A,<2-FS11-%P>(P) JUMPL A,L5051 PPUSH [2021] CCALL 1,Zerrx GO L5052 L5051: ; LINE 420 MOVE A,<7-FS11-%P>(P) MOVE A,2(A) MOVEM A,<2-FS11-%P>(P) L5052: GO L21 L27: ; LINE 423 PPUSH [6003] MOVE A,<7-FS11-%P>(P) PPUSH (A) CCALL 2,Zerrx L5041: L21: ; LINE 426 MOVE A,<7-FS11-%P>(P) MOVE A,1(A) MOVEM A,<7-FS11-%P>(P) GO L20 L5040: L19: ; LINE 429 MOVE A,<2-FS11-%P>(P) JUMPGE A,L5053 MOVE A,<2-FS11-%A-%P>(P) MOVEM A,<2-FS11-%P>(P) L5053: ; LINE 430 MOVE A,<3-FS11-%P>(P) JUMPN A,L5054 PPUSH <2-FS11-%P>(P) CCALL 1,Zjump SUBI P,FS11+%A+1 GO @<%A+1>(P) L5054: ; LINE 431 MOVE A,<5-FS11-%P>(P) SUB A,<4-FS11-%P>(P) ADDI A,1 MOVEM A,<6-FS11-%P>(P) ; LINE 433 MOVE A,<3-FS11-%P>(P) IMULI A,3 MOVE C,<6-FS11-%P>(P) CAMLE C,A GO L5055 MOVE A,<8-FS11-%P>(P) ADD A,<6-FS11-%P>(P) CAML A,<9-FS11-%P>(P) GO L5055 ; LINE 434 MOVE A,<8-FS11-%P>(P) ADD A,<6-FS11-%P>(P) MOVEM A,<12-FS11-%P>(P) ; LINE 435 MOVE A,<8-FS11-%P>(P) MOVEM A,<10-FS11-%P>(P) L30: MOVE A,<10-FS11-%P>(P) CAML A,<12-FS11-%P>(P) GO L5056 MOVE A,<10-FS11-%P>(P) MOVE C,<2-FS11-%P>(P) MOVEM C,(A) L29: MOVEI A,1 ADDB A,<10-FS11-%P>(P) GO L30 L5056: L28: ; LINE 436 MOVE A,<1-FS11-%A-%P>(P) MOVEM A,<7-FS11-%P>(P) L32: ; LINE 437 SKIPN <7-FS11-%P>(P) GO L5057 ; LINE 438 MOVE A,<7-FS11-%P>(P) MOVE A,(A) CAIE A,86 GO L5058 MOVE A,<7-FS11-%P>(P) MOVE A,2(A) SUB A,<4-FS11-%P>(P) ADD A,<8-FS11-%P>(P) MOVE C,<7-FS11-%P>(P) MOVE C,3(C) MOVEM C,(A) L5058: ; LINE 439 MOVE A,<7-FS11-%P>(P) MOVE A,1(A) MOVEM A,<7-FS11-%P>(P) GO L32 L5057: L31: ; LINE 441 PPUSH <13-FS11-%P>(P) PPUSH <14-FS11-%P>(P) PPUSH <4-FS11-%P>(P) PPUSH <5-FS11-%P>(P) PPUSH <2-FS11-%P>(P) CCALL 5,Zmtswi ; LINE 442 MOVE A,<8-FS11-%P>(P) MOVEM A,<10-FS11-%P>(P) L35: MOVE A,<10-FS11-%P>(P) CAML A,<12-FS11-%P>(P) GO L5059 MOVE A,<10-FS11-%P>(P) PPUSH (A) CCALL 1,Zmlabc L34: MOVEI A,1 ADDB A,<10-FS11-%P>(P) GO L35 L5059: L33: ; LINE 443 PPUSH <13-FS11-%P>(P) PPUSH <14-FS11-%P>(P) PPUSH <4-FS11-%P>(P) PPUSH <5-FS11-%P>(P) PPUSH <2-FS11-%P>(P) CCALL 5,Zmetsw GO L5060 L5055: ; LINE 447 PPUSH <13-FS11-%P>(P) PPUSH <14-FS11-%P>(P) PPUSH <3-FS11-%P>(P) PPUSH <2-FS11-%P>(P) CCALL 4,Zmlswi ; LINE 448 MOVE A,<12-FS11-%P>(P) SUBI A,2 MOVEM A,<10-FS11-%P>(P) L38: MOVE A,<10-FS11-%P>(P) CAMGE A,<8-FS11-%P>(P) GO L5061 MOVE A,<10-FS11-%P>(P) PPUSH (A) CCALL 1,Zmint L37: MOVE A,<10-FS11-%P>(P) SUBI A,2 MOVEM A,<10-FS11-%P>(P) GO L38 L5061: L36: ; LINE 449 MOVE A,<12-FS11-%P>(P) SUBI A,2 MOVEM A,<10-FS11-%P>(P) L41: MOVE A,<10-FS11-%P>(P) CAMGE A,<8-FS11-%P>(P) GO L5062 MOVE A,<10-FS11-%P>(P) PPUSH 1(A) CCALL 1,Zmlabc L40: MOVE A,<10-FS11-%P>(P) SUBI A,2 MOVEM A,<10-FS11-%P>(P) GO L41 L5062: L39: ; LINE 450 PPUSH <13-FS11-%P>(P) PPUSH <14-FS11-%P>(P) PPUSH <3-FS11-%P>(P) PPUSH <2-FS11-%P>(P) CCALL 4,Zmelsw L5060: SUBI P,FS11+%A+1 GO @<%A+1>(P) FS11==15-1 %A==2 %A,,[ASCIZ/expr/] Zexpr: ADDI P,FS12 ; LINE 462 PPUSH <0-FS12-%A-%P>(P) CCALL 1,Zopt PPUSH A PPUSH <1-FS12-%A-%P>(P) CCALL 2,Zttexp SUBI P,FS12+%A+1 GO @<%A+1>(P) SUBI P,FS12+%A+1 GO @<%A+1>(P) FS12==1-1 .PDATA CONSTANTS END