github.com/PDP-10.PCC20
1
0
Fork 0
mirror of https://github.com/PDP-10/PCC20.git synced 2026-01-13 15:17:51 +00:00
Code Issues Releases Wiki Activity
PDP-10.PCC20/sail/c23.mid
Lars Brinkhoff 1f285a1263 Files from WAITS.
2018-10-25 11:25:56 +02:00

4098 lines
43 KiB
Plaintext
Raw Permalink 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.

TITLE c23
RADIX 10.
.INSRT <C>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
Reference in New Issue View Git Blame Copy Permalink