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/c31.mid
Lars Brinkhoff 1f285a1263 Files from WAITS.
2018-10-25 11:25:56 +02:00

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