TITLE c23 RADIX 10. .INSRT NC .CODE ENTRY Zdbegi ENTRY Zdgdp ENTRY Zdldp ENTRY Zdend ENTRY Zfind ENTRY Zdefin ENTRY Zastri ENTRY Zalidn ENTRY Zaeidn ENTRY Zafidn ENTRY Zafdcl ENTRY Zdmerg ENTRY Zadecl ENTRY Zmakty ENTRY Zastru ENTRY Zaostr ENTRY Zafiel ENTRY Zatidn ENTRY Zmkstr ENTRY Zmkdum ENTRY Zcbloc ENTRY Znbloc ENTRY Zclass ENTRY Ztclas ENTRY Zmtype ENTRY Zcidn ENTRY Zcdim ENTRY Zdims ENTRY Zdimp ENTRY Zstrle ENTRY ZinJty ENTRY Zparml ENTRY Znstat ENTRY Zautol ENTRY Zframe ENTRY Zfline ENTRY Zfnarg ENTRY Zobjmo ENTRY Zbtype ENTRY ZTUNSP ENTRY Zfparm ENTRY Zinitc ENTRY Zallow ENTRY Zipc ENTRY Zinitf ENTRY Zivtyp ENTRY Zietyp ENTRY Zidp ENTRY Zdict ENTRY Zdinit ENTRY Zerrci ENTRY Zafpdc ENTRY Zafdef ENTRY Ztp2o ENTRY Zchkdi ENTRY Zwdict ENTRY Zattri ENTRY Zfixdu ENTRY Zadclr ENTRY Zaiinz ENTRY Zmdata ENTRY Zmalig ENTRY Zmequ ENTRY Zmstat ENTRY Zinz ENTRY Zmchar ENTRY Zmint ENTRY Zmadco ENTRY Zmstrc ENTRY Zmfloa ENTRY Zmdoub ENTRY Zmnflo ENTRY Zmndou ENTRY Zaidec ENTRY Zmimpu ENTRY Zmzero ENTRY Zabegi ENTRY Zaend ENTRY Zmhead ENTRY Zmentr ENTRY Zextrn ENTRY Zmpure ENTRY Zsdef ENTRY Zdswap ENTRY Zswap ENTRY Zwsymt ENTRY Zdp2o ENTRY Zwtypt ENTRY Zrp2o ENTRY Zfixst EXTERN Ztsize EXTERN Ztalig EXTERN Zcalig EXTERN Ztpoin EXTERN Zntype EXTERN Znac EXTERN ZsvJar EXTERN Zlinen EXTERN Ztop EXTERN ZgetJt EXTERN Zpush EXTERN Zsetsp EXTERN ZTCHAR EXTERN ZTINT EXTERN ZTFLOA EXTERN ZTDOUB EXTERN ZTLONG EXTERN ZTUNSI EXTERN ZTUNDE EXTERN ZTPCHA EXTERN ZTACHA EXTERN ZTFINT EXTERN Zpv EXTERN ZfJnod EXTERN ZfJmac EXTERN ZfJsym EXTERN ZlcJno EXTERN Znoden EXTERN Zciln EXTERN Zsflag EXTERN Ztypin EXTERN Zputi EXTERN Zalign EXTERN Znode EXTERN Zerrx EXTERN Zmkptr EXTERN Zmkfun EXTERN Zmkarr EXTERN Zremar EXTERN Zctype EXTERN Zpop EXTERN Zmprin EXTERN ZfnJhm EXTERN Zcclos EXTERN Zxopen EXTERN Zerror EXTERN Ztypta EXTERN Zctypp EXTERN Zcrecp EXTERN Zetypp EXTERN Ztypfo EXTERN ZfnJty EXTERN Ztypxh EXTERN Zrecxl EXTERN Zfixty .IDATA Zcbloc: 0 Znbloc: 0 Zclass: -1 .UDATA Ztclas: BLOCK 1 Zmtype: BLOCK 1 Zcidn: BLOCK 1 Zcdim: BLOCK 1 Zdims: BLOCK 8 Zdimp: BLOCK 1 .IDATA Zstrle: 0 ZinJty: 0 .UDATA Zparml: BLOCK 1 .IDATA Znstat: 0 .UDATA Zautol: BLOCK 1 Zframe: BLOCK 1 Zfline: BLOCK 1 Zfnarg: BLOCK 1 .IDATA Zobjmo: -1 .UDATA Zbtype: BLOCK 1 .IDATA ZTUNSP: -1 .UDATA Zfparm: BLOCK 1 Zinitc: BLOCK 1 Zallow: BLOCK 6 Zipc: BLOCK 1 Zinitf: BLOCK 1 Zivtyp: BLOCK 1 Zietyp: BLOCK 1 Zidp: BLOCK 1 Zdict: BLOCK 1200 .IDATA Zdbegi: Zdict Zdgdp: Zdict .UDATA Zdldp: BLOCK 1 Zdend: BLOCK 1 .CODE .PDATA S0: 116 0 S2: 98 0 S4: 45 51 52 51 53 57 55 51 56 51 54 56 0 S17: 37 104 100 40 41 10 0 S24: 37 101 110 40 37 105 40 42 41 41 10 0 S36: 37 101 120 40 37 105 40 42 41 41 10 0 S48: 37 115 116 40 42 41 10 0 S56: 37 101 113 40 37 105 40 42 41 41 10 0 S68: 37 122 40 42 41 10 0 S75: 37 97 108 42 40 41 10 0 S83: 37 105 110 40 42 41 10 0 S91: 37 115 99 40 42 41 10 0 S99: 37 97 100 42 40 48 44 42 44 42 41 10 0 S112: 37 99 40 42 41 10 0 S119: 37 102 40 42 41 10 0 S126: 37 110 102 40 42 41 10 0 S134: 37 100 40 42 41 10 0 S141: 37 110 100 40 42 41 10 0 S149: 37 105 109 40 41 10 0 S156: 37 112 117 40 41 10 0 S163: 37 100 97 40 41 10 0 .CODE %A==0 %A,,[ASCIZ/dinit/] Zdinit: ADDI P,FS1 ; LINE 99 MOVEI A,Zdict ADDI A,1200 MOVEM A,Zdend MOVEM A,Zdldp ; LINE 100 CCALL 0,Ztypin SUBI P,FS1+%A+1 GO @<%A+1>(P) FS1==1-1 %A==1 %A,,[ASCIZ/afdcl/] Zafdcl: ADDI P,FS2 ; LINE 140 MOVE A,Zlinen MOVEM A,Zfline ; LINE 141 MOVE A,<0-FS2-%A-%P>(P) JUMPN A,L5000 ; LINE 142 MOVEI A,2 MOVEM A,Zclass ; LINE 143 MOVE A,ZTINT MOVEM A,Zbtype L5000: ; LINE 145 CCALL 0,Zmakty MOVEM A,<4-FS2-%P>(P) ; LINE 146 MOVE A,Zclass CAIN A,2 GO L5001 PPUSH [1019] CCALL 1,Zerrci L5001: ; LINE 147 SKIPE Zparml GO L5002 CCALL 0,Ztop ADDI A,1 MOVEM A,Zparml L5002: ; LINE 151 PPUSH [0] PPUSH Zcidn PPUSH [2] PPUSH <4-FS2-%P>(P) PPUSH Zcidn CCALL 5,Zdefin MOVEM A,<5-FS2-%P>(P) ; LINE 152 MOVEI A,1 ADDB A,Znbloc MOVEM A,Zcbloc ; LINE 153 MOVE A,ZsvJar MOVEM A,Zautol MOVEM A,Zframe ; LINE 154 MOVE A,Zsflag JUMPE A,L5003 PPUSH Zcidn PPUSH ZfJsym CCALL 2,Zputi L5003: ; LINE 158 MOVE A,Zparml MOVEM A,<1-FS2-%P>(P) MOVEM A,Zfparm ; LINE 159 MOVEI A,0 MOVEM A,Zfnarg ; LINE 160 CCALL 0,Ztop MOVEM A,<3-FS2-%P>(P) L1: ; LINE 161 MOVE A,<1-FS2-%P>(P) CAMLE A,<3-FS2-%P>(P) GO L5004 ; LINE 162 MOVE A,<1-FS2-%P>(P) MOVE A,(A) MOVEM A,<2-FS2-%P>(P) ; LINE 163 PPUSH Zcbloc PPUSH <2-FS2-%P>(P) PPUSH [4] PPUSH ZTUNSP PPUSH [-1] CCALL 5,Zdefin MOVEI B,1 MOVE C,<1-FS2-%P>(P) ADDM B,<1-FS2-%P>(P) MOVEM A,(C) ; LINE 164 MOVEI A,1 ADDB A,Zfnarg GO L1 L5004: L0: ; LINE 167 MOVE A,<5-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==0 %A,,[ASCIZ/afpdcl/] Zafpdc: ADDI P,FS3 ; LINE 187 MOVE A,Zfparm MOVEM A,<2-FS3-%P>(P) ; LINE 188 PPUSH <2-FS3-%P>(P) CCALL 1,ZgetJt MOVEM A,<3-FS3-%P>(P) ; LINE 189 MOVEI A,0 MOVEM A,<4-FS3-%P>(P) L3: ; LINE 190 MOVE A,<2-FS3-%P>(P) CAMLE A,<3-FS3-%P>(P) GO L5005 ; LINE 191 MOVEI B,1 MOVE A,<2-FS3-%P>(P) ADDM B,<2-FS3-%P>(P) MOVE A,(A) MOVEM A,<1-FS3-%P>(P) ; LINE 192 MOVE A,<1-FS3-%P>(P) MOVE A,1(A) CAME A,ZTUNSP GO L5006 MOVE A,<1-FS3-%P>(P) MOVE C,ZTINT MOVEM C,1(A) L5006: ; LINE 193 MOVE A,<1-FS3-%P>(P) MOVE A,1(A) MOVEM A,<5-FS3-%P>(P) ; LINE 194 PPUSH <4-FS3-%P>(P) MOVE A,<5-FS3-%P>(P) PPUSH 2(A) CCALL 2,Zalign MOVEM A,<4-FS3-%P>(P) ; LINE 195 MOVE A,<1-FS3-%P>(P) MOVE C,<4-FS3-%P>(P) MOVEM C,2(A) ; LINE 196 MOVE A,<5-FS3-%P>(P) MOVE A,1(A) ADDB A,<4-FS3-%P>(P) GO L3 L5005: L2: SUBI P,FS3+%A+1 GO @<%A+1>(P) FS3==6-1 %A==2 %A,,[ASCIZ/afdef/] Zafdef: ADDI P,FS4 ; LINE 213 PPUSH [89] MOVE A,<0-FS4-%A-%P>(P) PPUSH (A) MOVE A,<0-FS4-%A-%P>(P) PPUSH 1(A) CCALL 1,Ztp2o PPUSH A PPUSH <1-FS4-%A-%P>(P) PPUSH Zframe PPUSH Zfnarg CCALL 6,Znode ; LINE 214 PPUSH Zdldp PPUSH Zdend CCALL 2,Zchkdi ; LINE 215 MOVE A,Zsflag JUMPE A,L5007 ; LINE 216 PPUSH Zdldp PPUSH Zdend CCALL 2,Zwdict ; LINE 217 PPUSH [-1] PPUSH ZfJsym CCALL 2,Zputi L5007: ; LINE 219 MOVE A,Zdend MOVEM A,Zdldp ; LINE 220 MOVEI A,0 MOVEM A,Zcbloc SUBI P,FS4+%A+1 GO @<%A+1>(P) FS4==1-1 %A==2 %A,,[ASCIZ/attrib/] Zattri: ADDI P,FS5 ; LINE 236 MOVE A,Zstrle JUMPLE A,L5008 MOVEI A,52 MOVEM A,Zclass GO L5009 L5008: ; LINE 237 MOVE A,ZinJty JUMPE A,L5010 MOVEI A,4 MOVEM A,Zclass GO L5011 L5010: ; LINE 238 MOVE A,Zcbloc JUMPN A,L5012 MOVE A,<0-FS5-%A-%P>(P) MOVE B,[-5,,[ -1 3 50 53 1 L5 L6 L7 L8 L9 ]] CAMN A,(B) GO @5(B) AOBJN B,.-2 GO L10 L5: ; LINE 239 MOVEI A,2 MOVEM A,Zclass GO L4 L8: L7: L6: ; LINE 243 MOVE A,<0-FS5-%A-%P>(P) MOVEM A,Zclass GO L4 L9: ; LINE 245 PPUSH [1018] CCALL 1,Zerrx ; LINE 246 MOVEI A,2 MOVEM A,Zclass GO L4 L10: ; LINE 248 PPUSH [6009] CCALL 1,Zerrx L5013: L4: GO L5014 L5012: ; LINE 250 MOVE A,<0-FS5-%A-%P>(P) MOVEM A,Zclass L5014: L5011: L5009: ; LINE 254 MOVE A,<1-FS5-%A-%P>(P) CAME A,[-1] GO L5015 MOVE A,ZTINT MOVEM A,Zbtype GO L5016 L5015: ; LINE 255 MOVE A,<1-FS5-%A-%P>(P) MOVEM A,Zbtype L5016: SUBI P,FS5+%A+1 GO @<%A+1>(P) FS5==1-1 %A==2 %A,,[ASCIZ/astruct/] Zastru: ADDI P,FS6 ; LINE 274 SETO A, ADDB A,Zstrle ; LINE 275 PPUSH <1-FS6-%A-%P>(P) CCALL 1,ZgetJt ADDI A,1 MOVEM A,<2-FS6-%P>(P) ; LINE 276 MOVE A,<2-FS6-%P>(P) SUB A,<1-FS6-%A-%P>(P) IDIVI A,3 MOVEM A,<1-FS6-%P>(P) ; LINE 277 SKIPN <0-FS6-%A-%P>(P) GO L5017 ; LINE 278 MOVE A,<0-FS6-%A-%P>(P) PPUSH 1(A) PPUSH <1-FS6-%P>(P) PPUSH <1-FS6-%A-%P>(P) CCALL 3,Zfixdu ; LINE 279 MOVE A,<0-FS6-%A-%P>(P) MOVE A,1(A) SUBI P,FS6+%A+1 GO @<%A+1>(P) L5017: ; LINE 281 PPUSH <1-FS6-%P>(P) PPUSH <1-FS6-%A-%P>(P) CCALL 2,Zmkstr SUBI P,FS6+%A+1 GO @<%A+1>(P) SUBI P,FS6+%A+1 GO @<%A+1>(P) FS6==3-1 %A==1 %A,,[ASCIZ/aostruct/] Zaostr: ADDI P,FS7 ; LINE 295 SETO A, ADDB A,Zstrle ; LINE 296 MOVE A,<0-FS7-%A-%P>(P) ADDI A,10000 PPUSH A CCALL 1,Zfind MOVEM A,<1-FS7-%P>(P) ; LINE 297 SKIPN <1-FS7-%P>(P) GO L5018 MOVE A,<1-FS7-%P>(P) MOVE A,1(A) SUBI P,FS7+%A+1 GO @<%A+1>(P) L5018: ; LINE 298 PPUSH <0-FS7-%A-%P>(P) CCALL 1,Zmkdum MOVEM A,<2-FS7-%P>(P) ; LINE 299 PPUSH Zcbloc MOVE A,<0-FS7-%A-%P>(P) ADDI A,10000 PPUSH A PPUSH [54] PPUSH <2-FS7-%P>(P) PPUSH [0] CCALL 5,Zdefin ; LINE 300 MOVE A,<2-FS7-%P>(P) SUBI P,FS7+%A+1 GO @<%A+1>(P) SUBI P,FS7+%A+1 GO @<%A+1>(P) FS7==3-1 %A==1 %A,,[ASCIZ/astridn/] Zastri: ADDI P,FS8 ; LINE 316 MOVE A,<0-FS8-%A-%P>(P) ADDI A,10000 PPUSH A CCALL 1,Zfind MOVEM A,<1-FS8-%P>(P) ; LINE 317 SKIPN <1-FS8-%P>(P) GO L5019 ; LINE 318 MOVE A,<1-FS8-%P>(P) MOVE A,3(A) CAIE A,54 GO L5020 ; LINE 319 MOVE A,<1-FS8-%P>(P) MOVEI C,51 MOVEM C,3(A) ; LINE 320 MOVE A,<1-FS8-%P>(P) SUBI P,FS8+%A+1 GO @<%A+1>(P) L5020: ; LINE 322 PPUSH [2018] PPUSH [75] PPUSH <0-FS8-%A-%P>(P) CCALL 3,Zerrx ; LINE 323 MOVEI A,0 SUBI P,FS8+%A+1 GO @<%A+1>(P) L5019: ; LINE 325 PPUSH Zcbloc MOVE A,<0-FS8-%A-%P>(P) ADDI A,10000 PPUSH A PPUSH [51] PPUSH <0-FS8-%A-%P>(P) CCALL 1,Zmkdum PPUSH A PPUSH [0] CCALL 5,Zdefin SUBI P,FS8+%A+1 GO @<%A+1>(P) SUBI P,FS8+%A+1 GO @<%A+1>(P) FS8==2-1 %A==1 %A,,[ASCIZ/adeclr/] Zadecl: ADDI P,FS9 ; LINE 356 MOVE A,Zstrle JUMPE A,L5021 ; LINE 357 PPUSH Zcidn CCALL 1,Zpush MOVEM A,<1-FS9-%P>(P) ; LINE 358 PPUSH <0-FS9-%A-%P>(P) CCALL 1,Zpush ; LINE 359 PPUSH [-1] CCALL 1,Zpush ; LINE 360 MOVE A,<1-FS9-%P>(P) SUBI P,FS9+%A+1 GO @<%A+1>(P) L5021: ; LINE 362 MOVEI A,0 MOVEM A,<3-FS9-%P>(P) ; LINE 363 MOVE A,Zclass CAME A,[-1] GO L5022 ; LINE 364 MOVE A,<0-FS9-%A-%P>(P) MOVE A,(A) CAIE A,10 GO L5023 MOVEI A,50 GO L5024 L5023: MOVEI A,1 L5024: MOVEM A,Ztclas GO L5025 L5022: ; LINE 365 MOVE A,Zclass MOVEM A,Ztclas L5025: ; LINE 366 MOVE A,<0-FS9-%A-%P>(P) MOVE A,(A) CAIE A,10 GO L5026 MOVE A,Ztclas CAIN A,4 GO L5026 MOVE A,Ztclas CAIN A,53 GO L5026 ; LINE 367 MOVE A,Ztclas CAIN A,50 GO L5027 MOVE A,Ztclas CAIN A,2 GO L5027 ; LINE 368 PPUSH [1021] CCALL 1,Zerrci L5027: ; LINE 369 MOVEI A,50 MOVEM A,Ztclas L5026: ; LINE 371 MOVE A,Ztclas CAIE A,4 GO L5028 ; LINE 372 PPUSH Zcidn CCALL 1,Zfind MOVEM A,<3-FS9-%P>(P) JUMPN A,L5029 ; LINE 373 PPUSH [1027] CCALL 1,Zerrci ; LINE 374 MOVEI A,1 MOVEM A,Ztclas GO L5030 L5029: ; LINE 376 MOVE A,<3-FS9-%P>(P) MOVE A,3(A) CAIE A,4 GO L5031 ; LINE 377 MOVE A,<0-FS9-%A-%P>(P) CAME A,ZTCHAR GO L5032 MOVE A,ZTINT MOVEM A,<0-FS9-%A-%P>(P) GO L5033 L5032: ; LINE 378 MOVE A,<0-FS9-%A-%P>(P) CAME A,ZTFLOA GO L5034 MOVE A,ZTDOUB MOVEM A,<0-FS9-%A-%P>(P) GO L5035 L5034: ; LINE 379 MOVE A,<0-FS9-%A-%P>(P) MOVE A,(A) CAIE A,11 GO L5036 ; LINE 380 MOVE A,<0-FS9-%A-%P>(P) PPUSH 3(A) CCALL 1,Zmkptr MOVEM A,<0-FS9-%A-%P>(P) GO L5037 L5036: ; LINE 381 MOVE A,<0-FS9-%A-%P>(P) MOVE A,(A) CAIN A,10 GO L5039 MOVE A,<0-FS9-%A-%P>(P) MOVE A,(A) CAIE A,12 GO L5038 L5039: ; LINE 382 PPUSH [2036] CCALL 1,Zerrci ; LINE 383 PPUSH <0-FS9-%A-%P>(P) CCALL 1,Zmkptr MOVEM A,<0-FS9-%A-%P>(P) L5038: L5037: L5035: L5033: ; LINE 385 MOVE A,<3-FS9-%P>(P) MOVE A,1(A) CAMN A,ZTUNSP GO L5040 PPUSH [2016] CCALL 1,Zerrci GO L5041 L5040: ; LINE 386 MOVE A,<3-FS9-%P>(P) MOVE C,<0-FS9-%A-%P>(P) MOVEM C,1(A) L5041: L5031: L5030: L5028: ; LINE 389 MOVE A,Ztclas MOVE B,[-4,,[ 3 50 2 1 L12 L13 L14 L15 ]] CAMN A,(B) GO @4(B) AOBJN B,.-2 GO L16 L12: ; LINE 390 MOVEI A,1 ADDB A,Znstat MOVEM A,<2-FS9-%P>(P) GO L11 L14: L13: ; LINE 392 MOVE A,Zcidn MOVEM A,<2-FS9-%P>(P) GO L11 L15: ; LINE 393 MOVEI A,56 MOVEM A,Ztclas ; LINE 394 PPUSH Zautol MOVE A,<0-FS9-%A-%P>(P) PPUSH 2(A) CCALL 2,Zalign MOVEM A,Zautol MOVEM A,<2-FS9-%P>(P) ; LINE 395 MOVE A,<0-FS9-%A-%P>(P) MOVE A,1(A) ADDB A,Zautol GO L11 L16: ; LINE 397 MOVNI A,--1 MOVEM A,<2-FS9-%P>(P) L5042: L11: ; LINE 399 SKIPE <3-FS9-%P>(P) GO L5043 PPUSH Zcbloc PPUSH Zcidn PPUSH Ztclas PPUSH <0-FS9-%A-%P>(P) PPUSH <2-FS9-%P>(P) CCALL 5,Zdefin MOVEM A,<3-FS9-%P>(P) L5043: ; LINE 400 MOVE A,<3-FS9-%P>(P) MOVEM A,Zidp ; LINE 401 MOVE A,Zidp MOVE A,1(A) MOVEM A,Zivtyp ; LINE 402 MOVNI A,--1 MOVEM A,Zinitc ; LINE 403 MOVEI A,0 SUBI P,FS9+%A+1 GO @<%A+1>(P) SUBI P,FS9+%A+1 GO @<%A+1>(P) FS9==4-1 %A==3 %A,,[ASCIZ/adclr/] Zadclr: ADDI P,FS10 ; LINE 419 MOVE A,<0-FS10-%A-%P>(P) JUMPN A,L5044 MOVE A,<1-FS10-%A-%P>(P) JUMPN A,L5044 ; LINE 420 MOVE A,Zpv MOVE A,1(A) MOVEM A,Zcidn ; LINE 421 MOVEI A,0 MOVEM A,Zcdim ; LINE 422 MOVEI A,Zdims MOVEM A,Zdimp ; LINE 423 MOVE A,<1-FS10-%A-%P>(P) MOVEM A,Zmtype SUBI P,FS10+%A+1 GO @<%A+1>(P) L5044: ; LINE 425 MOVE A,<0-FS10-%A-%P>(P) CAME A,[-1] GO L5045 MOVNI A,--1 SUBI P,FS10+%A+1 GO @<%A+1>(P) L5045: ; LINE 426 MOVE A,<0-FS10-%A-%P>(P) LSH A,2 IOR A,<1-FS10-%A-%P>(P) MOVEM A,<0-FS10-%A-%P>(P) ; LINE 427 MOVE A,<1-FS10-%A-%P>(P) CAIE A,3 GO L5046 ; LINE 428 MOVE A,Zcdim CAIGE A,8 GO L5047 ; LINE 429 PPUSH [2015] CCALL 1,Zerrci ; LINE 430 MOVNI A,--1 MOVEM A,Zmtype SUBI P,FS10+%A+1 GO @<%A+1>(P) L5047: ; LINE 432 MOVE A,<2-FS10-%A-%P>(P) JUMPG A,L5048 ; LINE 433 PPUSH [1031] CCALL 1,Zerrci ; LINE 434 MOVEI A,1 MOVEM A,<2-FS10-%A-%P>(P) L5048: ; LINE 436 MOVEI B,1 MOVE A,Zdimp ADDM B,Zdimp MOVE C,<2-FS10-%A-%P>(P) MOVEM C,(A) ; LINE 437 MOVEI A,1 ADDB A,Zcdim L5046: ; LINE 440 MOVE A,<0-FS10-%A-%P>(P) MOVEM A,Zmtype SUBI P,FS10+%A+1 GO @<%A+1>(P) SUBI P,FS10+%A+1 GO @<%A+1>(P) FS10==1-1 %A==0 %A,,[ASCIZ/maktyp/] Zmakty: ADDI P,FS11 ; LINE 456 MOVE A,Zmtype CAME A,[-1] GO L5049 MOVE A,ZTUNDE SUBI P,FS11+%A+1 GO @<%A+1>(P) L5049: ; LINE 457 MOVE A,Zmtype LSH A,1 JUMPL A,L5051 MOVE A,Zmtype LSH A,2 JUMPGE A,L5050 L5051: ; LINE 458 PPUSH [2014] CCALL 1,Zerrci ; LINE 459 MOVE A,ZTUNDE SUBI P,FS11+%A+1 GO @<%A+1>(P) L5050: ; LINE 461 MOVE A,Zbtype MOVEM A,<2-FS11-%P>(P) L18: ; LINE 462 MOVE A,Zmtype ANDI A,3 MOVEM A,<1-FS11-%P>(P) JUMPE A,L5052 ; LINE 463 MOVE A,<1-FS11-%P>(P) SUBI A,1 JUMPL A,L5053 CAILE A,3-1 GO L5053 GO @(A)[ L20 L21 L22 ] L20: ; LINE 464 PPUSH <2-FS11-%P>(P) CCALL 1,Zmkptr MOVEM A,<2-FS11-%P>(P) GO L19 L21: ; LINE 465 PPUSH <2-FS11-%P>(P) CCALL 1,Zmkfun MOVEM A,<2-FS11-%P>(P) GO L19 L22: ; LINE 466 PPUSH <2-FS11-%P>(P) MOVEI A,1 MOVN A,A ADDB A,Zdimp PPUSH (A) CCALL 2,Zmkarr MOVEM A,<2-FS11-%P>(P) GO L19 L5053: L19: ; LINE 468 MOVE A,Zmtype LSH A,-2 MOVEM A,Zmtype GO L18 L5052: L17: ; LINE 470 MOVE A,<2-FS11-%P>(P) SUBI P,FS11+%A+1 GO @<%A+1>(P) SUBI P,FS11+%A+1 GO @<%A+1>(P) FS11==3-1 %A==2 %A,,[ASCIZ/afield/] Zafiel: ADDI P,FS12 ; LINE 483 MOVE A,<0-FS12-%A-%P>(P) MOVEM A,Zcidn ; LINE 484 MOVEI A,0 MOVEM A,Zcdim ; LINE 485 MOVE A,Zstrle JUMPN A,L5054 PPUSH [1032] CCALL 1,Zerrci L5054: ; LINE 486 MOVE A,<1-FS12-%A-%P>(P) JUMPGE A,L5055 PPUSH [1033] CCALL 1,Zerrci L5055: ; LINE 487 MOVE A,Zbtype MOVE A,(A) JUMPL A,L26 CAILE A,1-0 GO L26 GO @(A)[ L24 L25 ] L24: GO L23 L25: GO L23 L26: ; LINE 492 PPUSH [1034] CCALL 1,Zerrci L5056: L23: ; LINE 494 MOVE A,ZTINT SUBI P,FS12+%A+1 GO @<%A+1>(P) SUBI P,FS12+%A+1 GO @<%A+1>(P) FS12==1-1 %A==0 %A,,[ASCIZ/aiinz/] Zaiinz: ADDI P,FS13 ; LINE 516 MOVEI A,0 MOVEM A,Zinitf ; LINE 517 MOVEI A,0 MOVEM A,<1-FS13-%P>(P) L29: MOVE A,<1-FS13-%P>(P) CAIL A,6 GO L5057 MOVEI A,Zallow ADD A,<1-FS13-%P>(P) MOVEI C,0 MOVEM C,(A) L28: MOVE A,<1-FS13-%P>(P) AOS <1-FS13-%P>(P) GO L29 L5057: L27: ; LINE 518 PPUSH Zivtyp CCALL 1,Zremar MOVEM A,Zietyp ; LINE 522 MOVE A,Zietyp MOVE A,(A) JUMPL A,L5058 CAILE A,12-0 GO L5058 GO @(A)[ L32 L31 L34 L33 L5058 L5058 L5058 L5058 L5058 L36 L5058 L5058 L35 ] L32: L31: ; LINE 524 MOVEI A,Zallow MOVEI C,1 MOVEM C,1(A) GO L30 L34: L33: ; LINE 526 MOVEI A,Zallow MOVEI C,1 MOVEM C,2(A) ; LINE 527 MOVEI A,Zallow MOVEI C,1 MOVEM C,3(A) GO L30 L35: ; LINE 529 MOVEI A,Zallow MOVEI C,1 MOVEM C,4(A) ; LINE 530 MOVEI A,Zallow MOVEI C,1 MOVEM C,1(A) ; LINE 531 MOVEI A,Zallow MOVEI C,1 MOVEM C,5(A) ; LINE 532 MOVEI A,Ztpoin MOVE A,1(A) MOVEM A,Zipc GO L30 L36: ; LINE 534 MOVEI A,Zallow MOVEI C,1 MOVEM C,1(A) ; LINE 535 MOVEI A,Zallow MOVEI C,1 MOVEM C,5(A) ; LINE 536 PPUSH Zietyp CCALL 1,Zctype SUBI A,6 MOVEM A,Zipc ; LINE 537 MOVE A,Zietyp CAME A,ZTPCHA GO L5059 MOVEI A,Zallow MOVEI C,1 MOVEM C,4(A) L5059: L5058: L30: ; LINE 542 MOVE A,Ztclas MOVE B,[-4,,[ 2 3 1 56 L38 L39 L40 L41 ]] CAMN A,(B) GO @4(B) AOBJN B,.-2 GO L42 L38: ; LINE 543 MOVE A,Zobjmo CAIN A,2 GO L5061 CCALL 0,Zmdata L5061: ; LINE 544 MOVE A,Zivtyp PPUSH 2(A) CCALL 1,Zmalig ; LINE 545 PPUSH Zcidn CCALL 1,Zmequ GO L37 L39: ; LINE 547 MOVE A,Zobjmo CAIN A,2 GO L5062 CCALL 0,Zmdata L5062: ; LINE 548 MOVE A,Zivtyp PPUSH 2(A) CCALL 1,Zmalig ; LINE 549 MOVE A,Zidp PPUSH 2(A) CCALL 1,Zmstat GO L37 L41: L40: ; LINE 552 PPUSH [1024] CCALL 1,Zerrci ; LINE 553 MOVEI A,1 MOVEM A,Zinitf GO L37 L42: ; LINE 555 PPUSH [1026] CCALL 1,Zerrci ; LINE 556 MOVEI A,1 MOVEM A,Zinitf L5060: L37: ; LINE 558 MOVEI A,0 MOVEM A,Zinitc SUBI P,FS13+%A+1 GO @<%A+1>(P) FS13==2-1 %A==2 %A,,[ASCIZ/inz/] Zinz: ADDI P,FS14 ; LINE 577 MOVE A,Zinitf JUMPE A,L5063 SUBI P,FS14+%A+1 GO @<%A+1>(P) L5063: ; LINE 578 MOVEI A,Zallow ADD A,<0-FS14-%A-%P>(P) MOVE A,(A) JUMPN A,L5064 ; LINE 579 PPUSH [1022] CCALL 1,Zerrci ; LINE 580 SUBI P,FS14+%A+1 GO @<%A+1>(P) L5064: ; LINE 582 MOVEI A,1 ADDB A,Zinitc ; LINE 583 MOVE A,<0-FS14-%A-%P>(P) SUBI A,1 JUMPL A,L5065 CAILE A,5-1 GO L5065 GO @(A)[ L44 L52 L53 L51 L45 ] L44: ; LINE 585 MOVE A,Zietyp CAME A,ZTCHAR GO L5066 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmchar GO L5067 L5066: ; LINE 586 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmint L5067: ; LINE 587 SUBI P,FS14+%A+1 GO @<%A+1>(P) L45: ; LINE 589 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zafidn MOVEM A,<1-FS14-%P>(P) ; LINE 590 MOVE A,<1-FS14-%P>(P) MOVE A,3(A) MOVEM A,<2-FS14-%P>(P) MOVE B,[-3,,[ 50 3 2 L47 L48 L49 ]] CAMN A,(B) GO @3(B) AOBJN B,.-2 GO L50 L47: ; LINE 591 MOVEI A,2 MOVEM A,<2-FS14-%P>(P) L49: L48: ; LINE 593 PPUSH Zipc MOVN A,<2-FS14-%P>(P) PPUSH A MOVE A,<1-FS14-%P>(P) PPUSH 2(A) CCALL 3,Zmadco GO L46 L50: ; LINE 595 PPUSH [0] CCALL 1,Zmint ; LINE 596 PPUSH [2038] PPUSH [75] PPUSH <1-FS14-%A-%P>(P) CCALL 3,Zerrx L5068: L46: ; LINE 598 SUBI P,FS14+%A+1 GO @<%A+1>(P) L51: ; LINE 600 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmstrc ; LINE 601 SUBI P,FS14+%A+1 GO @<%A+1>(P) L52: ; LINE 603 MOVE A,Zietyp CAME A,ZTFLOA GO L5069 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmfloa GO L5070 L5069: ; LINE 604 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmdoub L5070: ; LINE 605 SUBI P,FS14+%A+1 GO @<%A+1>(P) L53: ; LINE 608 MOVE A,Zietyp CAME A,ZTFLOA GO L5071 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmnflo GO L5072 L5071: ; LINE 609 PPUSH <1-FS14-%A-%P>(P) CCALL 1,Zmndou L5072: ; LINE 610 SUBI P,FS14+%A+1 GO @<%A+1>(P) L5065: L43: ; LINE 612 PPUSH [6041] CCALL 1,Zerrx SUBI P,FS14+%A+1 GO @<%A+1>(P) FS14==3-1 %A==0 %A,,[ASCIZ/aidecl/] Zaidec: ADDI P,FS15 ; LINE 631 MOVE A,Zivtyp MOVE A,1(A) MOVEM A,<3-FS15-%P>(P) ; LINE 632 MOVE A,Zinitc CAME A,[-1] GO L5073 ; LINE 633 MOVE A,Ztclas CAIE A,2 GO L5074 ; LINE 634 MOVE A,Zobjmo CAIN A,1 GO L5075 CCALL 0,Zmimpu L5075: ; LINE 635 MOVE A,Zivtyp PPUSH 2(A) CCALL 1,Zmalig ; LINE 636 PPUSH Zcidn CCALL 1,Zmequ ; LINE 637 PPUSH <3-FS15-%P>(P) CCALL 1,Zmzero L5074: ; LINE 639 MOVE A,Ztclas CAIE A,3 GO L5076 ; LINE 640 MOVE A,Zobjmo CAIN A,1 GO L5077 CCALL 0,Zmimpu L5077: ; LINE 641 MOVE A,Zivtyp PPUSH 2(A) CCALL 1,Zmalig ; LINE 642 MOVE A,Zidp PPUSH 2(A) CCALL 1,Zmstat ; LINE 643 PPUSH <3-FS15-%P>(P) CCALL 1,Zmzero L5076: GO L5078 L5073: ; LINE 647 MOVE A,Zietyp MOVE A,(A) CAIE A,12 GO L5079 ; LINE 648 MOVE A,Zietyp MOVE A,1(A) MOVEM A,<1-FS15-%P>(P) ; LINE 649 MOVEI A,Ztsize MOVE A,1(A) IMUL A,Zinitc MOVEM A,<2-FS15-%P>(P) ; LINE 650 MOVE A,<2-FS15-%P>(P) IDIV A,<1-FS15-%P>(P) MOVEM B,<5-FS15-%P>(P) JUMPE B,L5080 ; LINE 651 MOVE A,<1-FS15-%P>(P) SUB A,<5-FS15-%P>(P) MOVEM A,<5-FS15-%P>(P) ; LINE 652 PPUSH <5-FS15-%P>(P) CCALL 1,Zmzero ; LINE 653 MOVE A,<5-FS15-%P>(P) ADDB A,<2-FS15-%P>(P) L5080: ; LINE 655 MOVE A,<2-FS15-%P>(P) IDIV A,<1-FS15-%P>(P) MOVEM A,Zinitc L5079: ; LINE 657 MOVE A,Zivtyp MOVE A,(A) CAIE A,11 GO L5081 ; LINE 659 MOVE A,Zietyp MOVE A,1(A) MOVEM A,<1-FS15-%P>(P) ; LINE 660 MOVE A,<3-FS15-%P>(P) IDIV A,<1-FS15-%P>(P) MOVEM A,<6-FS15-%P>(P) MOVEM A,<4-FS15-%P>(P) ; LINE 661 MOVE A,Zinitc CAMG A,<6-FS15-%P>(P) GO L5082 ; LINE 662 MOVE A,Zinitc MOVEM A,<6-FS15-%P>(P) ; LINE 663 MOVE A,Zivtyp MOVE A,3(A) MOVEM A,<8-FS15-%P>(P) ; LINE 664 MOVE A,<8-FS15-%P>(P) MOVE A,1(A) MOVEM A,<7-FS15-%P>(P) ; LINE 665 PPUSH <8-FS15-%P>(P) MOVE A,<6-FS15-%P>(P) IMUL A,<1-FS15-%P>(P) MOVE C,<7-FS15-%P>(P) SUBI C,1 ADD A,C IDIV A,<7-FS15-%P>(P) PPUSH A CCALL 2,Zmkarr MOVE C,Zidp MOVEM A,1(C) MOVEM A,Zivtyp ; LINE 667 MOVE A,Zivtyp MOVE A,1(A) IDIV A,<1-FS15-%P>(P) MOVEM A,<4-FS15-%P>(P) L5082: GO L5083 L5081: ; LINE 671 MOVE A,Zinitc CAIG A,1 GO L5084 PPUSH [1023] CCALL 1,Zerrci L5084: ; LINE 672 MOVE A,<3-FS15-%P>(P) MOVEM A,<1-FS15-%P>(P) ; LINE 673 MOVEI A,1 MOVEM A,<4-FS15-%P>(P) L5083: ; LINE 675 MOVE A,Zinitc CAML A,<4-FS15-%P>(P) GO L5085 MOVE A,<4-FS15-%P>(P) SUB A,Zinitc IMUL A,<1-FS15-%P>(P) PPUSH A CCALL 1,Zmzero L5085: L5078: SUBI P,FS15+%A+1 GO @<%A+1>(P) FS15==9-1 %A==0 %A,,[ASCIZ/abegin/] Zabegi: ADDI P,FS16 ; LINE 687 PPUSH Zdldp CCALL 1,Zpush ; LINE 688 PPUSH Zautol CCALL 1,Zpush SUBI P,FS16+%A+1 GO @<%A+1>(P) FS16==1-1 %A==0 %A,,[ASCIZ/aend/] Zaend: ADDI P,FS17 ; LINE 696 MOVE A,Zautol CAMG A,Zframe GO L5086 MOVE A,Zautol MOVEM A,Zframe L5086: ; LINE 697 CCALL 0,Zpop MOVEM A,<1-FS17-%P>(P) ; LINE 698 MOVE A,<1-FS17-%P>(P) CAMGE A,ZsvJar GO L5087 MOVE A,<1-FS17-%P>(P) CAMLE A,Zautol GO L5087 MOVE A,<1-FS17-%P>(P) MOVEM A,Zautol L5087: ; LINE 699 CCALL 0,Zpop MOVEM A,<2-FS17-%P>(P) ; LINE 700 MOVE A,<2-FS17-%P>(P) CAMGE A,Zdldp GO L5088 MOVE A,<2-FS17-%P>(P) CAMLE A,Zdend GO L5088 ; LINE 701 MOVE A,Zdldp MOVEM A,<3-FS17-%P>(P) ; LINE 702 MOVE A,<2-FS17-%P>(P) MOVEM A,Zdldp ; LINE 703 PPUSH <3-FS17-%P>(P) PPUSH Zdldp CCALL 2,Zchkdi ; LINE 704 MOVE A,Zsflag JUMPE A,L5089 PPUSH <3-FS17-%P>(P) PPUSH Zdldp CCALL 2,Zwdict L5089: L5088: SUBI P,FS17+%A+1 GO @<%A+1>(P) FS17==4-1 %A==1 %A,,[ASCIZ/aeidn/] Zaeidn: ADDI P,FS18 ; LINE 718 PPUSH Zcbloc PPUSH <0-FS18-%A-%P>(P) PPUSH [-1] PPUSH ZTUNDE PPUSH [-1] CCALL 5,Zdefin MOVEM A,<1-FS18-%P>(P) ; LINE 719 MOVE A,<1-FS18-%P>(P) MOVE A,3(A) CAME A,[-1] GO L5090 ; LINE 720 PPUSH [2027] PPUSH [75] PPUSH <0-FS18-%A-%P>(P) CCALL 3,Zerrx ; LINE 721 MOVE A,<1-FS18-%P>(P) MOVEI C,1 MOVEM C,3(A) GO L5091 L5090: ; LINE 723 MOVE A,<1-FS18-%P>(P) MOVE A,3(A) CAIE A,56 GO L5092 MOVE A,<1-FS18-%P>(P) MOVEI C,1 MOVEM C,3(A) L5092: L5091: ; LINE 724 MOVE A,<1-FS18-%P>(P) SUBI P,FS18+%A+1 GO @<%A+1>(P) SUBI P,FS18+%A+1 GO @<%A+1>(P) FS18==2-1 %A==1 %A,,[ASCIZ/afidn/] Zafidn: ADDI P,FS19 ; LINE 731 PPUSH [0] PPUSH <0-FS19-%A-%P>(P) PPUSH [-1] PPUSH ZTUNSP PPUSH <0-FS19-%A-%P>(P) CCALL 5,Zdefin MOVEM A,<1-FS19-%P>(P) ; LINE 732 MOVE A,<1-FS19-%P>(P) MOVE A,3(A) CAME A,[-1] GO L5093 ; LINE 733 MOVE A,<1-FS19-%P>(P) MOVEI C,50 MOVEM C,3(A) ; LINE 734 MOVE A,<1-FS19-%P>(P) MOVE C,ZTFINT MOVEM C,1(A) GO L5094 L5093: ; LINE 736 MOVE A,<1-FS19-%P>(P) MOVE A,3(A) CAIE A,56 GO L5095 MOVE A,<1-FS19-%P>(P) MOVEI C,1 MOVEM C,3(A) L5095: L5094: ; LINE 737 MOVE A,<1-FS19-%P>(P) SUBI P,FS19+%A+1 GO @<%A+1>(P) SUBI P,FS19+%A+1 GO @<%A+1>(P) FS19==2-1 %A==1 %A,,[ASCIZ/alidn/] Zalidn: ADDI P,FS20 ; LINE 744 PPUSH Zcbloc PPUSH <0-FS20-%A-%P>(P) PPUSH [55] PPUSH ZTINT PPUSH [-1] CCALL 5,Zdefin MOVEM A,<1-FS20-%P>(P) ; LINE 745 MOVE A,<1-FS20-%P>(P) MOVE A,2(A) CAME A,[-1] GO L5096 MOVE A,<1-FS20-%P>(P) MOVE C,Zciln AOS Zciln MOVEM C,2(A) L5096: ; LINE 746 MOVE A,<1-FS20-%P>(P) SUBI P,FS20+%A+1 GO @<%A+1>(P) SUBI P,FS20+%A+1 GO @<%A+1>(P) FS20==2-1 %A==1 %A,,[ASCIZ/atidn/] Zatidn: ADDI P,FS21 ; LINE 753 PPUSH <0-FS21-%A-%P>(P) CCALL 1,Zfind MOVEM A,<1-FS21-%P>(P) ; LINE 754 SKIPN <1-FS21-%P>(P) GO L5098 MOVE A,<1-FS21-%P>(P) MOVE A,3(A) CAIN A,53 GO L5097 L5098: ; LINE 755 PPUSH [2041] PPUSH [75] PPUSH <0-FS21-%A-%P>(P) CCALL 3,Zerrx ; LINE 756 MOVE A,ZTUNDE SUBI P,FS21+%A+1 GO @<%A+1>(P) L5097: ; LINE 758 MOVE A,<1-FS21-%P>(P) MOVE A,1(A) SUBI P,FS21+%A+1 GO @<%A+1>(P) SUBI P,FS21+%A+1 GO @<%A+1>(P) FS21==2-1 %A==0 %A,,[ASCIZ/mhead/] Zmhead: ADDI P,FS22 ; LINE 767 MOVEI A,S17 PPUSH A CCALL 1,Zmprin SUBI P,FS22+%A+1 GO @<%A+1>(P) FS22==1-1 %A==1 %A,,[ASCIZ/mentry/] Zmentr: ADDI P,FS23 ; LINE 768 MOVEI A,S24 PPUSH A PPUSH <0-FS23-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS23+%A+1 GO @<%A+1>(P) FS23==1-1 %A==1 %A,,[ASCIZ/extrn/] Zextrn: ADDI P,FS24 ; LINE 769 MOVEI A,S36 PPUSH A PPUSH <0-FS24-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS24+%A+1 GO @<%A+1>(P) FS24==1-1 %A==1 %A,,[ASCIZ/mstatic/] Zmstat: ADDI P,FS25 ; LINE 770 MOVEI A,S48 PPUSH A PPUSH <0-FS25-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS25+%A+1 GO @<%A+1>(P) FS25==1-1 %A==1 %A,,[ASCIZ/mequ/] Zmequ: ADDI P,FS26 ; LINE 771 MOVEI A,S56 PPUSH A PPUSH <0-FS26-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS26+%A+1 GO @<%A+1>(P) FS26==1-1 %A==1 %A,,[ASCIZ/mzero/] Zmzero: ADDI P,FS27 ; LINE 772 MOVEI A,S68 PPUSH A PPUSH <0-FS27-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS27+%A+1 GO @<%A+1>(P) FS27==1-1 %A==1 %A,,[ASCIZ/malign/] Zmalig: ADDI P,FS28 ; LINE 773 MOVE A,<0-FS28-%A-%P>(P) JUMPLE A,L5099 MOVEI A,S75 PPUSH A PPUSH <0-FS28-%A-%P>(P) CCALL 2,Zmprin L5099: SUBI P,FS28+%A+1 GO @<%A+1>(P) FS28==1-1 %A==1 %A,,[ASCIZ/mint/] Zmint: ADDI P,FS29 ; LINE 774 MOVEI A,S83 PPUSH A PPUSH <0-FS29-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS29+%A+1 GO @<%A+1>(P) FS29==1-1 %A==1 %A,,[ASCIZ/mstrcon/] Zmstrc: ADDI P,FS30 ; LINE 775 MOVEI A,S91 PPUSH A PPUSH <0-FS30-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS30+%A+1 GO @<%A+1>(P) FS30==1-1 %A==3 %A,,[ASCIZ/madcon/] Zmadco: ADDI P,FS31 ; LINE 776 MOVEI A,S99 PPUSH A PPUSH <0-FS31-%A-%P>(P) PPUSH <1-FS31-%A-%P>(P) PPUSH <2-FS31-%A-%P>(P) CCALL 4,Zmprin SUBI P,FS31+%A+1 GO @<%A+1>(P) FS31==1-1 %A==1 %A,,[ASCIZ/mchar/] Zmchar: ADDI P,FS32 ; LINE 777 MOVEI A,S112 PPUSH A PPUSH <0-FS32-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS32+%A+1 GO @<%A+1>(P) FS32==1-1 %A==1 %A,,[ASCIZ/mfloat/] Zmfloa: ADDI P,FS33 ; LINE 778 MOVEI A,S119 PPUSH A PPUSH <0-FS33-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS33+%A+1 GO @<%A+1>(P) FS33==1-1 %A==1 %A,,[ASCIZ/mnfloat/] Zmnflo: ADDI P,FS34 ; LINE 779 MOVEI A,S126 PPUSH A PPUSH <0-FS34-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS34+%A+1 GO @<%A+1>(P) FS34==1-1 %A==1 %A,,[ASCIZ/mdouble/] Zmdoub: ADDI P,FS35 ; LINE 780 MOVEI A,S134 PPUSH A PPUSH <0-FS35-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS35+%A+1 GO @<%A+1>(P) FS35==1-1 %A==1 %A,,[ASCIZ/mndouble/] Zmndou: ADDI P,FS36 ; LINE 781 MOVEI A,S141 PPUSH A PPUSH <0-FS36-%A-%P>(P) CCALL 2,Zmprin SUBI P,FS36+%A+1 GO @<%A+1>(P) FS36==1-1 %A==0 %A,,[ASCIZ/mimpure/] Zmimpu: ADDI P,FS37 ; LINE 782 MOVEI A,S149 PPUSH A CCALL 1,Zmprin MOVEI A,1 MOVEM A,Zobjmo SUBI P,FS37+%A+1 GO @<%A+1>(P) FS37==1-1 %A==0 %A,,[ASCIZ/mpure/] Zmpure: ADDI P,FS38 ; LINE 783 MOVEI A,S156 PPUSH A CCALL 1,Zmprin MOVEI A,0 MOVEM A,Zobjmo SUBI P,FS38+%A+1 GO @<%A+1>(P) FS38==1-1 %A==0 %A,,[ASCIZ/mdata/] Zmdata: ADDI P,FS39 ; LINE 784 MOVEI A,S163 PPUSH A CCALL 1,Zmprin MOVEI A,2 MOVEM A,Zobjmo SUBI P,FS39+%A+1 GO @<%A+1>(P) FS39==1-1 %A==0 %A,,[ASCIZ/sdef/] Zsdef: ADDI P,FS40 ; LINE 797 PPUSH ZfJmac CCALL 1,Zcclos ; LINE 798 PPUSH ZfnJhm PPUSH [119] MOVEI A,S0 PPUSH A CCALL 3,Zxopen MOVEM A,ZfJmac ; LINE 799 CCALL 0,Zmhead ; LINE 803 MOVE A,Zobjmo JUMPE A,L5100 CCALL 0,Zmpure L5100: ; LINE 804 MOVE A,Zdbegi MOVEM A,<1-FS40-%P>(P) L56: MOVE A,<1-FS40-%P>(P) CAML A,Zdgdp GO L5101 ; LINE 805 MOVE A,<1-FS40-%P>(P) MOVE A,3(A) CAIE A,2 GO L5102 MOVE A,<1-FS40-%P>(P) PPUSH (A) CCALL 1,Zmentr L5102: L55: ; LINE 804 MOVEI A,4 ADDB A,<1-FS40-%P>(P) GO L56 L5101: L54: ; LINE 809 MOVE A,Zdbegi MOVEM A,<1-FS40-%P>(P) L59: MOVE A,<1-FS40-%P>(P) CAML A,Zdgdp GO L5103 ; LINE 810 MOVE A,<1-FS40-%P>(P) MOVE A,3(A) CAIE A,50 GO L5104 MOVE A,<1-FS40-%P>(P) PPUSH (A) CCALL 1,Zextrn L5104: L58: ; LINE 809 MOVEI A,4 ADDB A,<1-FS40-%P>(P) GO L59 L5103: L57: ; LINE 812 PPUSH ZfJmac CCALL 1,Zcclos SUBI P,FS40+%A+1 GO @<%A+1>(P) FS40==2-1 %A==5 %A,,[ASCIZ/define/] Zdefin: ADDI P,FS41 ; LINE 848 PPUSH <1-FS41-%A-%P>(P) CCALL 1,Zfind MOVEM A,<1-FS41-%P>(P) JUMPE A,L5105 ; LINE 849 PPUSH <1-FS41-%P>(P) PPUSH <2-FS41-%A-%P>(P) PPUSH <3-FS41-%A-%P>(P) PPUSH <4-FS41-%A-%P>(P) CCALL 4,Zdmerg SUBI P,FS41+%A+1 GO @<%A+1>(P) L5105: ; LINE 850 MOVE A,<0-FS41-%A-%P>(P) JUMPE A,L5107 MOVE A,<2-FS41-%A-%P>(P) CAIE A,50 GO L5106 L5107: ; LINE 851 MOVEI B,4 MOVE A,Zdgdp ADDM B,Zdgdp MOVEM A,<1-FS41-%P>(P) GO L5108 L5106: ; LINE 852 MOVEI A,4 MOVN A,A ADDB A,Zdldp MOVEM A,<1-FS41-%P>(P) L5108: ; LINE 853 MOVE A,Zdldp CAML A,Zdgdp GO L5109 PPUSH [4005] CCALL 1,Zerrx L5109: ; LINE 854 MOVE A,<1-FS41-%P>(P) MOVE C,<1-FS41-%A-%P>(P) MOVEM C,(A) ; LINE 855 MOVE A,<1-FS41-%P>(P) MOVE C,<2-FS41-%A-%P>(P) MOVEM C,3(A) ; LINE 856 MOVE A,<1-FS41-%P>(P) MOVE C,<3-FS41-%A-%P>(P) MOVEM C,1(A) ; LINE 857 MOVE A,<1-FS41-%P>(P) MOVE C,<4-FS41-%A-%P>(P) MOVEM C,2(A) ; LINE 858 MOVE A,<1-FS41-%P>(P) SUBI P,FS41+%A+1 GO @<%A+1>(P) SUBI P,FS41+%A+1 GO @<%A+1>(P) FS41==2-1 %A==4 %A,,[ASCIZ/dmerge/] Zdmerg: ADDI P,FS42 ; LINE 874 MOVE A,<1-FS42-%A-%P>(P) CAME A,[-1] GO L5110 MOVE A,<0-FS42-%A-%P>(P) SUBI P,FS42+%A+1 GO @<%A+1>(P) L5110: ; LINE 875 MOVE A,<0-FS42-%A-%P>(P) MOVE A,3(A) MOVEM A,<2-FS42-%P>(P) ; LINE 876 MOVE A,<0-FS42-%A-%P>(P) MOVE A,1(A) MOVEM A,<1-FS42-%P>(P) ; LINE 877 MOVE A,<1-FS42-%A-%P>(P) CAIE A,2 GO L5113 MOVE A,<2-FS42-%P>(P) CAIN A,50 GO L5112 L5113: MOVE A,<1-FS42-%A-%P>(P) CAIE A,5 GO L5111 MOVE A,<2-FS42-%P>(P) CAIE A,55 GO L5111 L5112: ; LINE 879 MOVE A,<1-FS42-%A-%P>(P) MOVEM A,<2-FS42-%P>(P) ; LINE 880 MOVE A,<0-FS42-%A-%P>(P) MOVE A,3(A) MOVEM A,<1-FS42-%A-%P>(P) ; LINE 881 MOVE A,<0-FS42-%A-%P>(P) MOVE C,<2-FS42-%P>(P) MOVEM C,3(A) ; LINE 882 MOVE A,<2-FS42-%A-%P>(P) MOVEM A,<1-FS42-%P>(P) ; LINE 883 MOVE A,<0-FS42-%A-%P>(P) MOVE A,1(A) MOVEM A,<2-FS42-%A-%P>(P) ; LINE 884 MOVE A,<0-FS42-%A-%P>(P) MOVE C,<1-FS42-%P>(P) MOVEM C,1(A) L5111: ; LINE 886 MOVE A,<1-FS42-%A-%P>(P) CAIE A,50 GO L5116 MOVE A,<2-FS42-%P>(P) CAIN A,2 GO L5115 MOVE A,<2-FS42-%P>(P) CAIN A,50 GO L5115 L5116: MOVE A,<1-FS42-%A-%P>(P) CAIE A,55 GO L5114 MOVE A,<2-FS42-%P>(P) CAIN A,5 GO L5117 MOVE A,<2-FS42-%P>(P) CAIE A,55 GO L5114 L5117: L5115: ; LINE 888 MOVE A,<2-FS42-%A-%P>(P) CAME A,ZTUNSP GO L5118 MOVE A,<0-FS42-%A-%P>(P) SUBI P,FS42+%A+1 GO @<%A+1>(P) L5118: ; LINE 889 MOVE A,<1-FS42-%P>(P) CAME A,<2-FS42-%A-%P>(P) GO L5119 MOVE A,<0-FS42-%A-%P>(P) SUBI P,FS42+%A+1 GO @<%A+1>(P) L5119: ; LINE 890 MOVE A,<1-FS42-%P>(P) MOVE A,(A) CAIE A,11 GO L5120 MOVE A,<2-FS42-%A-%P>(P) MOVE A,(A) CAIE A,11 GO L5120 MOVE A,<1-FS42-%P>(P) MOVE A,3(A) MOVE C,<2-FS42-%A-%P>(P) CAME A,3(C) GO L5120 ; LINE 891 MOVE A,<0-FS42-%A-%P>(P) SUBI P,FS42+%A+1 GO @<%A+1>(P) L5120: L5114: ; LINE 893 PPUSH [2016] PPUSH [75] MOVE A,<0-FS42-%A-%P>(P) PPUSH (A) CCALL 3,Zerrx ; LINE 894 MOVE A,<0-FS42-%A-%P>(P) SUBI P,FS42+%A+1 GO @<%A+1>(P) SUBI P,FS42+%A+1 GO @<%A+1>(P) FS42==3-1 %A==1 %A,,[ASCIZ/find/] Zfind: ADDI P,FS43 ; LINE 907 MOVE A,Zdldp MOVEM A,<1-FS43-%P>(P) L61: ; LINE 908 MOVE A,<1-FS43-%P>(P) CAML A,Zdend GO L5121 MOVE A,<1-FS43-%P>(P) MOVE A,(A) CAME A,<0-FS43-%A-%P>(P) GO L5122 MOVE A,<1-FS43-%P>(P) SUBI P,FS43+%A+1 GO @<%A+1>(P) GO L5123 L5122: MOVEI A,4 ADDB A,<1-FS43-%P>(P) L5123: GO L61 L5121: L60: ; LINE 909 MOVE A,Zdgdp MOVEM A,<1-FS43-%P>(P) L63: ; LINE 910 MOVEI A,4 MOVN A,A ADDB A,<1-FS43-%P>(P) CAMGE A,Zdbegi GO L5124 MOVE A,<1-FS43-%P>(P) MOVE A,(A) CAME A,<0-FS43-%A-%P>(P) GO L5125 MOVE A,<1-FS43-%P>(P) SUBI P,FS43+%A+1 GO @<%A+1>(P) L5125: GO L63 L5124: L62: ; LINE 911 MOVEI A,0 SUBI P,FS43+%A+1 GO @<%A+1>(P) SUBI P,FS43+%A+1 GO @<%A+1>(P) FS43==2-1 %A==2 %A,,[ASCIZ/chkdict/] Zchkdi: ADDI P,FS44 ; LINE 926 MOVE A,<1-FS44-%A-%P>(P) CAME A,Zdldp GO L5126 MOVE A,<0-FS44-%A-%P>(P) CAMN A,Zdbegi GO L5126 MOVEI A,1 GO L5127 L5126: MOVEI A,0 L5127: MOVEM A,<2-FS44-%P>(P) L65: ; LINE 927 MOVEI A,4 MOVN A,A ADDB A,<1-FS44-%A-%P>(P) CAMGE A,<0-FS44-%A-%P>(P) GO L5128 ; LINE 928 MOVE A,<1-FS44-%A-%P>(P) MOVE A,1(A) MOVEM A,<1-FS44-%P>(P) ; LINE 929 MOVE A,<1-FS44-%P>(P) MOVE A,(A) CAIE A,13 GO L5129 ; LINE 930 PPUSH [2024] PPUSH [75] MOVE A,<1-FS44-%P>(P) PPUSH 3(A) CCALL 3,Zerrx ; LINE 931 MOVE A,<1-FS44-%A-%P>(P) MOVE C,ZTUNDE MOVEM C,1(A) MOVEM C,<1-FS44-%P>(P) L5129: ; LINE 933 MOVE A,<1-FS44-%A-%P>(P) MOVE A,3(A) CAIE A,55 GO L5130 ; LINE 934 MOVE A,<2-FS44-%P>(P) JUMPE A,L5131 PPUSH <1-FS44-%A-%P>(P) MOVEI A,4 MOVN A,A ADDB A,Zdldp PPUSH A CCALL 2,Zdswap GO L5132 L5131: ; LINE 936 PPUSH [2017] PPUSH [75] MOVE A,<1-FS44-%A-%P>(P) PPUSH (A) CCALL 3,Zerrx ; LINE 937 MOVE A,<1-FS44-%A-%P>(P) MOVEI C,5 MOVEM C,3(A) L5132: GO L5133 L5130: ; LINE 940 MOVE A,<1-FS44-%A-%P>(P) MOVE A,3(A) CAIE A,56 GO L5134 ; LINE 941 PPUSH [1006] PPUSH Zfline PPUSH [75] MOVE A,<1-FS44-%A-%P>(P) PPUSH (A) CCALL 4,Zerror ; LINE 942 MOVE A,<1-FS44-%A-%P>(P) MOVEI C,1 MOVEM C,3(A) L5134: L5133: GO L65 L5128: L64: SUBI P,FS44+%A+1 GO @<%A+1>(P) FS44==3-1 %A==2 %A,,[ASCIZ/dswap/] Zdswap: ADDI P,FS45 ; LINE 949 MOVE A,<0-FS45-%A-%P>(P) CAMN A,<1-FS45-%A-%P>(P) GO L5135 ; LINE 950 PPUSH <0-FS45-%A-%P>(P) PPUSH <1-FS45-%A-%P>(P) CCALL 2,Zswap ; LINE 951 MOVE A,<0-FS45-%A-%P>(P) ADDI A,3 PPUSH A MOVE A,<1-FS45-%A-%P>(P) ADDI A,3 PPUSH A CCALL 2,Zswap ; LINE 952 MOVE A,<0-FS45-%A-%P>(P) ADDI A,1 PPUSH A MOVE A,<1-FS45-%A-%P>(P) ADDI A,1 PPUSH A CCALL 2,Zswap ; LINE 953 MOVE A,<0-FS45-%A-%P>(P) ADDI A,2 PPUSH A MOVE A,<1-FS45-%A-%P>(P) ADDI A,2 PPUSH A CCALL 2,Zswap L5135: SUBI P,FS45+%A+1 GO @<%A+1>(P) FS45==1-1 %A==2 %A,,[ASCIZ/swap/] Zswap: ADDI P,FS46 ; LINE 960 MOVE A,<0-FS46-%A-%P>(P) MOVE A,(A) MOVEM A,<1-FS46-%P>(P) ; LINE 961 MOVE A,<0-FS46-%A-%P>(P) MOVE C,<1-FS46-%A-%P>(P) MOVE C,(C) MOVEM C,(A) ; LINE 962 MOVE A,<1-FS46-%A-%P>(P) MOVE C,<1-FS46-%P>(P) MOVEM C,(A) SUBI P,FS46+%A+1 GO @<%A+1>(P) FS46==2-1 %A==0 %A,,[ASCIZ/wsymtab/] Zwsymt: ADDI P,FS47 ; LINE 973 PPUSH [-1] PPUSH ZfJsym CCALL 2,Zputi ; LINE 974 PPUSH Zdbegi PPUSH Zdgdp CCALL 2,Zwdict ; LINE 975 PPUSH [-1] PPUSH ZfJsym CCALL 2,Zputi SUBI P,FS47+%A+1 GO @<%A+1>(P) FS47==1-1 %A==2 %A,,[ASCIZ/wdict/] Zwdict: ADDI P,FS48 L67: ; LINE 986 MOVE A,<0-FS48-%A-%P>(P) CAML A,<1-FS48-%A-%P>(P) GO L5136 ; LINE 987 MOVE A,<0-FS48-%A-%P>(P) PPUSH (A) PPUSH ZfJsym CCALL 2,Zputi ; LINE 988 MOVE A,<0-FS48-%A-%P>(P) PPUSH 1(A) CCALL 1,Ztp2o PPUSH A PPUSH ZfJsym CCALL 2,Zputi ; LINE 989 MOVE A,<0-FS48-%A-%P>(P) PPUSH 2(A) PPUSH ZfJsym CCALL 2,Zputi ; LINE 990 MOVE A,<0-FS48-%A-%P>(P) PPUSH 3(A) PPUSH ZfJsym CCALL 2,Zputi ; LINE 991 MOVEI A,4 ADDB A,<0-FS48-%A-%P>(P) GO L67 L5136: L66: SUBI P,FS48+%A+1 GO @<%A+1>(P) FS48==1-1 %A==1 %A,,[ASCIZ/dp2o/] Zdp2o: ADDI P,FS49 ; LINE 997 SKIPE <0-FS49-%A-%P>(P) GO L5137 MOVNI A,--1 SUBI P,FS49+%A+1 GO @<%A+1>(P) L5137: ; LINE 998 MOVE A,<0-FS49-%A-%P>(P) CAMGE A,Zdbegi GO L5139 MOVE A,<0-FS49-%A-%P>(P) CAMGE A,Zdend GO L5138 L5139: PPUSH [6035] CCALL 1,Zerrx L5138: ; LINE 999 MOVE A,<0-FS49-%A-%P>(P) CAMGE A,Zdgdp GO L5140 MOVE A,Zdend SUB A,<0-FS49-%A-%P>(P) IDIVI A,4 ADDI A,4096 SUBI P,FS49+%A+1 GO @<%A+1>(P) L5140: ; LINE 1000 MOVE A,<0-FS49-%A-%P>(P) SUB A,Zdbegi IDIVI A,4 SUBI P,FS49+%A+1 GO @<%A+1>(P) SUBI P,FS49+%A+1 GO @<%A+1>(P) FS49==1-1 %A==0 %A,,[ASCIZ/wtyptab/] Zwtypt: ADDI P,FS50 ; LINE 1017 PPUSH ZfnJty PPUSH [119] MOVEI A,S2 PPUSH A CCALL 3,Zxopen MOVEM A,<4-FS50-%P>(P) ; LINE 1018 MOVE A,Zctypp MOVEI C,Ztypta SUB A,C PPUSH A PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1019 MOVEI A,Ztypta MOVEM A,<1-FS50-%P>(P) L69: ; LINE 1020 MOVE A,<1-FS50-%P>(P) CAML A,Zctypp GO L5141 ; LINE 1021 MOVE A,<1-FS50-%P>(P) MOVEI C,Ztypfo ADD C,(A) MOVE A,(C) MOVEM A,<2-FS50-%P>(P) ; LINE 1022 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1023 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1024 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1025 MOVE A,<2-FS50-%P>(P) SUBI A,1 JUMPL A,L5142 CAILE A,4-1 GO L5142 GO @(A)[ L71 L72 L73 L74 ] L71: ; LINE 1026 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi GO L70 L72: ; LINE 1027 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) CCALL 1,Ztp2o PPUSH A PPUSH <4-FS50-%P>(P) CCALL 2,Zputi GO L70 L73: ; LINE 1028 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) CCALL 1,Ztp2o PPUSH A PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1029 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi GO L70 L74: ; LINE 1031 MOVEI B,1 MOVE A,<1-FS50-%P>(P) ADDM B,<1-FS50-%P>(P) PPUSH (A) CCALL 1,Zrp2o PPUSH A PPUSH <4-FS50-%P>(P) CCALL 2,Zputi GO L70 L5142: L70: GO L69 L5141: L68: ; LINE 1034 MOVE A,Zetypp SUB A,Zcrecp PPUSH A PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1035 MOVE A,Zcrecp MOVEM A,<1-FS50-%P>(P) L76: ; LINE 1036 MOVE A,<1-FS50-%P>(P) CAML A,Zetypp GO L5143 ; LINE 1037 MOVE A,<1-FS50-%P>(P) MOVEM A,<3-FS50-%P>(P) ; LINE 1038 MOVE A,<3-FS50-%P>(P) PPUSH (A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1039 MOVE A,<3-FS50-%P>(P) MOVE A,(A) CAME A,[-1] GO L5144 MOVEI A,1 ADDB A,<1-FS50-%P>(P) GO L5145 L5144: ; LINE 1041 MOVE A,<3-FS50-%P>(P) PPUSH 1(A) CCALL 1,Ztp2o PPUSH A PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1042 MOVE A,<3-FS50-%P>(P) PPUSH 2(A) PPUSH <4-FS50-%P>(P) CCALL 2,Zputi ; LINE 1043 MOVE A,<3-FS50-%P>(P) ADDI A,3 MOVEM A,<1-FS50-%P>(P) L5145: GO L76 L5143: L75: ; LINE 1046 PPUSH <4-FS50-%P>(P) CCALL 1,Zcclos SUBI P,FS50+%A+1 GO @<%A+1>(P) FS50==5-1 %A==1 %A,,[ASCIZ/tp2o/] Ztp2o: ADDI P,FS51 ; LINE 1054 MOVE A,<0-FS51-%A-%P>(P) MOVEM A,<1-FS51-%P>(P) ; LINE 1055 MOVE A,<1-FS51-%P>(P) MOVEI C,Ztypta CAMGE A,C GO L5147 MOVE A,<1-FS51-%P>(P) CAMGE A,Zctypp GO L5146 L5147: PPUSH [6005] CCALL 1,Zerrx L5146: ; LINE 1056 MOVE A,<1-FS51-%P>(P) MOVEI C,Ztypta SUB A,C SUBI P,FS51+%A+1 GO @<%A+1>(P) SUBI P,FS51+%A+1 GO @<%A+1>(P) FS51==2-1 %A==1 %A,,[ASCIZ/rp2o/] Zrp2o: ADDI P,FS52 ; LINE 1063 MOVE A,<0-FS52-%A-%P>(P) CAMGE A,Zcrecp GO L5149 MOVE A,<0-FS52-%A-%P>(P) CAMGE A,Zetypp GO L5148 L5149: PPUSH [6037] CCALL 1,Zerrx L5148: ; LINE 1064 MOVE A,Zetypp SUB A,<0-FS52-%A-%P>(P) SUBI P,FS52+%A+1 GO @<%A+1>(P) SUBI P,FS52+%A+1 GO @<%A+1>(P) FS52==1-1 %A==2 %A,,[ASCIZ/mkstruct/] Zmkstr: ADDI P,FS53 ; LINE 1078 PPUSH [0] CCALL 1,Zmkdum MOVEM A,<1-FS53-%P>(P) ; LINE 1079 PPUSH <1-FS53-%P>(P) PPUSH <0-FS53-%A-%P>(P) PPUSH <1-FS53-%A-%P>(P) CCALL 3,Zfixdu ; LINE 1080 MOVE A,<1-FS53-%P>(P) SUBI P,FS53+%A+1 GO @<%A+1>(P) SUBI P,FS53+%A+1 GO @<%A+1>(P) FS53==2-1 %A==1 %A,,[ASCIZ/mkdummy/] Zmkdum: ADDI P,FS54 ; LINE 1086 PPUSH [13] CCALL 1,Ztypxh MOVEM A,<1-FS54-%P>(P) ; LINE 1087 PPUSH [-1] CCALL 1,Ztypxh ; LINE 1088 PPUSH [1] CCALL 1,Ztypxh ; LINE 1089 PPUSH <0-FS54-%A-%P>(P) CCALL 1,Ztypxh ; LINE 1090 MOVE A,<1-FS54-%P>(P) SUBI P,FS54+%A+1 GO @<%A+1>(P) SUBI P,FS54+%A+1 GO @<%A+1>(P) FS54==2-1 %A==3 %A,,[ASCIZ/fixdummy/] Zfixdu: ADDI P,FS55 ; LINE 1100 PPUSH [-1] CCALL 1,Zrecxl ; LINE 1101 MOVE A,<1-FS55-%A-%P>(P) IMULI A,3 ADD A,<2-FS55-%A-%P>(P) MOVEM A,<2-FS55-%A-%P>(P) L78: ; LINE 1102 SETO A, ADDB A,<1-FS55-%A-%P>(P) JUMPL A,L5150 ; LINE 1103 MOVEI A,3 MOVN A,A ADDB A,<2-FS55-%A-%P>(P) ; LINE 1104 MOVE A,<2-FS55-%A-%P>(P) PPUSH 2(A) CCALL 1,Zrecxl ; LINE 1105 MOVE A,<2-FS55-%A-%P>(P) PPUSH 1(A) CCALL 1,Zrecxl ; LINE 1106 MOVE A,<2-FS55-%A-%P>(P) PPUSH (A) CCALL 1,Zrecxl MOVEM A,<1-FS55-%P>(P) GO L78 L5150: L77: ; LINE 1108 MOVE A,<0-FS55-%A-%P>(P) MOVEI C,12 MOVEM C,(A) ; LINE 1109 MOVE A,<0-FS55-%A-%P>(P) MOVE C,<1-FS55-%P>(P) MOVEM C,3(A) ; LINE 1110 PPUSH <0-FS55-%A-%P>(P) CCALL 1,Zfixst SUBI P,FS55+%A+1 GO @<%A+1>(P) FS55==2-1 %A==1 %A,,[ASCIZ/fixstr/] Zfixst: ADDI P,FS56 ; LINE 1119 MOVE A,<0-FS56-%A-%P>(P) MOVNI C,--2 MOVEM C,1(A) ; LINE 1120 MOVE A,<0-FS56-%A-%P>(P) MOVE A,3(A) MOVEM A,<3-FS56-%P>(P) ; LINE 1121 MOVEI A,0 MOVEM A,<1-FS56-%P>(P) L80: ; LINE 1122 MOVE A,<3-FS56-%P>(P) MOVE A,(A) CAMN A,[-1] GO L5151 ; LINE 1123 MOVE A,<3-FS56-%P>(P) MOVE C,<3-FS56-%P>(P) PPUSH 1(C) MOVEM A,<5-FS56-%P>(P) CCALL 1,Zfixty MOVE C,A MOVEM C,<4-FS56-%P>(P) MOVE A,<5-FS56-%P>(P) MOVEM C,1(A) ; LINE 1124 MOVE A,<4-FS56-%P>(P) MOVE A,2(A) CAMG A,<1-FS56-%P>(P) GO L5152 MOVE A,<4-FS56-%P>(P) MOVE A,2(A) MOVEM A,<1-FS56-%P>(P) L5152: ; LINE 1125 MOVEI A,3 ADDB A,<3-FS56-%P>(P) GO L80 L5151: L79: ; LINE 1127 MOVE A,<0-FS56-%A-%P>(P) MOVE C,<1-FS56-%P>(P) MOVEM C,2(A) ; LINE 1128 MOVE A,<0-FS56-%A-%P>(P) MOVE A,3(A) MOVEM A,<3-FS56-%P>(P) ; LINE 1129 MOVEI A,0 MOVEM A,<2-FS56-%P>(P) L82: ; LINE 1130 MOVE A,<3-FS56-%P>(P) MOVE A,(A) CAMN A,[-1] GO L5153 ; LINE 1131 MOVE A,<3-FS56-%P>(P) MOVE A,1(A) MOVEM A,<4-FS56-%P>(P) ; LINE 1132 PPUSH <2-FS56-%P>(P) MOVE A,<4-FS56-%P>(P) PPUSH 2(A) CCALL 2,Zalign MOVEM A,<2-FS56-%P>(P) ; LINE 1133 MOVE A,<3-FS56-%P>(P) MOVE C,<2-FS56-%P>(P) MOVEM C,2(A) ; LINE 1134 MOVE A,<4-FS56-%P>(P) MOVE A,1(A) ADDB A,<2-FS56-%P>(P) ; LINE 1135 MOVEI A,3 ADDB A,<3-FS56-%P>(P) GO L82 L5153: L81: ; LINE 1137 PPUSH <2-FS56-%P>(P) MOVE A,<0-FS56-%A-%P>(P) PPUSH 2(A) CCALL 2,Zalign MOVE C,<0-FS56-%A-%P>(P) MOVEM A,1(C) SUBI P,FS56+%A+1 GO @<%A+1>(P) FS56==6-1 %A==1 %A,,[ASCIZ/errcidn/] Zerrci: ADDI P,FS57 ; LINE 1146 PPUSH <0-FS57-%A-%P>(P) PPUSH [75] PPUSH Zcidn CCALL 3,Zerrx SUBI P,FS57+%A+1 GO @<%A+1>(P) FS57==1-1 .PDATA CONSTANTS END