github.com/PDP-10.PCC20
1
0
Fork 0
mirror of https://github.com/PDP-10/PCC20.git synced 2026-05-02 22:42:56 +00:00
Code Issues Releases Wiki Activity
Files
ab08e9afcf676461843cfe5f1a65c058a4214ccb
PDP-10.PCC20/sail/c32.mid
Lars Brinkhoff 1f285a1263 Files from WAITS.
2018-10-25 11:25:56 +02:00

3416 lines
41 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
TITLE c32
RADIX 10.
.INSRT <C>NC
.CODE
ENTRY Zopdop
ENTRY Zadope
ENTRY Zconv
ENTRY Zconvd
ENTRY Zconve
ENTRY Zconvx
ENTRY Zopt
ENTRY Ztaddr
ENTRY Ztelis
ENTRY Ztfarg
ENTRY Ztexpr
ENTRY Ztpadd
ENTRY Ztpcom
ENTRY Ztpsub
ENTRY Ztptro
ENTRY Ztxidn
ENTRY Ztxinc
ENTRY Ztxpr2
ENTRY Ztxpr3
ENTRY Zchkty
ENTRY Zpoint
ENTRY Zfudge
ENTRY Zesize
ENTRY Zectyp
ENTRY Zpctyp
ENTRY Zconv4
ENTRY Zcvt
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 Zacore
EXTERN Zacorp
EXTERN ZlcJno
EXTERN ZflcJn
EXTERN Zcore
EXTERN Zcorep
EXTERN Zcbn
EXTERN Znfunc
EXTERN Zlinen
EXTERN Zexprl
EXTERN Zttxle
EXTERN ZcurJo
EXTERN Ztempl
EXTERN Zautol
EXTERN Zaquot
EXTERN Zframe
EXTERN Zobjmo
EXTERN ZfJerr
EXTERN Zargop
EXTERN ZfJmac
EXTERN ZfJnod
EXTERN Zfidn
EXTERN Zntw
EXTERN ZeofJn
EXTERN Zaflag
EXTERN Zciln
EXTERN ZintJs
EXTERN Zallre
EXTERN Zallme
EXTERN Zanywh
EXTERN ZfnJer
EXTERN ZfnJno
EXTERN ZfnJty
EXTERN Zoptio
EXTERN ZfnJma
EXTERN ZtypeJ
EXTERN Znodel
EXTERN Zopbop
EXTERN Zftype
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 ZeJall
EXTERN Zintco
EXTERN Zjumpv
EXTERN Zmkeno
EXTERN Zmmove
EXTERN Zttexp
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 Zerrx
EXTERN Zctype
EXTERN ZeJfre
EXTERN Zcprin
EXTERN Zundfo
EXTERN Zmin
.IDATA
Zcvt:
127
127
127
127
127
127
127
127
127
127
127
125
127
127
127
127
127
127
127
127
127
127
126
32
33
34
127
127
127
127
127
127
35
126
36
37
38
39
40
41
127
127
42
43
126
44
127
127
127
127
127
127
45
46
47
126
127
127
127
127
127
127
127
48
127
127
126
49
50
51
127
127
127
52
127
127
53
126
54
55
127
127
127
56
127
127
57
58
126
59
127
127
127
60
127
127
61
62
63
126
Zopdop:
0
0
320
320
320
320
320
322
257
257
257
257
257
261
257
321
89
74
74
74
74
82
82
114
114
262
306
306
306
306
306
306
74
74
206
206
246
246
214
214
206
206
206
206
90
90
257
322
322
256
Zadope:
3
2
1
0
2
2
0
0
13
12
1
0
8
8
0
0
0
0
2
2
2
2
5
0
3
2
3
2
0
0
0
0
0
0
0
0
0
0
2
2
2
2
2
2
2
2
.CODE
.PDATA
S0: 116
0
S2: 98
0
S4: 45
51
52
51
53
57
55
51
56
51
54
56
0
S17: 37
50
100
32
84
88
80
82
50
32
37
111
91
37
100
44
37
111
44
37
111
93
10
0
S41: 37
50
100
32
84
88
80
82
50
32
82
69
84
85
82
78
83
32
37
111
32
91
37
111
44
37
111
44
37
111
93
10
0
S74: 37
50
100
32
84
88
80
82
50
32
82
69
84
85
82
78
83
32
48
10
0
.CODE
%A==2
%A,,[ASCIZ/chktype/]
Zchkty: ADDI P,FS1
; LINE 66
SKIPE <0-FS1-%A-%P>(P)
GO L5000
MOVEI A,0
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5000:
; LINE 67
MOVE A,<0-FS1-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<1-FS1-%P>(P)
; LINE 68
MOVE A,<1-FS1-%A-%P>(P)
JUMPG A,L5001
; LINE 69
MOVN A,<1-FS1-%A-%P>(P)
MOVEM A,<1-FS1-%A-%P>(P)
; LINE 70
MOVE A,<0-FS1-%A-%P>(P)
MOVE A,4(A)
JUMPN A,L5002
; LINE 71
PPUSH [2023]
PPUSH ZcurJo
CCALL 2,Zerrx
; LINE 72
MOVEI A,1
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5002:
; LINE 74
MOVE A,<1-FS1-%A-%P>(P)
JUMPN A,L5003
MOVEI A,0
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5003:
L5001:
; LINE 77
MOVE A,<1-FS1-%P>(P)
CAME A,ZTUNDE
GO L5004
MOVEI A,1
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5004:
; LINE 78
MOVE A,<1-FS1-%P>(P)
CAME A,ZTINT
GO L5007
MOVE A,<1-FS1-%A-%P>(P)
ANDI A,1
JUMPN A,L5006
L5007:
MOVE A,<1-FS1-%P>(P)
CAME A,ZTCHAR
GO L5008
MOVE A,<1-FS1-%A-%P>(P)
ANDI A,2
JUMPN A,L5006
L5008:
MOVE A,<1-FS1-%P>(P)
CAME A,ZTFLOA
GO L5009
MOVE A,<1-FS1-%A-%P>(P)
ANDI A,4
JUMPN A,L5006
L5009:
MOVE A,<1-FS1-%P>(P)
CAME A,ZTDOUB
GO L5010
MOVE A,<1-FS1-%A-%P>(P)
ANDI A,8
JUMPN A,L5006
L5010:
MOVE A,<1-FS1-%A-%P>(P)
ANDI A,16
JUMPE A,L5005
PPUSH <0-FS1-%A-%P>(P)
CCALL 1,Zpoint
JUMPE A,L5005
L5006:
; LINE 82
MOVEI A,0
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5005:
; LINE 84
PPUSH [2022]
PPUSH ZcurJo
CCALL 2,Zerrx
; LINE 85
MOVEI A,1
SUBI P,FS1+%A+1
GO @<%A+1>(P)
SUBI P,FS1+%A+1
GO @<%A+1>(P)
FS1==2-1
%A==1
%A,,[ASCIZ/fudge/]
Zfudge: ADDI P,FS2
; LINE 98
MOVE A,<0-FS2-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<1-FS2-%P>(P)
; LINE 99
MOVE A,<1-FS2-%P>(P)
MOVE A,(A)
CAIN A,9
GO L5011
PPUSH [6026]
CCALL 1,Zerrx
L5011:
; LINE 100
MOVE A,<1-FS2-%P>(P)
MOVE A,3(A)
MOVE A,1(A)
SUBI P,FS2+%A+1
GO @<%A+1>(P)
SUBI P,FS2+%A+1
GO @<%A+1>(P)
FS2==2-1
%A==1
%A,,[ASCIZ/esize/]
Zesize: ADDI P,FS3
; LINE 111
MOVE A,<0-FS3-%A-%P>(P)
MOVE A,1(A)
MOVE A,1(A)
SUBI P,FS3+%A+1
GO @<%A+1>(P)
SUBI P,FS3+%A+1
GO @<%A+1>(P)
FS3==1-1
%A==1
%A,,[ASCIZ/pointer/]
Zpoint: ADDI P,FS4
; LINE 121
SKIPN <0-FS4-%A-%P>(P)
GO L5012
MOVE A,<0-FS4-%A-%P>(P)
MOVE A,1(A)
MOVE A,(A)
CAIE A,9
GO L5012
MOVEI A,1
GO L5013
L5012:
MOVEI A,0
L5013:
SUBI P,FS4+%A+1
GO @<%A+1>(P)
SUBI P,FS4+%A+1
GO @<%A+1>(P)
FS4==1-1
%A==1
%A,,[ASCIZ/ectype/]
Zectyp: ADDI P,FS5
; LINE 131
MOVE A,<0-FS5-%A-%P>(P)
PPUSH 1(A)
CCALL 1,Zctype
SUBI P,FS5+%A+1
GO @<%A+1>(P)
SUBI P,FS5+%A+1
GO @<%A+1>(P)
FS5==1-1
%A==1
%A,,[ASCIZ/pctype/]
Zpctyp: ADDI P,FS6
; LINE 141
PPUSH <0-FS6-%A-%P>(P)
CCALL 1,Zectyp
SUBI A,6
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/conv/]
Zconv: ADDI P,FS7
; LINE 159
SKIPE <0-FS7-%A-%P>(P)
GO L5014
MOVEI A,0
SUBI P,FS7+%A+1
GO @<%A+1>(P)
L5014:
; LINE 160
PPUSH <0-FS7-%A-%P>(P)
PPUSH <1-FS7-%A-%P>(P)
CCALL 2,Zchkty
JUMPE A,L5015
MOVEI A,0
SUBI P,FS7+%A+1
GO @<%A+1>(P)
L5015:
; LINE 161
MOVE A,<0-FS7-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<1-FS7-%P>(P)
; LINE 162
MOVE A,<1-FS7-%P>(P)
CAMN A,ZTCHAR
GO L5017
PPUSH <0-FS7-%A-%P>(P)
CCALL 1,Zpoint
JUMPE A,L5016
L5017:
PPUSH <0-FS7-%A-%P>(P)
PPUSH ZTINT
CCALL 2,Zconve
MOVEM A,<0-FS7-%A-%P>(P)
GO L5018
L5016:
; LINE 163
MOVE A,<1-FS7-%P>(P)
CAME A,ZTFLOA
GO L5019
PPUSH <0-FS7-%A-%P>(P)
PPUSH ZTDOUB
CCALL 2,Zconve
MOVEM A,<0-FS7-%A-%P>(P)
L5019:
L5018:
; LINE 164
MOVE A,<0-FS7-%A-%P>(P)
SUBI P,FS7+%A+1
GO @<%A+1>(P)
SUBI P,FS7+%A+1
GO @<%A+1>(P)
FS7==2-1
%A==2
%A,,[ASCIZ/conv4/]
Zconv4: ADDI P,FS8
; LINE 182
MOVE A,<1-FS8-%A-%P>(P)
PPUSH (A)
PPUSH [15]
CCALL 2,Zchkty
MOVE C,<0-FS8-%A-%P>(P)
PPUSH (C)
PPUSH [15]
MOVEM A,<3-FS8-%P>(P)
CCALL 2,Zchkty
MOVE C,A
MOVE A,<3-FS8-%P>(P)
IOR A,C
JUMPE A,L5020
; LINE 183
MOVNI A,--1
SUBI P,FS8+%A+1
GO @<%A+1>(P)
L5020:
; LINE 184
MOVE A,<0-FS8-%A-%P>(P)
MOVE A,(A)
MOVE A,1(A)
MOVEM A,<1-FS8-%P>(P)
; LINE 185
MOVE A,<1-FS8-%A-%P>(P)
MOVE A,(A)
MOVE A,1(A)
MOVEM A,<2-FS8-%P>(P)
; LINE 186
MOVE A,<1-FS8-%P>(P)
CAMN A,ZTFLOA
GO L5022
MOVE A,<1-FS8-%P>(P)
CAMN A,ZTDOUB
GO L5022
MOVE A,<2-FS8-%P>(P)
CAMN A,ZTFLOA
GO L5022
MOVE A,<2-FS8-%P>(P)
CAME A,ZTDOUB
GO L5021
L5022:
; LINE 187
MOVE A,<0-FS8-%A-%P>(P)
PPUSH (A)
PPUSH ZTDOUB
CCALL 2,Zconve
MOVE C,<0-FS8-%A-%P>(P)
MOVEM A,(C)
; LINE 188
MOVE A,<1-FS8-%A-%P>(P)
PPUSH (A)
PPUSH ZTDOUB
CCALL 2,Zconve
MOVE C,<1-FS8-%A-%P>(P)
MOVEM A,(C)
; LINE 189
MOVEI A,1
SUBI P,FS8+%A+1
GO @<%A+1>(P)
GO L5023
L5021:
; LINE 192
MOVE A,<0-FS8-%A-%P>(P)
PPUSH (A)
PPUSH ZTINT
CCALL 2,Zconve
MOVE C,<0-FS8-%A-%P>(P)
MOVEM A,(C)
; LINE 193
MOVE A,<1-FS8-%A-%P>(P)
PPUSH (A)
PPUSH ZTINT
CCALL 2,Zconve
MOVE C,<1-FS8-%A-%P>(P)
MOVEM A,(C)
; LINE 194
MOVEI A,0
SUBI P,FS8+%A+1
GO @<%A+1>(P)
L5023:
SUBI P,FS8+%A+1
GO @<%A+1>(P)
FS8==4-1
%A==2
%A,,[ASCIZ/convert/]
Zconve: ADDI P,FS9
; LINE 205
PPUSH <0-FS9-%A-%P>(P)
PPUSH <1-FS9-%A-%P>(P)
CCALL 1,Zctype
PPUSH A
PPUSH <1-FS9-%A-%P>(P)
CCALL 3,Zconvd
SUBI P,FS9+%A+1
GO @<%A+1>(P)
SUBI P,FS9+%A+1
GO @<%A+1>(P)
FS9==1-1
%A==2
%A,,[ASCIZ/convx/]
Zconvx: ADDI P,FS10
; LINE 215
PPUSH <0-FS10-%A-%P>(P)
PPUSH <1-FS10-%A-%P>(P)
PPUSH ZTUNDE
CCALL 3,Zconvd
SUBI P,FS10+%A+1
GO @<%A+1>(P)
SUBI P,FS10+%A+1
GO @<%A+1>(P)
FS10==1-1
%A==3
%A,,[ASCIZ/convd/]
Zconvd: ADDI P,FS11
; LINE 242
PPUSH <0-FS11-%A-%P>(P)
CCALL 1,Zectyp
IMULI A,10
ADD A,<1-FS11-%A-%P>(P)
MOVEI C,Zcvt
ADD C,A
MOVE A,(C)
MOVEM A,<1-FS11-%P>(P)
SUBI A,125
JUMPL A,L5024
CAILE A,127-125
GO L5024
GO @(A)[
L2
L3
L1
]
L1:
; LINE 243
PPUSH [2026]
PPUSH ZcurJo
CCALL 2,Zerrx
; LINE 244
MOVEI A,0
SUBI P,FS11+%A+1
GO @<%A+1>(P)
L3:
L2:
; LINE 246
MOVE A,<0-FS11-%A-%P>(P)
SUBI P,FS11+%A+1
GO @<%A+1>(P)
L5024:
L0:
; LINE 248
PPUSH <1-FS11-%P>(P)
PPUSH <2-FS11-%A-%P>(P)
PPUSH [0]
PPUSH <0-FS11-%A-%P>(P)
PPUSH [0]
CCALL 5,Zmkeno
SUBI P,FS11+%A+1
GO @<%A+1>(P)
SUBI P,FS11+%A+1
GO @<%A+1>(P)
FS11==2-1
%A==1
%A,,[ASCIZ/texpr/]
Ztexpr: ADDI P,FS12
; LINE 333
MOVE A,Zexprl
JUMPN A,L5025
CCALL 0,ZeJfre
L5025:
; LINE 334
MOVEI A,1
ADDB A,Zexprl
; LINE 336
MOVEI A,0
MOVEM A,<2-FS12-%P>(P)
MOVEM A,<1-FS12-%P>(P)
; LINE 337
MOVEI A,0
MOVEM A,<3-FS12-%P>(P)
; LINE 338
MOVE A,<0-FS12-%A-%P>(P)
MOVEI C,Zopdop
ADD C,(A)
MOVE A,(C)
ANDI A,3
SUBI A,1
JUMPL A,L5026
CAILE A,2-1
GO L5026
GO @(A)[
L6
L5
]
L5:
; LINE 339
MOVE A,<0-FS12-%A-%P>(P)
PPUSH 2(A)
CCALL 1,Ztexpr
MOVEM A,<2-FS12-%P>(P)
JUMPN A,L5027
MOVEI A,1
MOVEM A,<3-FS12-%P>(P)
L5027:
L6:
; LINE 340
MOVE A,<0-FS12-%A-%P>(P)
PPUSH 1(A)
CCALL 1,Ztexpr
MOVEM A,<1-FS12-%P>(P)
JUMPN A,L5028
MOVEI A,1
MOVEM A,<3-FS12-%P>(P)
L5028:
L5026:
L4:
; LINE 342
MOVE A,<3-FS12-%P>(P)
JUMPN A,L5029
PPUSH <0-FS12-%A-%P>(P)
PPUSH <1-FS12-%P>(P)
PPUSH <2-FS12-%P>(P)
CCALL 3,Ztxpr2
MOVEM A,<1-FS12-%P>(P)
GO L5030
L5029:
; LINE 343
MOVEI A,0
MOVEM A,<1-FS12-%P>(P)
L5030:
; LINE 344
SETO A,
ADDB A,Zexprl
; LINE 345
MOVE A,<1-FS12-%P>(P)
SUBI P,FS12+%A+1
GO @<%A+1>(P)
SUBI P,FS12+%A+1
GO @<%A+1>(P)
FS12==4-1
%A==3
%A,,[ASCIZ/txpr2/]
Ztxpr2: ADDI P,FS13
; LINE 355
MOVE A,Zaflag
JUMPE A,L5031
MOVEI A,S17
PPUSH A
PPUSH Zexprl
PPUSH <0-FS13-%A-%P>(P)
MOVE A,<0-FS13-%A-%P>(P)
PPUSH (A)
PPUSH <1-FS13-%A-%P>(P)
PPUSH <2-FS13-%A-%P>(P)
CCALL 6,Zcprin
L5031:
; LINE 360
PPUSH <0-FS13-%A-%P>(P)
PPUSH <1-FS13-%A-%P>(P)
PPUSH <2-FS13-%A-%P>(P)
CCALL 3,Ztxpr3
MOVEM A,<1-FS13-%P>(P)
; LINE 361
SKIPN <1-FS13-%P>(P)
GO L5032
MOVE A,Zexprl
CAMN A,Zaquot
GO L5032
MOVE A,<1-FS13-%P>(P)
MOVE A,1(A)
MOVEM A,<2-FS13-%P>(P)
MOVE A,(A)
CAIE A,11
GO L5032
; LINE 362
MOVE A,<1-FS13-%P>(P)
MOVE C,<2-FS13-%P>(P)
MOVE C,3(C)
MOVEM C,<2-FS13-%P>(P)
MOVEM C,1(A)
; LINE 363
PPUSH <1-FS13-%P>(P)
CCALL 1,Ztaddr
MOVEM A,<1-FS13-%P>(P)
; LINE 364
MOVE A,<1-FS13-%P>(P)
PPUSH <2-FS13-%P>(P)
MOVEM A,<3-FS13-%P>(P)
CCALL 1,Zmkptr
MOVE C,A
MOVE A,<3-FS13-%P>(P)
MOVEM C,1(A)
L5032:
; LINE 369
MOVE A,Zaflag
JUMPE A,L5033
; LINE 370
SKIPN <1-FS13-%P>(P)
GO L5034
MOVEI A,S41
PPUSH A
PPUSH Zexprl
PPUSH <1-FS13-%P>(P)
MOVE A,<1-FS13-%P>(P)
PPUSH (A)
MOVE A,<1-FS13-%P>(P)
PPUSH 7(A)
MOVE A,<1-FS13-%P>(P)
PPUSH 8(A)
CCALL 6,Zcprin
GO L5035
L5034:
; LINE 372
MOVEI A,S74
PPUSH A
PPUSH Zexprl
CCALL 2,Zcprin
L5035:
L5033:
; LINE 377
MOVE A,<1-FS13-%P>(P)
SUBI P,FS13+%A+1
GO @<%A+1>(P)
SUBI P,FS13+%A+1
GO @<%A+1>(P)
FS13==4-1
%A==3
%A,,[ASCIZ/txpr3/]
Ztxpr3: ADDI P,FS14
; LINE 386
MOVE A,<0-FS14-%A-%P>(P)
MOVE A,(A)
MOVEM A,<9-FS14-%P>(P)
MOVEI C,Zopdop
ADD C,A
MOVE A,(C)
MOVEM A,<8-FS14-%P>(P)
; LINE 387
MOVEI A,0
MOVEM A,<5-FS14-%P>(P)
MOVEM A,<7-FS14-%P>(P)
; LINE 388
MOVE A,ZTINT
MOVEM A,<2-FS14-%P>(P)
; LINE 389
MOVE A,<9-FS14-%P>(P)
MOVEM A,ZcurJo
; LINE 391
MOVE A,<8-FS14-%P>(P)
ANDI A,4
JUMPE A,L5036
; LINE 392
PPUSH <1-FS14-%A-%P>(P)
PPUSH [0]
CCALL 2,Zchkty
JUMPE A,L5037
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5037:
; LINE 393
MOVEI A,1
MOVEM A,<6-FS14-%P>(P)
GO L5038
L5036:
; LINE 395
MOVEI A,0
MOVEM A,<6-FS14-%P>(P)
L5038:
; LINE 397
MOVE A,<8-FS14-%P>(P)
ANDI A,32
JUMPE A,L5039
PPUSH <1-FS14-%A-%P>(P)
CCALL 1,Zpoint
JUMPN A,L5040
PPUSH <2-FS14-%A-%P>(P)
CCALL 1,Zpoint
JUMPE A,L5039
L5040:
; LINE 398
PPUSH <9-FS14-%P>(P)
PPUSH <1-FS14-%A-%P>(P)
PPUSH <2-FS14-%A-%P>(P)
CCALL 3,Ztptro
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5039:
; LINE 400
MOVE A,<8-FS14-%P>(P)
ANDI A,24
MOVE B,[-3,,[
8
16
24
L8
L12
L13
]]
CAMN A,(B)
GO @3(B)
AOBJN B,.-2
GO L5041
L8:
; LINE 401
PPUSH <1-FS14-%A-%P>(P)
PPUSH [3]
CCALL 2,Zconv
MOVEM A,<1-FS14-%A-%P>(P)
; LINE 402
PPUSH <2-FS14-%A-%P>(P)
PPUSH [3]
CCALL 2,Zconv
MOVEM A,<2-FS14-%A-%P>(P)
; LINE 403
SKIPN <1-FS14-%A-%P>(P)
GO L5043
SKIPE <2-FS14-%A-%P>(P)
GO L5042
L5043:
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5042:
GO L7
L12:
; LINE 405
MOVEI A,<1-FS14-%A-%P>(P)
PPUSH A
MOVEI A,<2-FS14-%A-%P>(P)
PPUSH A
CCALL 2,Zconv4
SUB A,[-1]
JUMPL A,L5044
CAILE A,1--1
GO L5044
GO @(A)[
L11
L5044
L10
]
L10:
; LINE 406
MOVE A,ZTDOUB
MOVEM A,<2-FS14-%P>(P)
MOVEI A,2
ADDB A,<6-FS14-%P>(P)
GO L9
L11:
; LINE 407
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5044:
L9:
GO L7
L13:
; LINE 410
PPUSH <2-FS14-%A-%P>(P)
PPUSH [31]
CCALL 2,Zchkty
PPUSH <1-FS14-%A-%P>(P)
PPUSH [31]
MOVEM A,<11-FS14-%P>(P)
CCALL 2,Zchkty
MOVE C,A
MOVE A,<11-FS14-%P>(P)
IOR A,C
JUMPE A,L5045
; LINE 411
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5045:
L5041:
L7:
; LINE 413
MOVE A,<8-FS14-%P>(P)
ANDI A,64
JUMPE A,L5046
MOVEI A,Zopbop
ADD A,<9-FS14-%P>(P)
MOVE A,(A)
ADDB A,<6-FS14-%P>(P)
L5046:
; LINE 414
MOVE A,<8-FS14-%P>(P)
ANDI A,128
JUMPE A,L5047
; LINE 415
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,4(A)
JUMPE A,L5049
PPUSH <6-FS14-%P>(P)
CCALL 1,Zundfo
JUMPE A,L5048
L5049:
; LINE 425
MOVE A,<6-FS14-%P>(P)
SUBI A,1
PPUSH A
PPUSH <2-FS14-%P>(P)
PPUSH <5-FS14-%P>(P)
PPUSH <1-FS14-%A-%P>(P)
PPUSH <2-FS14-%A-%P>(P)
CCALL 5,Zmkeno
MOVEM A,<2-FS14-%A-%P>(P)
; LINE 426
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,4(A)
JUMPN A,L5050
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,7(A)
MOVEM A,<1-FS14-%A-%P>(P)
L5050:
; LINE 427
MOVE A,<1-FS14-%A-%P>(P)
MOVEI C,2
MOVEM C,4(A)
; LINE 429
GO L14
L5048:
L5047:
; LINE 433
MOVE A,<8-FS14-%P>(P)
ANDI A,256
JUMPE A,L5051
MOVE A,<9-FS14-%P>(P)
SUBI A,2
JUMPL A,L48
CAILE A,49-2
GO L48
GO @(A)[
L26
L27
L28
L29
L36
L40
L19
L18
L17
L16
L21
L22
L23
L24
L48
L48
L48
L48
L48
L48
L48
L48
L48
L25
L35
L34
L33
L32
L31
L30
L48
L48
L48
L48
L48
L48
L48
L48
L48
L48
L48
L48
L48
L48
L37
L46
L41
L47
]
L19:
L18:
L17:
L16:
; LINE 438
PPUSH <9-FS14-%P>(P)
PPUSH <1-FS14-%A-%P>(P)
PPUSH [1]
CCALL 3,Ztxinc
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L21:
L20:
; LINE 441
PPUSH <1-FS14-%A-%P>(P)
PPUSH [16]
CCALL 2,Zchkty
JUMPE A,L5053
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5053:
; LINE 442
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,(A)
CAIGE A,15
GO L5054
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,(A)
CAILE A,18
GO L5054
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,7(A)
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5054:
; LINE 443
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,3(A)
MOVEM A,<2-FS14-%P>(P)
; LINE 444
MOVEI A,19
MOVEM A,<6-FS14-%P>(P)
; LINE 445
MOVEI A,1
MOVEM A,<5-FS14-%P>(P)
GO L15
L22:
; LINE 448
PPUSH <1-FS14-%A-%P>(P)
CCALL 1,Ztaddr
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L23:
; LINE 450
PPUSH <1-FS14-%A-%P>(P)
PPUSH [15]
CCALL 2,Zconv
MOVEM A,<1-FS14-%A-%P>(P)
JUMPN A,L5055
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5055:
; LINE 451
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<2-FS14-%P>(P)
CAME A,ZTINT
GO L5056
MOVEI A,0
MOVEM A,<6-FS14-%P>(P)
GO L5057
L5056:
; LINE 452
MOVEI A,1
MOVEM A,<6-FS14-%P>(P)
L5057:
GO L15
L24:
; LINE 455
PPUSH <1-FS14-%A-%P>(P)
PPUSH [3]
CCALL 2,Zconv
MOVEM A,<1-FS14-%A-%P>(P)
JUMPN A,L5058
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5058:
; LINE 456
MOVEI A,6
MOVEM A,<6-FS14-%P>(P)
GO L15
L25:
L14:
; LINE 460
PPUSH <2-FS14-%A-%P>(P)
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<2-FS14-%P>(P)
PPUSH A
CCALL 2,Zconve
MOVEM A,<2-FS14-%A-%P>(P)
JUMPN A,L5059
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5059:
; LINE 461
MOVEI A,95
MOVEM A,<6-FS14-%P>(P)
GO L15
L26:
; LINE 464
MOVE A,<0-FS14-%A-%P>(P)
ADDI A,1
PPUSH A
CCALL 1,Ztxidn
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L27:
; LINE 466
MOVE A,ZTINT
MOVEM A,<2-FS14-%P>(P)
; LINE 467
MOVE A,<0-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<7-FS14-%P>(P)
; LINE 468
MOVE A,<7-FS14-%P>(P)
MOVEM A,<1-FS14-%A-%P>(P)
GO L15
L28:
; LINE 471
MOVE A,ZTDOUB
MOVEM A,<2-FS14-%P>(P)
; LINE 472
MOVE A,<0-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<7-FS14-%P>(P)
; LINE 473
MOVE A,<7-FS14-%P>(P)
MOVEM A,<1-FS14-%A-%P>(P)
GO L15
L29:
; LINE 476
MOVE A,ZTACHA
MOVEM A,<2-FS14-%P>(P)
; LINE 477
MOVE A,<0-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<7-FS14-%P>(P)
; LINE 478
MOVE A,<7-FS14-%P>(P)
MOVEM A,<1-FS14-%A-%P>(P)
GO L15
L35:
L34:
L33:
L32:
L31:
L30:
; LINE 486
MOVE A,<2-FS14-%P>(P)
CAME A,ZTDOUB
GO L5060
MOVEI A,134
GO L5061
L5060:
MOVEI A,128
L5061:
ADD A,<9-FS14-%P>(P)
SUBI A,26
MOVEM A,<6-FS14-%P>(P)
; LINE 487
MOVE A,ZTINT
MOVEM A,<2-FS14-%P>(P)
GO L15
L36:
; LINE 490
MOVE A,<0-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<10-FS14-%P>(P)
; LINE 491
PPUSH <10-FS14-%P>(P)
CCALL 1,Ztexpr
MOVEM A,<1-FS14-%A-%P>(P)
JUMPN A,L5062
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5062:
; LINE 492
MOVE A,<10-FS14-%P>(P)
MOVE A,(A)
CAIE A,2
GO L5063
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,(A)
CAIN A,127
GO L5063
; LINE 493
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,7(A)
MOVEM A,<1-FS14-%A-%P>(P)
; LINE 494
SKIPE <1-FS14-%A-%P>(P)
GO L5064
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5064:
L5063:
; LINE 496
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,(A)
CAIN A,10
GO L5065
; LINE 497
PPUSH [2028]
CCALL 1,Zerrx
; LINE 498
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5065:
; LINE 500
MOVE A,<0-FS14-%A-%P>(P)
PPUSH 2(A)
CCALL 1,Ztelis
MOVEM A,<2-FS14-%A-%P>(P)
; LINE 501
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,3(A)
MOVEM A,<2-FS14-%P>(P)
GO L15
L37:
; LINE 512
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,(A)
CAIN A,12
GO L5066
; LINE 513
PPUSH [2030]
CCALL 1,Zerrx
; LINE 514
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5066:
; LINE 516
MOVE A,<0-FS14-%A-%P>(P)
MOVE A,2(A)
MOVEM A,<4-FS14-%P>(P)
; LINE 517
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,3(A)
MOVEM A,<1-FS14-%P>(P)
L39:
; LINE 518
MOVE A,<1-FS14-%P>(P)
MOVE A,(A)
CAMN A,[-1]
GO L5067
; LINE 519
MOVE A,<1-FS14-%P>(P)
MOVE A,(A)
CAMN A,<4-FS14-%P>(P)
GO L38
; LINE 520
MOVEI A,3
ADDB A,<1-FS14-%P>(P)
GO L39
L5067:
L38:
; LINE 521
MOVE A,<1-FS14-%P>(P)
MOVE A,(A)
CAMN A,<4-FS14-%P>(P)
GO L5068
; LINE 522
PPUSH [2029]
PPUSH [75]
PPUSH <4-FS14-%P>(P)
CCALL 3,Zerrx
; LINE 523
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5068:
; LINE 525
MOVE A,<1-FS14-%P>(P)
MOVE A,1(A)
MOVEM A,<2-FS14-%P>(P)
; LINE 526
MOVE A,<1-FS14-%P>(P)
MOVE A,2(A)
MOVEM A,<3-FS14-%P>(P)
; LINE 527
PPUSH <1-FS14-%A-%P>(P)
CCALL 1,Ztaddr
MOVEM A,<1-FS14-%A-%P>(P)
; LINE 528
PPUSH <2-FS14-%P>(P)
CCALL 1,Zmkptr
MOVEM A,<2-FS14-%P>(P)
; LINE 529
PPUSH <2-FS14-%P>(P)
CCALL 1,Zctype
MOVEM A,<4-FS14-%P>(P)
; LINE 530
PPUSH <1-FS14-%A-%P>(P)
PPUSH <4-FS14-%P>(P)
CCALL 2,Zconvx
MOVEM A,<1-FS14-%A-%P>(P)
; LINE 531
MOVE A,<1-FS14-%A-%P>(P)
MOVE C,<2-FS14-%P>(P)
MOVEM C,1(A)
; LINE 532
MOVE A,<4-FS14-%P>(P)
SUBI A,6
MOVEM A,<4-FS14-%P>(P)
; LINE 533
MOVE A,<4-FS14-%P>(P)
ADDI A,102
PPUSH A
PPUSH <2-FS14-%P>(P)
PPUSH [0]
PPUSH <1-FS14-%A-%P>(P)
MOVEI C,Zspoin
ADD C,<4-FS14-%P>(P)
MOVE A,<3-FS14-%P>(P)
IDIV A,(C)
PPUSH A
CCALL 1,Zintco
PPUSH A
CCALL 5,Zmkeno
MOVEM A,<1-FS14-%A-%P>(P)
; LINE 534
GO L20
L40:
; LINE 536
PPUSH <1-FS14-%A-%P>(P)
PPUSH [31]
CCALL 2,Zchkty
JUMPE A,L5069
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5069:
L41:
; LINE 538
MOVE A,<2-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<2-FS14-%P>(P)
GO L15
L46:
; LINE 541
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE C,<2-FS14-%A-%P>(P)
CAMN A,1(C)
GO L5070
; LINE 542
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,(A)
CAILE A,3
GO L5071
MOVE A,<2-FS14-%A-%P>(P)
MOVE A,1(A)
MOVE A,(A)
CAILE A,3
GO L5071
; LINE 544
MOVEI A,<1-FS14-%A-%P>(P)
PPUSH A
MOVEI A,<2-FS14-%A-%P>(P)
PPUSH A
CCALL 2,Zconv4
SUB A,[-1]
JUMPL A,L45
CAILE A,1--1
GO L45
GO @(A)[
L44
L45
L43
]
L43:
; LINE 545
MOVE A,ZTDOUB
MOVEM A,<2-FS14-%P>(P)
GO L42
L44:
; LINE 546
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L45:
; LINE 547
MOVE A,ZTINT
MOVEM A,<2-FS14-%P>(P)
L5072:
L42:
GO L5073
L5071:
; LINE 551
PPUSH [2031]
CCALL 1,Zerrx
; LINE 552
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5073:
GO L5074
L5070:
; LINE 555
MOVE A,<1-FS14-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<2-FS14-%P>(P)
L5074:
GO L15
L47:
; LINE 558
MOVE A,Zaquot
MOVEM A,<3-FS14-%P>(P)
; LINE 559
MOVE A,Zexprl
ADDI A,1
MOVEM A,Zaquot
; LINE 560
MOVE A,<0-FS14-%A-%P>(P)
PPUSH 1(A)
CCALL 1,Ztexpr
MOVEM A,<1-FS14-%A-%P>(P)
; LINE 561
MOVE A,<3-FS14-%P>(P)
MOVEM A,Zaquot
; LINE 562
SKIPE <1-FS14-%A-%P>(P)
GO L5075
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5075:
; LINE 563
PPUSH <1-FS14-%A-%P>(P)
CCALL 1,Zesize
PPUSH A
CCALL 1,Zintco
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L48:
; LINE 565
PPUSH [2035]
PPUSH <9-FS14-%P>(P)
CCALL 2,Zerrx
; LINE 566
MOVEI A,0
SUBI P,FS14+%A+1
GO @<%A+1>(P)
L5052:
L15:
L5051:
; LINE 569
PPUSH <6-FS14-%P>(P)
PPUSH <2-FS14-%P>(P)
PPUSH <5-FS14-%P>(P)
PPUSH <1-FS14-%A-%P>(P)
PPUSH <2-FS14-%A-%P>(P)
CCALL 5,Zmkeno
SUBI P,FS14+%A+1
GO @<%A+1>(P)
SUBI P,FS14+%A+1
GO @<%A+1>(P)
FS14==12-1
%A==3
%A,,[ASCIZ/tptrop/]
Ztptro: ADDI P,FS15
; LINE 581
MOVE A,<0-FS15-%A-%P>(P)
SUBI A,23
JUMPL A,L5076
CAILE A,37-23
GO L5076
GO @(A)[
L50
L52
L5076
L59
L58
L57
L56
L55
L54
L5076
L5076
L5076
L5076
L53
L51
]
L50:
; LINE 582
PPUSH <1-FS15-%A-%P>(P)
PPUSH <2-FS15<31><35>`<60>5<EFBFBD><35>>QA$<07><>̘%<25>Z<><5A>MkD%'+<12><>,<2C>M<EFBFBD><4D><EFBFBD>K,b󧉀<><F3A78980><EFBFBD><EFBFBD>b<EFBFBD>! R0jbt(v<13>$Ί<>Tpf4!!<21><><EFBFBD>mD`m:(!!+M6ct!<21>*Ӑ%<25><18><>M<EFBFBD><4D><EFBFBD>K4K |Q@RA!+'$xd[<5B>LbjZK𖥠<4B>! R%<19><04>YkQaCIH4'+  Y<>)<29>j<EFBFBD>Vb(<13>%<25><>D|Q R<><52>Lj<4C><6A><06>)l@jph4A!+'$xd[<5B>LbjZK𖥠<4B>! R%<19><04>YkA_S]h4+<2B><>E<05>&5`<60><><EFBFBD><EFBFBD>)l@jpj4A!+'%6b`et!A+'la:%!!+' xd[<5B>)<29>j<EFBFBD><6A><EFBFBD><EFBFBD>KAxQ R(!!+<2B><> x<><78><EFBFBD>Sb<53>4KZK@|Q R4<07><>L<12><>-t<><74>HM+<13>F<><46><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>D<xKVb|Q<><14>1T`nnt4v<><76>I<EFBFBD>jpl(!A+'lb`e:4!!<21><><EFBFBD>mA:A!+'$xb[<5B>LbjZK𖥠<4B>! R%!!+' xd[<5B>)<29>j<EFBFBD><6A><EFBFBD><EFBFBD>KAxQ R(1hY<68>:pÓ'<27><>IA<>#Sb<53>,KVb4<1E><><K<05><><EFBFBD>QA􆊘<41>Lt(v<13>"<22>j<EFBFBD>\%!!+'<27><04>b<EFBFBD>I:A!+'%6c:(!!+<2B><> x<><78><EFBFBD>Sb<53>4KZK@|Q R4!!<21><><EFBFBD><12><>Ʀ<><C6A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>QA$<07><>̘%<25>Z<><5A>IH%'+<12><>,<2C>M<EFBFBD><4D><EFBFBD>K,b󧉀<><F3A78980><EFBFBD><EFBFBD>b<EFBFBD>! R0jrt)jpt<70><74>Lj<4C><6A><06><><EFBFBD><EFBFBD>
1Tjt0jht(v<13>$Ί<>Trf4!!<21><><EFBFBD><12><><EFBFBD>Ʀ<EFBFBD><C6A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>QA$!<21>*Ӑ%<25>-<2D>M<EFBFBD><4D><EFBFBD>K4K |Q@R5-
Xx`[<5B>)<29>j<EFBFBD><6A><EFBFBD><EFBFBD>KAxQ R('+<05><><EFBFBD>X<EFBFBD>X!A+'<07><>̘%<25><>Z<EFBFBD><5A><EFBFBD>_Z%'+<12><>,<2C>M<EFBFBD><4D><EFBFBD>K,b󧉀<><F3A78980><EFBFBD><EFBFBD>b<EFBFBD>! R<15><1A>n<EFBFBD><6E><06><><EFBFBD>dtM+<13>F<><46><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>D<xKVb|Q@R<15><><EFBFBD><EFBFBD>z<EFBFBD>DZb<14><>%<25><><EFBFBD><EFBFBD>
%XY7<59><37>Ói<C393><69>p<EFBFBD><70>_:<15>:p<><70>t  Y&bl(v<13>$Ί<>X`p4!!<21><><EFBFBD><12><>Ʀ<><C6A6><16><><EFBFBD><EFBFBD><EFBFBD>>QA$<07><>̘%<25><>Z<EFBFBD><5A>%]h%+!<21><><EFBFBD>Y1T`np(!!+<2B><> x<><78><EFBFBD>Sb<53>4KZK@|Q R4<07><>L<12><>-pߧ9h)+!
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>@np4v<19><>E@<40>@r(-<2D><><EFBFBD>X<EFBFBD><58>Ʀ<><C6A6><16><><EFBFBD><EFBFBD><EFBFBD>>QA$<1B><>E0bQR4<1F>"<22><><EFBFBD><EFBFBD><18><>M<EFBFBD><4D>-K4K |Q@R<13><13><>1Q
$<0F><><EFBFBD>j<EFBFBD>\rA!+'<10><><EFBFBD>`<60>U:<13><18><><EFBFBD><EFBFBD><EFBFBD>Iep<15><1A>n<EFBFBD><6E><06>)l@lb`4A!+'$x`[<5B>LblZK𖥠<4B>! R%<19><04>YkkIOJ4<1F>"<22>0xb[<5B>LblZK@|Q R4v<><76>I<EFBFBD>lbb(!<21>*Ӑ%<25>-<2D>M<EFBFBD><4D>-K4K |Q@RA!+'%5)!!<13><18><>,<2C><>=]mJ(-򦉂<><F2A68982>-<2D>M<EFBFBD><4D>-K4K |Q@R(v<13>"<22>l<EFBFBD>H%!!+' xb[<5B>)<29>l<EFBFBD><6C><EFBFBD><EFBFBD>KAxQ R(!!+M5)A(1dY<64>1<EFBFBD><31><EFBFBD>=- Xxb[<5B>)<29>l<EFBFBD><6C><EFBFBD><EFBFBD>KAxQ R(v<13>$Ί<>Xbf4!!<21><><EFBFBD>mdi:%!!+' 5)9(A!+'%6a:(!!+<2B><> x<><78><EFBFBD>Sb<53>4KZK@|Q R4!!<21><><EFBFBD><12><><EFBFBD>Ʀ<EFBFBD><C6A6><16><><EFBFBD><EFBFBD><EFBFBD>>QA$<07><>̘%<25><>Zۯ]^%- <0B><><EFBFBD>X<EFBFBD><58>Ʀ<><C6A6><16><><EFBFBD><EFBFBD><EFBFBD>>QA<51><41><EFBFBD>)l@lbh4A!+'$xb[<5B>LblZK@|Q R4<07><>L<12><>-i<><69><EFBFBD>^5- <1A><><EFBFBD>x<EFBFBD><78><EFBFBD>Sb<53>4KZK@|Q R4v<><76>I<EFBFBD>lbj(!A+'lnm:(!!+M5)%(%!!+' 6a:4!!<21><><EFBFBD><12><>Ʀ<><C6A6><16><><EFBFBD><EFBFBD><EFBFBD>>QA$!<21>*Ӑ%<25><18><>M<EFBFBD><4D>-K4K |Q@R<13><18><><EFBFBD><EFBFBD><EFBFBD>-K]^('+$ Y<>LblVKVb<14><><EFBFBD><01><12>V<EFBFBD>xQ R<1A>&5`<60>`t(v<13>"<22>l<EFBFBD>\%!!+' xb[<5B>)<29>l<EFBFBD><6C><EFBFBD><EFBFBD>KAxQ R(1bY<62>8oӻPU!
<13><>Lj<4C>``(v<13>"<22>l<EFBFBD>`%!!+'<27><04>d<EFBFBD>Li:%<19><04>Ykeep(v<13>$Ί<>Xbr4<1F>"<22>0`M+<13>F<><46><EFBFBD><15><><EFBFBD>D<xKVb|Q<><14>1T`p`t4v<><76>I<EFBFBD>ldb(!A+'lb`m:4!!<21><><EFBFBD>mA:A!+'$x`[<5B>LblZK𖥠<4B>! R%!!+' xb[<5B>)<29>l<EFBFBD><6C><EFBFBD><EFBFBD>KAxQ R(1hY<68>:pÓ'<27><>IA<>#Sb<53>,KVb4<1E><><K<05><><EFBFBD>QA$'<27><>IA<>#Sb<53>,KVb4<1E><><K<05><><EFBFBD>QA􆊍M<F4868A8D><4D>=z<>4b<1A><12>z<EFBFBD>PKXY7<03><>ɴ<EFBFBD><C9B4>8aɑ<61><C991><EFBFBD>k<>8aɑh $ Y<>Lbn4v<19><>E@<40>Ln(-<2D><><EFBFBD>X<EFBFBD><58>Ʀ<><C6A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>QA$<1B><>E0bQR4<1F>"<22>0xb[<5B>LbnZK@|Q R4v<><76>I<EFBFBD>lfp(!<21>*Ӑ%<25>-<2D>M<EFBFBD><4D><EFBFBD>K4K |Q@R<13><18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>is`(-򦉂<><F2A68982>-<2D>M<EFBFBD><4D><EFBFBD>KAxQ R(v<13>$Ί<>Xfr4!!<21><><EFBFBD><12><><EFBFBD>Ʀ<EFBFBD><C6A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>QA$!A+'lg:%<19><04>Yk<59>_]l(-򦉂<><F2A68982><19><>M<EFBFBD><4D><EFBFBD>K4K |Q@R)+!<1C><><EFBFBD><EFBFBD><EFBFBD>@pb%- $X`4'+  Y<>)<29>n<EFBFBD>Vb(<13>%<25><>D|Q R<><52>Lj<4C>`bt4v<19><>E@<40>P`(!!+<2B><> <09><>I:A!+'%5)P!A+'la:%!!+' xf[<5B>)<29>n<EFBFBD><6E><EFBFBD><EFBFBD>KAxQ R(!!+<2B><> x<><78><EFBFBD>Sb<53>4KZK@|Q R4<07><>L<12><>-f<><66>J5- <12><><EFBFBD><EFBFBD><EFBFBD>A_S\( <08><><EFBFBD>x<EFBFBD><78><EFBFBD>Sb<53>4K |Q@R% ,XQR4!!U'4<07><>L<12><>-i<><69><EFBFBD>^A!+'%<13><18><><EFBFBD><EFBFBD><EFBFBD>-K]^(-򦉂<><F2A68982><19><>M<EFBFBD><4D><EFBFBD>KAxQ R(v<13>$Ί<>Xhb4<1F>"<22><><EFBFBD><EFBFBD>-<2D>M<EFBFBD><4D><EFBFBD>K4K |Q@R<13><>D0xd[<5B>LbnZK@|Q R4!!U'4!!<21><><EFBFBD><12><><EFBFBD>Ʀ<EFBFBD><C6A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>! R%!!+' 6a:4!!<21><><EFBFBD><12><>Ʀ<><C6A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>QA$!<21>*Ӑ%<25><19><>M<EFBFBD><4D><EFBFBD>KAxQ R(1jY<6A>6<EFBFBD>˻<=- Xxf[<5B>)<29>n<EFBFBD><6E><EFBFBD>>QA<51><41><EFBFBD>)l@lhd45-
Xxb[<5B>)<29>n<EFBFBD><6E><EFBFBD><EFBFBD>KAxQ R(+A
Y0j`pd4v<><76>I<EFBFBD>lhf(<1B><>E0xf[<5B>LbnZK@|Q R4<1F>"<22><><EFBFBD>\QR(-򦉂<><F2A68982>-<2D>M<EFBFBD><4D><EFBFBD>K4K |Q@R(v<13>"<22>l<EFBFBD>P%-
<EFBFBD><EFBFBD><EFBFBD>x<EFBFBD><EFBFBD><EFBFBD>Sb<EFBFBD>4KZK@|Q R4<1F>"<22>
0d5- %XhQR(v<13>"<22>l<EFBFBD>T%!!+' 6rkt!<21>*Ӑ%<25><18><>M<EFBFBD><4D><EFBFBD>KAxQ R(!!+M6at!<21>*Ӑ%<25>-<2D>M<EFBFBD><4D><EFBFBD>K4K |Q@RA!+'$xf[<5B>LbnZK@|Q R4<07><>L<12><>-mח9^5- <1A><><EFBFBD>x<EFBFBD><78><EFBFBD>Sb<53>4K |Q<><14>1T`pdt4v<><76>I<EFBFBD>lhn(<1B><>E0xf[<5B>LbnZK@|Q R4'+  Y<>)<29>n<EFBFBD>Vb(<13>%<25><>D|Q R4'+  Y<>)<29>n<EFBFBD>Vb(<13>%<25><>D|Q R<><52>F<EFBFBD><46><EFBFBD><EFBFBD><EFBFBD>h<EFBFBD><68><EFBFBD><EFBFBD>)zzf<7A><66> K0Y7'<27><><EFBFBD>_<EFBFBD><5F>1<EFBFBD><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>k<>8cߵh $ Y<>Lbp4v<19><>E@<40>Xd(!!+<2B><> x<><78><EFBFBD>Sb<53>4KZK@|Q R4<07><>L<12><>-pߧ9h)+!
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>@pf%!!+' xb[<5B>)<29>p<EFBFBD><70><EFBFBD><EFBFBD>KAxQ R(1bY<62>8oӻPU!
<13><>Lj<4C>`f(v<13>"<22>l<EFBFBD>L%!!+' x`[<5B>)<29>p<EFBFBD><70><EFBFBD><EFBFBD>KAxQ R(1bY<62>8c<38><63>@!A+'!<21>*Ӑ%<25><18><>M<EFBFBD><4D>-K4K |Q@R<13><18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>is`(!!+M(1dYi[S\(-򦉂<><F2A68982>-<2D>M<EFBFBD><4D>-KAxQ R(v<13>$Ί<>Xlh4<1F>"<22><><EFBFBD><EFBFBD>-<2D>M<EFBFBD><4D>-K4K |Q@R Xbh`4<1F>"<22><><EFBFBD><EFBFBD>-<2D>M<EFBFBD><4D>-KAxQ R(+<2B>$<24><><EFBFBD>XY =- Xxb[<5B>)<29>p<EFBFBD><70><EFBFBD>>QA􆊘<41>Dt(v<13>"<22>l<EFBFBD>T%!!+' xb[<5B>)<29>p<EFBFBD><70><EFBFBD>>QA$<07><>̘%<25><>Z<EFBFBD><5A>M^%+!<21><><EFBFBD>Y1T`ph(-<2D><><EFBFBD>X<EFBFBD><58>Ʀ<><C6A6><16><><EFBFBD>! R%+!1
Y0j`ph4' QX4 <09>! <09><><EFBFBD>-<2D>M<EFBFBD><4D>-KAxQ R(-<2D><><EFBFBD>X<EFBFBD><58><EFBFBD>Ʀ<EFBFBD><C6A6><16><><EFBFBD>! RSUBI A,6
MOVEM A,<1-FS18-%P>(P)
GO L61
L5084:
L60:
; LINE 666
MOVEI A,6
ADDB A,<2-FS18-%P>(P)
; LINE 667
PPUSH <0-FS18-%A-%P>(P)
PPUSH <2-FS18-%P>(P)
CCALL 2,Zconvx
MOVEM A,<0-FS18-%A-%P>(P)
; LINE 668
PPUSH <1-FS18-%A-%P>(P)
PPUSH <2-FS18-%P>(P)
CCALL 2,Zconvx
MOVEM A,<1-FS18-%A-%P>(P)
; LINE 669
PPUSH <1-FS18-%P>(P)
PPUSH ZTINT
PPUSH [0]
PPUSH <0-FS18-%A-%P>(P)
PPUSH <1-FS18-%A-%P>(P)
CCALL 5,Zmkeno
SUBI P,FS18+%A+1
GO @<%A+1>(P)
L5083:
; LINE 672
PPUSH <1-FS18-%A-%P>(P)
CCALL 1,Zpoint
JUMPE A,L5085
MOVE A,<0-FS18-%A-%P>(P)
MOVEM A,<3-FS18-%P>(P)
MOVE A,<1-FS18-%A-%P>(P)
MOVEM A,<0-FS18-%A-%P>(P)
MOVE A,<3-FS18-%P>(P)
MOVEM A,<1-FS18-%A-%P>(P)
L5085:
; LINE 674
PPUSH <1-FS18-%A-%P>(P)
CCALL 1,Zopt
MOVEM A,<1-FS18-%A-%P>(P)
; LINE 675
MOVE A,<2-FS18-%A-%P>(P)
CAIL A,2
GO L5086
MOVE A,<1-FS18-%A-%P>(P)
MOVE A,(A)
CAIE A,126
GO L5086
MOVE A,<1-FS18-%A-%P>(P)
MOVEM A,<4-FS18-%P>(P)
MOVE A,7(A)
JUMPN A,L5086
; LINE 676
MOVE A,<2-FS18-%A-%P>(P)
IMULI A,4
ADDI A,20
PPUSH <0-FS18-%A-%P>(P)
MOVEM A,<5-FS18-%P>(P)
CCALL 1,Zpctyp
MOVE C,A
MOVE A,<5-FS18-%P>(P)
ADD A,C
MOVEM A,<1-FS18-%P>(P)
; LINE 677
PPUSH <1-FS18-%P>(P)
CCALL 1,Zundfo
JUMPN A,L5087
PPUSH <1-FS18-%P>(P)
PPUSH ZTINT
PPUSH [0]
PPUSH <0-FS18-%A-%P>(P)
PPUSH [0]
CCALL 5,Zmkeno
SUBI P,FS18+%A+1
GO @<%A+1>(P)
L5087:
; LINE 678
MOVE A,<2-FS18-%A-%P>(P)
ADDI A,128
PPUSH A
PPUSH ZTINT
PPUSH [0]
PPUSH <0-FS18-%A-%P>(P)
PPUSH [3]
CCALL 2,Zconvx
PPUSH A
PPUSH [0]
CCALL 1,Zintco
PPUSH A
CCALL 5,Zmkeno
SUBI P,FS18+%A+1
GO @<%A+1>(P)
L5086:
; LINE 682
PPUSH [2032]
CCALL 1,Zerrx
; LINE 683
PPUSH [0]
CCALL 1,Zintco
SUBI P,FS18+%A+1
GO @<%A+1>(P)
SUBI P,FS18+%A+1
GO @<%A+1>(P)
FS18==6-1
%A==1
%A,,[ASCIZ/txidn/]
Ztxidn: ADDI P,FS19
; LINE 698
MOVE A,<0-FS19-%A-%P>(P)
PPUSH (A)
CCALL 1,Zto2p
MOVEM A,<1-FS19-%P>(P)
; LINE 699
PPUSH [127]
PPUSH <1-FS19-%P>(P)
PPUSH [1]
MOVE A,<0-FS19-%A-%P>(P)
PPUSH 1(A)
MOVE A,<0-FS19-%A-%P>(P)
PPUSH 2(A)
CCALL 5,Zmkeno
MOVEM A,<2-FS19-%P>(P)
; LINE 700
MOVE A,<1-FS19-%P>(P)
MOVE A,(A)
CAIN A,10
GO L5089
MOVE A,<0-FS19-%A-%P>(P)
MOVE A,1(A)
CAIE A,5
GO L5088
L5089:
; LINE 701
MOVEI A,Ztpoin
MOVE A,1(A)
ADDI A,15
PPUSH A
PPUSH <1-FS19-%P>(P)
CCALL 1,Zmkptr
PPUSH A
PPUSH [0]
PPUSH <2-FS19-%P>(P)
PPUSH [0]
CCALL 5,Zmkeno
MOVEM A,<2-FS19-%P>(P)
GO L5090
L5088:
; LINE 702
MOVE A,ZfltJh
JUMPE A,L5091
MOVE A,<1-FS19-%P>(P)
CAME A,ZTDOUB
GO L5091
MOVE A,<0-FS19-%A-%P>(P)
MOVE A,1(A)
CAIE A,4
GO L5091
; LINE 703
MOVE A,<2-FS19-%P>(P)
PPUSH <1-FS19-%P>(P)
MOVEM A,<3-FS19-%P>(P)
CCALL 1,Zmkptr
MOVE C,A
MOVE A,<3-FS19-%P>(P)
MOVEM C,1(A)
; LINE 704
MOVE A,<2-FS19-%P>(P)
MOVEI C,0
MOVEM C,4(A)
; LINE 705
PPUSH [19]
PPUSH <1-FS19-%P>(P)
PPUSH [1]
PPUSH <2-FS19-%P>(P)
PPUSH [0]
CCALL 5,Zmkeno
MOVEM A,<2-FS19-%P>(P)
L5091:
L5090:
; LINE 707
MOVE A,<2-FS19-%P>(P)
SUBI P,FS19+%A+1
GO @<%A+1>(P)
SUBI P,FS19+%A+1
GO @<%A+1>(P)
FS19==4-1
%A==3
%A,,[ASCIZ/txinc/]
Ztxinc: ADDI P,FS20
; LINE 723
MOVEI A,0
MOVEM A,<5-FS20-%P>(P)
; LINE 724
MOVE A,<0-FS20-%A-%P>(P)
SUBI A,8
MOVEM A,<1-FS20-%P>(P)
MOVEM A,<2-FS20-%P>(P)
; LINE 725
PPUSH <1-FS20-%A-%P>(P)
PPUSH [-31]
CCALL 2,Zchkty
JUMPE A,L5092
MOVEI A,0
SUBI P,FS20+%A+1
GO @<%A+1>(P)
L5092:
; LINE 726
MOVE A,<1-FS20-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<4-FS20-%P>(P)
; LINE 727
MOVE A,<4-FS20-%P>(P)
MOVE A,(A)
JUMPL A,L67
CAILE A,3-0
GO L67
GO @(A)[
L63
L64
L65
L66
]
L63:
; LINE 728
MOVEI A,11
ADDB A,<1-FS20-%P>(P)
GO L62
L64:
; LINE 729
MOVEI A,2
ADDB A,<1-FS20-%P>(P)
GO L62
L65:
; LINE 730
MOVEI A,168
ADDB A,<1-FS20-%P>(P)
GO L62
L66:
; LINE 731
MOVEI A,172
ADDB A,<1-FS20-%P>(P)
GO L62
L67:
; LINE 732
PPUSH <1-FS20-%A-%P>(P)
CCALL 1,Zpctyp
MOVEM A,<3-FS20-%P>(P)
; LINE 733
MOVE A,<3-FS20-%P>(P)
LSH A,2
ADDI A,176
ADDB A,<1-FS20-%P>(P)
; LINE 734
PPUSH <1-FS20-%A-%P>(P)
CCALL 1,Zfudge
MOVEI C,Zspoin
ADD C,<3-FS20-%P>(P)
IDIV A,(C)
PPUSH A
CCALL 1,Zintco
MOVEM A,<5-FS20-%P>(P)
L5093:
L62:
; LINE 736
PPUSH <1-FS20-%P>(P)
CCALL 1,Zundfo
JUMPE A,L5094
; LINE 737
MOVE A,<2-FS20-%P>(P)
JUMPL A,L5095
CAILE A,3-0
GO L5095
GO @(A)[
L70
L72
L69
L71
]
L70:
L69:
; LINE 739
MOVE A,<2-FS20-%P>(P)
JUMPN A,L5096
MOVEI A,36
GO L5097
L5096:
MOVEI A,37
L5097:
MOVEM A,<1-FS20-%P>(P)
; LINE 740
MOVEI A,<1-FS20-%P>(P)
PPUSH A
PPUSH <1-FS20-%A-%P>(P)
PPUSH [1]
CCALL 1,Zintco
PPUSH A
CCALL 3,Ztxpr3
SUBI P,FS20+%A+1
GO @<%A+1>(P)
L72:
L71:
; LINE 742
MOVE A,<2-FS20-%P>(P)
CAIE A,1
GO L5098
MOVEI A,36
GO L5099
L5098:
MOVEI A,37
L5099:
MOVEM A,<1-FS20-%P>(P)
; LINE 743
MOVEI A,<1-FS20-%P>(P)
PPUSH A
PPUSH <1-FS20-%A-%P>(P)
PPUSH [1]
CCALL 1,Zintco
PPUSH A
CCALL 3,Ztxpr2
MOVEM A,<5-FS20-%P>(P)
; LINE 744
MOVE A,<1-FS20-%A-%P>(P)
MOVEI C,1
ADDB C,4(A)
; LINE 745
MOVEI A,8
MOVEM A,<1-FS20-%P>(P)
GO L68
L5095:
L68:
L5094:
; LINE 749
PPUSH <1-FS20-%P>(P)
PPUSH <4-FS20-%P>(P)
PPUSH [0]
PPUSH <1-FS20-%A-%P>(P)
PPUSH <5-FS20-%P>(P)
CCALL 5,Zmkeno
SUBI P,FS20+%A+1
GO @<%A+1>(P)
SUBI P,FS20+%A+1
GO @<%A+1>(P)
FS20==6-1
%A==1
%A,,[ASCIZ/taddr/]
Ztaddr: ADDI P,FS21
; LINE 763
SKIPE <0-FS21-%A-%P>(P)
GO L5100
MOVEI A,0
SUBI P,FS21+%A+1
GO @<%A+1>(P)
L5100:
; LINE 764
MOVE A,<0-FS21-%A-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS21-%P>(P)
; LINE 766
MOVE A,<1-FS21-%P>(P)
CAIE A,19
GO L5101
MOVE A,<0-FS21-%A-%P>(P)
MOVE A,7(A)
MOVEM A,<0-FS21-%A-%P>(P)
GO L5102
L5101:
; LINE 768
MOVE A,<0-FS21-%A-%P>(P)
MOVE A,4(A)
JUMPN A,L5103
MOVE A,<0-FS21-%A-%P>(P)
MOVEI C,1
MOVEM C,4(A)
L5103:
; LINE 769
MOVE A,<0-FS21-%A-%P>(P)
PPUSH 1(A)
CCALL 1,Zmkptr
MOVEM A,<2-FS21-%P>(P)
; LINE 770
PPUSH <2-FS21-%P>(P)
CCALL 1,Zctype
ADDI A,15
SUBI A,6
MOVEM A,<1-FS21-%P>(P)
; LINE 771
PPUSH <1-FS21-%P>(P)
PPUSH <2-FS21-%P>(P)
PPUSH [0]
PPUSH <0-FS21-%A-%P>(P)
PPUSH [0]
CCALL 5,Zmkeno
MOVEM A,<0-FS21-%A-%P>(P)
L5102:
; LINE 773
MOVE A,<0-FS21-%A-%P>(P)
SUBI P,FS21+%A+1
GO @<%A+1>(P)
SUBI P,FS21+%A+1
GO @<%A+1>(P)
FS21==3-1
%A==1
%A,,[ASCIZ/telist/]
Ztelis: ADDI P,FS22
; LINE 792
SKIPE <0-FS22-%A-%P>(P)
GO L5104
MOVEI A,0
SUBI P,FS22+%A+1
GO @<%A+1>(P)
L5104:
; LINE 793
MOVE A,<0-FS22-%A-%P>(P)
MOVE A,(A)
CAIN A,91
GO L5105
PPUSH <0-FS22-%A-%P>(P)
CCALL 1,Ztfarg
SUBI P,FS22+%A+1
GO @<%A+1>(P)
L5105:
; LINE 794
MOVE A,<0-FS22-%A-%P>(P)
MOVEM A,<1-FS22-%P>(P)
; LINE 795
MOVEI A,1
MOVEM A,<2-FS22-%P>(P)
L75:
; LINE 797
MOVE A,<0-FS22-%A-%P>(P)
MOVNI C,--1
MOVEM C,(A)
; LINE 798
MOVE A,<0-FS22-%A-%P>(P)
MOVE C,<0-FS22-%A-%P>(P)
PPUSH 2(C)
MOVEM A,<4-FS22-%P>(P)
CCALL 1,Ztfarg
MOVE C,A
MOVE A,<4-FS22-%P>(P)
MOVEM C,2(A)
; LINE 799
MOVE A,<0-FS22-%A-%P>(P)
MOVEM A,<3-FS22-%P>(P)
; LINE 800
MOVE A,<0-FS22-%A-%P>(P)
MOVE A,1(A)
MOVEM A,<0-FS22-%A-%P>(P)
; LINE 801
MOVEI A,1
ADDB A,<2-FS22-%P>(P)
L74:
; LINE 796
SKIPN <0-FS22-%A-%P>(P)
GO L5106
MOVE A,<0-FS22-%A-%P>(P)
MOVE A,(A)
CAIN A,91
GO L75
L5106:
L73:
; LINE 803
MOVE A,<3-FS22-%P>(P)
PPUSH <0-FS22-%A-%P>(P)
MOVEM A,<4-FS22-%P>(P)
CCALL 1,Ztfarg
MOVE C,A
MOVE A,<4-FS22-%P>(P)
MOVEM C,1(A)
; LINE 805
MOVE A,<2-FS22-%P>(P)
CAIG A,30
GO L5107
PPUSH [2039]
CCALL 1,Zerrx
MOVEI A,0
SUBI P,FS22+%A+1
GO @<%A+1>(P)
L5107:
; LINE 806
MOVE A,<1-FS22-%P>(P)
SUBI P,FS22+%A+1
GO @<%A+1>(P)
SUBI P,FS22+%A+1
GO @<%A+1>(P)
FS22==5-1
%A==1
%A,,[ASCIZ/tfarg/]
Ztfarg: ADDI P,FS23
; LINE 821
PPUSH <0-FS23-%A-%P>(P)
CCALL 1,Ztexpr
MOVEM A,<1-FS23-%P>(P)
JUMPN A,L5108
MOVEI A,0
SUBI P,FS23+%A+1
GO @<%A+1>(P)
L5108:
; LINE 822
MOVEI A,6
MOVEM A,ZcurJo
; LINE 823
MOVE A,<1-FS23-%P>(P)
MOVE A,1(A)
CAME A,ZTCHAR
GO L5109
PPUSH <1-FS23-%P>(P)
PPUSH ZTINT
CCALL 2,Zconve
MOVEM A,<1-FS23-%P>(P)
GO L5110
L5109:
; LINE 824
MOVE A,<1-FS23-%P>(P)
MOVE A,1(A)
CAME A,ZTFLOA
GO L5111
PPUSH <1-FS23-%P>(P)
PPUSH ZTDOUB
CCALL 2,Zconve
MOVEM A,<1-FS23-%P>(P)
L5111:
L5110:
; LINE 825
PPUSH <1-FS23-%P>(P)
PPUSH [25]
CCALL 2,Zchkty
JUMPE A,L5112
MOVEI A,0
SUBI P,FS23+%A+1
GO @<%A+1>(P)
L5112:
; LINE 826
MOVE A,Zargop
JUMPN A,L5113
MOVE A,<1-FS23-%P>(P)
SUBI P,FS23+%A+1
GO @<%A+1>(P)
L5113:
; LINE 827
MOVE A,<1-FS23-%P>(P)
MOVE A,1(A)
MOVE A,(A)
SUBI A,1
JUMPL A,L5114
CAILE A,9-1
GO L5114
GO @(A)[
L77
L5114
L78
L5114
L5114
L5114
L5114
L5114
L79
]
L77:
; LINE 828
MOVEI A,96
MOVEM A,<2-FS23-%P>(P)
GO L76
L78:
; LINE 829
MOVE A,ZfltJh
JUMPE A,L5115
MOVE A,<1-FS23-%P>(P)
SUBI P,FS23+%A+1
GO @<%A+1>(P)
L5115:
; LINE 830
MOVEI A,97
MOVEM A,<2-FS23-%P>(P)
GO L76
L79:
; LINE 831
PPUSH <1-FS23-%P>(P)
CCALL 1,Zpctyp
ADDI A,98
MOVEM A,<2-FS23-%P>(P)
GO L76
L5114:
L76:
; LINE 833
PPUSH <2-FS23-%P>(P)
MOVE A,<1-FS23-%P>(P)
PPUSH 1(A)
PPUSH [0]
PPUSH <1-FS23-%P>(P)
PPUSH [0]
CCALL 5,Zmkeno
SUBI P,FS23+%A+1
GO @<%A+1>(P)
SUBI P,FS23+%A+1
GO @<%A+1>(P)
FS23==3-1
%A==1
%A,,[ASCIZ/opt/]
Zopt: ADDI P,FS24
; LINE 916
SKIPE <0-FS24-%A-%P>(P)
GO L5116
MOVE A,<0-FS24-%A-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L5116:
; LINE 917
MOVE A,<0-FS24-%A-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS24-%P>(P)
SUBI A,123
JUMPL A,L5117
CAILE A,127-123
GO L5117
GO @(A)[
L85
L82
L81
L83
L84
]
L85:
L84:
L83:
L82:
L81:
; LINE 922
MOVE A,<0-FS24-%A-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L5117:
L80:
; LINE 924
MOVE A,<0-FS24-%A-%P>(P)
MOVE A,7(A)
MOVEM A,<8-FS24-%P>(P)
JUMPN A,L5118
MOVE A,<0-FS24-%A-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L5118:
; LINE 925
MOVE A,<0-FS24-%A-%P>(P)
PPUSH <8-FS24-%P>(P)
MOVEM A,<12-FS24-%P>(P)
CCALL 1,Zopt
MOVE C,A
MOVE A,<12-FS24-%P>(P)
MOVEM C,7(A)
MOVEM C,<8-FS24-%P>(P)
; LINE 926
MOVE A,<0-FS24-%A-%P>(P)
MOVE C,<0-FS24-%A-%P>(P)
PPUSH 8(C)
MOVEM A,<12-FS24-%P>(P)
CCALL 1,Zopt
MOVE C,A
MOVE A,<12-FS24-%P>(P)
MOVEM C,8(A)
MOVEM C,<9-FS24-%P>(P)
; LINE 927
MOVE A,<8-FS24-%P>(P)
MOVE A,(A)
CAIE A,126
GO L5120
MOVEI A,1
GO L5121
L5120:
MOVEI A,0
L5121:
MOVEM A,<3-FS24-%P>(P)
JUMPE A,L5119
MOVE A,<8-FS24-%P>(P)
MOVEM A,<11-FS24-%P>(P)
MOVE A,7(A)
MOVEM A,<5-FS24-%P>(P)
L5119:
; LINE 928
SKIPN <9-FS24-%P>(P)
GO L5123
MOVE A,<9-FS24-%P>(P)
MOVE A,(A)
CAIE A,126
GO L5123
MOVEI A,1
GO L5124
L5123:
MOVEI A,0
L5124:
MOVEM A,<4-FS24-%P>(P)
JUMPE A,L5122
MOVE A,<9-FS24-%P>(P)
MOVEM A,<11-FS24-%P>(P)
MOVE A,7(A)
MOVEM A,<6-FS24-%P>(P)
L5122:
; LINE 934
MOVE A,<1-FS24-%P>(P)
CAILE A,7
GO L5125
MOVE A,<3-FS24-%P>(P)
JUMPE A,L5125
MOVE A,<1-FS24-%P>(P)
JUMPL A,L5126
CAILE A,7-0
GO L5126
GO @(A)[
L87
L5126
L5126
L5126
L5126
L5126
L89
L90
]
L87:
; LINE 935
MOVN A,<5-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L89:
; LINE 936
SETCM A,<5-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L90:
; LINE 937
MOVE A,<5-FS24-%P>(P)
JUMPN A,L5127
MOVEI A,1
GO L5128
L5127:
MOVEI A,0
L5128:
MOVEM A,<7-FS24-%P>(P)
GO L88
L5126:
L86:
GO L5129
L5125:
; LINE 940
MOVE A,<1-FS24-%P>(P)
CAIGE A,64
GO L5130
MOVE A,<1-FS24-%P>(P)
CAILE A,109
GO L5130
SKIPN <9-FS24-%P>(P)
GO L5130
; LINE 941
MOVE A,<1-FS24-%P>(P)
SUBI A,64
MOVEI C,Zadope
ADD C,A
MOVE A,(C)
MOVEM A,<2-FS24-%P>(P)
; LINE 945
MOVE A,<3-FS24-%P>(P)
JUMPE A,L5131
MOVE A,<4-FS24-%P>(P)
JUMPE A,L5131
MOVE A,<1-FS24-%P>(P)
SUBI A,64
JUMPL A,L5132
CAILE A,93-64
GO L5132
GO @(A)[
L92
L5132
L5132
L5132
L93
L5132
L5132
L5132
L94
L5132
L5132
L5132
L95
L5132
L5132
L5132
L96
L5132
L97
L5132
L98
L5132
L99
L5132
L100
L5132
L101
L5132
L102
L103
]
L92:
; LINE 946
MOVE A,<5-FS24-%P>(P)
ADD A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L93:
; LINE 947
MOVE A,<5-FS24-%P>(P)
SUB A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L94:
; LINE 948
MOVE A,<5-FS24-%P>(P)
IMUL A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L95:
; LINE 949
MOVE A,<5-FS24-%P>(P)
IDIV A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L96:
; LINE 950
MOVE A,<5-FS24-%P>(P)
IDIV A,<6-FS24-%P>(P)
MOVEM B,<7-FS24-%P>(P)
GO L88
L97:
; LINE 951
MOVE A,<5-FS24-%P>(P)
MOVE C,<6-FS24-%P>(P)
LSH A,(C)
MOVEM A,<7-FS24-%P>(P)
GO L88
L98:
; LINE 952
MOVE A,<5-FS24-%P>(P)
MOVE C,<6-FS24-%P>(P)
MOVN C,C
LSH A,(C)
MOVEM A,<7-FS24-%P>(P)
GO L88
L99:
; LINE 953
MOVE A,<5-FS24-%P>(P)
AND A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L100:
; LINE 954
MOVE A,<5-FS24-%P>(P)
XOR A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L101:
; LINE 955
MOVE A,<5-FS24-%P>(P)
IOR A,<6-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
GO L88
L102:
; LINE 956
MOVE A,<5-FS24-%P>(P)
JUMPE A,L5133
MOVE A,<6-FS24-%P>(P)
JUMPE A,L5133
MOVEI A,1
GO L5134
L5133:
MOVEI A,0
L5134:
MOVEM A,<7-FS24-%P>(P)
GO L88
L103:
; LINE 957
MOVE A,<5-FS24-%P>(P)
JUMPN A,L5136
MOVE A,<6-FS24-%P>(P)
JUMPE A,L5135
L5136:
MOVEI A,1
GO L5137
L5135:
MOVEI A,0
L5137:
MOVEM A,<7-FS24-%P>(P)
GO L88
L5132:
L91:
GO L5138
L5131:
; LINE 963
MOVE A,<2-FS24-%P>(P)
ANDI A,1
JUMPE A,L5139
MOVE A,<3-FS24-%P>(P)
JUMPN A,L5140
MOVE A,<9-FS24-%P>(P)
MOVE A,5(A)
MOVE C,<8-FS24-%P>(P)
MOVE C,5(C)
CAMG A,C
GO L5139
L5140:
; LINE 965
MOVE A,<8-FS24-%P>(P)
MOVEM A,<10-FS24-%P>(P)
MOVE A,<0-FS24-%A-%P>(P)
MOVE C,<9-FS24-%P>(P)
MOVEM C,<8-FS24-%P>(P)
MOVEM C,7(A)
MOVE A,<0-FS24-%A-%P>(P)
MOVE C,<10-FS24-%P>(P)
MOVEM C,<9-FS24-%P>(P)
MOVEM C,8(A)
; LINE 966
MOVE A,<3-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
MOVE A,<4-FS24-%P>(P)
MOVEM A,<3-FS24-%P>(P)
MOVE A,<7-FS24-%P>(P)
MOVEM A,<4-FS24-%P>(P)
; LINE 967
MOVE A,<5-FS24-%P>(P)
MOVEM A,<7-FS24-%P>(P)
MOVE A,<6-FS24-%P>(P)
MOVEM A,<5-FS24-%P>(P)
MOVE A,<7-FS24-%P>(P)
MOVEM A,<6-FS24-%P>(P)
L5139:
; LINE 972
MOVE A,<4-FS24-%P>(P)
JUMPE A,L5141
; LINE 973
MOVE A,<6-FS24-%P>(P)
JUMPN A,L5142
; LINE 974
MOVE A,<2-FS24-%P>(P)
ANDI A,2
JUMPE A,L5143
; LINE 975
MOVE A,<8-FS24-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L5143:
; LINE 976
MOVE A,<2-FS24-%P>(P)
ANDI A,4
JUMPE A,L5144
; LINE 977
MOVE A,<9-FS24-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L5144:
GO L5145
L5142:
; LINE 982
MOVE A,<6-FS24-%P>(P)
CAIE A,1
GO L5146
; LINE 983
MOVE A,<2-FS24-%P>(P)
ANDI A,8
JUMPE A,L5147
; LINE 984
MOVE A,<8-FS24-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L5147:
L5146:
L5145:
L5141:
; LINE 988
MOVE A,<1-FS24-%P>(P)
CAIGE A,102
GO L5148
MOVE A,<1-FS24-%P>(P)
CAILE A,109
GO L5148
MOVE A,<8-FS24-%P>(P)
MOVE A,(A)
CAME A,<1-FS24-%P>(P)
GO L5148
; LINE 989
MOVE A,<8-FS24-%P>(P)
MOVE A,7(A)
MOVEM A,<10-FS24-%P>(P)
; LINE 990
MOVE A,<8-FS24-%P>(P)
MOVEI C,64
MOVEM C,(A)
; LINE 991
MOVE A,<8-FS24-%P>(P)
MOVE C,ZTINT
MOVEM C,1(A)
; LINE 992
MOVE A,<8-FS24-%P>(P)
MOVE C,<9-FS24-%P>(P)
MOVEM C,7(A)
; LINE 993
MOVE A,<0-FS24-%A-%P>(P)
PPUSH <8-FS24-%P>(P)
MOVEM A,<12-FS24-%P>(P)
CCALL 1,Zopt
MOVE C,A
MOVE A,<12-FS24-%P>(P)
MOVEM C,8(A)
; LINE 994
MOVE A,<0-FS24-%A-%P>(P)
MOVE C,<10-FS24-%P>(P)
MOVEM C,7(A)
L5148:
L5138:
L5130:
L5129:
; LINE 998
MOVE A,<0-FS24-%A-%P>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
L88:
; LINE 999
PPUSH <7-FS24-%P>(P)
CCALL 1,Zintco
SUBI P,FS24+%A+1
GO @<%A+1>(P)
SUBI P,FS24+%A+1
GO @<%A+1>(P)
FS24==13-1
.PDATA
CONSTANTS
END
Reference in New Issue View Git Blame Copy Permalink