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

1691 lines
16 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 c25
RADIX 10.
.INSRT <C>NC
.CODE
ENTRY Zdmper
ENTRY Zlex
ENTRY Ztok
ENTRY Zctok
ENTRY Zyrese
ENTRY Zlexta
ENTRY Zlexin
ENTRY Zlexli
ENTRY Zdebug
ENTRY Zedebu
ENTRY Zxflag
ENTRY Ztflag
ENTRY Zval
ENTRY Zline
ENTRY Zpv
ENTRY Zpl
ENTRY Zlinen
ENTRY Zparse
ENTRY Ztkeem
ENTRY Zsave
ENTRY Zresto
ENTRY Ztklem
ENTRY Ztokbu
ENTRY Ztct
ENTRY Ztwp
ENTRY Ztokmo
ENTRY Zrtoke
EXTERN Zcout
EXTERN Zact
EXTERN Zg
EXTERN Zpg
EXTERN Zr1
EXTERN Zr2
EXTERN Za
EXTERN Zpa
EXTERN Znwpbt
EXTERN Zcprin
EXTERN Zsyner
EXTERN Zqprin
EXTERN Zpcurs
EXTERN Ztprin
EXTERN Zgiveu
EXTERN Zstkov
EXTERN Zstkun
EXTERN Zdelms
EXTERN Zskpms
EXTERN Ztkbov
EXTERN Zbadtw
EXTERN Zptoke
EXTERN Zcputc
EXTERN Zbadto
EXTERN Zgetto
.UDATA
Zlexta:
BLOCK 1
Zlexin:
BLOCK 1
Zlexli:
BLOCK 1
.IDATA
Zdebug:
0
Zedebu:
0
Zxflag:
0
Ztflag:
0
.UDATA
Zval:
BLOCK 1
Zline:
BLOCK 1
Zpv:
BLOCK 1
Zpl:
BLOCK 1
Zlinen:
BLOCK 1
I1:
BLOCK 1
I2:
BLOCK 200
I3:
BLOCK 200
I4:
BLOCK 200
I5:
BLOCK 1
I6:
BLOCK 1
I7:
BLOCK 1
I8:
BLOCK 200
I9:
BLOCK 200
I10:
BLOCK 200
.IDATA
I11:
7
I12:
0
.UDATA
I13:
BLOCK 1
I14:
BLOCK 1
.IDATA
I15:
0
I16:
0
.UDATA
Ztokbu:
BLOCK 90
.IDATA
Ztct:
Ztokbu
Ztwp:
Ztokbu
Ztokmo:
0
.CODE
.PDATA
S0: 101
120
101
99
117
116
105
110
103
32
115
116
97
116
101
32
37
100
44
32
116
111
107
101
110
61
37
100
10
0
S30: 114
101
100
117
99
101
32
37
100
10
0
S41: 101
114
114
109
111
100
101
61
48
58
115
116
61
37
100
44
110
115
116
61
37
100
44
116
111
107
61
37
100
10
0
S72: 115
112
111
112
61
37
100
44
116
115
107
105
112
61
37
100
44
116
111
107
101
110
61
37
100
10
0
S99: 115
116
97
99
107
32
115
116
61
37
100
32
118
97
108
61
37
100
10
0
.CODE
%A==0
%A,,[ASCIZ/parse/]
Zparse: ADDI P,FS1
; LINE 55
MOVEI A,I2
MOVEM A,I1
; LINE 56
MOVEI A,I3
MOVEM A,Zpv
; LINE 57
MOVEI A,I4
MOVEM A,Zpl
; LINE 58
MOVEI A,1
MOVEM A,<4-FS1-%P>(P)
; LINE 59
MOVE A,I1
MOVEI C,1
MOVEM C,(A)
; LINE 60
MOVE A,Zpv
MOVEI C,0
MOVEM C,(A)
; LINE 61
MOVE A,Zpl
MOVEI C,0
MOVEM C,(A)
; LINE 62
CCALL 0,Zlex
MOVEM A,<18-FS1-%P>(P)
; LINE 63
MOVE A,I16
JUMPN A,L5000
; LINE 65
MOVEI A,Zpa
MOVEM A,<13-FS1-%P>(P)
L1:
; LINE 66
MOVEI A,1
ADDB A,<13-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<14-FS1-%P>(P)
CAMN A,[-1]
GO L5001
MOVEI A,Za
ADD A,<14-FS1-%P>(P)
MOVE C,<13-FS1-%P>(P)
MOVEM A,(C)
GO L1
L5001:
L0:
; LINE 67
MOVEI A,Zpg
MOVEM A,<13-FS1-%P>(P)
L3:
; LINE 68
MOVEI A,1
ADDB A,<13-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<14-FS1-%P>(P)
CAMN A,[-1]
GO L5002
MOVEI A,Zg
ADD A,<14-FS1-%P>(P)
MOVE C,<13-FS1-%P>(P)
MOVEM A,(C)
GO L3
L5002:
L2:
; LINE 69
MOVEI A,1
MOVEM A,I16
L5000:
L5:
; LINE 71
; LINE 72
MOVEI A,Zpa
ADD A,<4-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<5-FS1-%P>(P)
; LINE 73
MOVE A,Zdebug
JUMPE A,L5003
; LINE 74
MOVEI A,S0
PPUSH A
PPUSH <4-FS1-%P>(P)
MOVE A,<18-FS1-%P>(P)
PPUSH (A)
CCALL 3,Zcprin
L5003:
L7:
; LINE 75
; LINE 76
MOVEI B,1
MOVE A,<5-FS1-%P>(P)
ADDM B,<5-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS1-%P>(P)
; LINE 77
MOVE A,<1-FS1-%P>(P)
LSH A,-12
MOVEM A,<2-FS1-%P>(P)
; LINE 78
MOVE A,<1-FS1-%P>(P)
ANDI A,4095
MOVEM A,<3-FS1-%P>(P)
; LINE 79
MOVE A,<2-FS1-%P>(P)
JUMPL A,L5004
CAILE A,5-0
GO L5004
GO @(A)[
L25
L9
L10
L12
L16
L15
]
L9:
; LINE 81
MOVE A,<18-FS1-%P>(P)
MOVE A,(A)
CAMN A,<3-FS1-%P>(P)
GO L5005
MOVEI A,1
ADDB A,<5-FS1-%P>(P)
L5005:
GO L7
L10:
; LINE 84
MOVE A,<3-FS1-%P>(P)
MOVEM A,<4-FS1-%P>(P)
L11:
; LINE 85
MOVE A,<18-FS1-%P>(P)
MOVE A,1(A)
MOVEM A,Zval
; LINE 86
MOVE A,<18-FS1-%P>(P)
MOVE A,2(A)
MOVEM A,Zline
; LINE 87
CCALL 0,Zlex
MOVEM A,<18-FS1-%P>(P)
; LINE 88
MOVE A,I12
JUMPE A,L5006
; LINE 89
SETO A,
ADDB A,I12
; LINE 90
MOVE A,I12
JUMPN A,L5007
; LINE 91
PPUSH <18-FS1-%P>(P)
CCALL 1,Zdmper
MOVEM A,<18-FS1-%P>(P)
; LINE 92
MOVEI A,0
MOVEM A,<7-FS1-%P>(P)
GO L8
L5007:
L5006:
; LINE 96
MOVEI A,1
MOVEM A,<7-FS1-%P>(P)
GO L8
L12:
; LINE 99
MOVE A,Zdebug
JUMPE A,L5008
MOVEI A,S30
PPUSH A
PPUSH <3-FS1-%P>(P)
CCALL 2,Zcprin
L5008:
; LINE 100
MOVEI A,Zr2
ADD A,<3-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<9-FS1-%P>(P)
; LINE 101
MOVE A,I1
SUB A,<9-FS1-%P>(P)
MOVEM A,I1
; LINE 102
MOVE A,Zpv
SUB A,<9-FS1-%P>(P)
MOVEM A,Zpv
; LINE 103
MOVE A,Zpl
SUB A,<9-FS1-%P>(P)
MOVEM A,Zpl
; LINE 104
MOVE A,<9-FS1-%P>(P)
JUMPLE A,L5009
; LINE 105
MOVE A,Zpv
MOVE A,1(A)
MOVEM A,Zval
; LINE 106
MOVE A,Zpl
MOVE A,1(A)
MOVEM A,Zline
GO L5010
L5009:
; LINE 109
MOVE A,<18-FS1-%P>(P)
MOVE A,1(A)
MOVEM A,Zval
; LINE 110
MOVE A,<18-FS1-%P>(P)
MOVE A,2(A)
MOVEM A,Zline
L5010:
; LINE 112
MOVE A,Zxflag
JUMPN A,L5011
MOVEI A,Zact
ADD A,<3-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<15-FS1-%P>(P)
JUMPE A,L5011
MOVE A,<15-FS1-%P>(P)
CCALL 0,(A)
L5011:
; LINE 113
MOVE A,I1
MOVE A,(A)
MOVEM A,<4-FS1-%P>(P)
; LINE 114
MOVEI A,Zr1
ADD A,<3-FS1-%P>(P)
MOVEI C,Zpg
ADD C,(A)
MOVE A,(C)
MOVEM A,<6-FS1-%P>(P)
L14:
; LINE 115
MOVE A,<6-FS1-%P>(P)
MOVE A,(A)
JUMPE A,L5012
; LINE 116
MOVE A,<6-FS1-%P>(P)
MOVE A,(A)
CAMN A,<4-FS1-%P>(P)
GO L13
; LINE 117
MOVE A,<6-FS1-%P>(P)
ADDI A,2
MOVEM A,<6-FS1-%P>(P)
GO L14
L5012:
L13:
; LINE 119
MOVEI A,1
ADDB A,<6-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<4-FS1-%P>(P)
; LINE 120
MOVEI A,1
MOVEM A,<7-FS1-%P>(P)
GO L8
L15:
; LINE 123
MOVE A,<18-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<16-FS1-%P>(P)
; LINE 124
MOVE A,<16-FS1-%P>(P)
LSH A,-4
ADD A,<5-FS1-%P>(P)
MOVE C,<16-FS1-%P>(P)
ANDI C,15
MOVEI D,1
LSH D,(C)
AND D,(A)
JUMPE D,L5013
; LINE 125
MOVE A,<16-FS1-%P>(P)
ADD A,<3-FS1-%P>(P)
MOVEI C,Za
ADD C,A
SUBI C,1
MOVE A,(C)
MOVEM A,<4-FS1-%P>(P)
; LINE 126
GO L11
L5013:
; LINE 128
MOVE A,<5-FS1-%P>(P)
ADD A,Znwpbt
MOVEM A,<5-FS1-%P>(P)
GO L7
L16:
; LINE 131
MOVE A,I15
JUMPE A,L5014
; LINE 132
PPUSH <18-FS1-%P>(P)
CCALL 1,Zdmper
MOVEM A,<18-FS1-%P>(P)
; LINE 133
MOVEI A,0
MOVEM A,<7-FS1-%P>(P)
GO L8
L5014:
; LINE 136
MOVEI A,0
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L25:
; LINE 138
MOVE A,I15
JUMPL A,L5015
CAILE A,1-0
GO L5015
GO @(A)[
L18
L24
]
L18:
; LINE 140
MOVE A,Zedebu
JUMPE A,L5016
MOVEI A,S41
PPUSH A
PPUSH <4-FS1-%P>(P)
MOVE A,I1
MOVEI C,I2
SUB A,C
PPUSH A
MOVE A,<18-FS1-%P>(P)
PPUSH (A)
CCALL 4,Zcprin
L5016:
; LINE 142
MOVE A,<18-FS1-%P>(P)
PPUSH 2(A)
CCALL 1,Zsyner
; LINE 143
MOVEI A,I2
MOVEM A,<12-FS1-%P>(P)
L20:
; LINE 144
MOVE A,<12-FS1-%P>(P)
CAMLE A,I1
GO L5017
MOVEI B,1
MOVE A,<12-FS1-%P>(P)
ADDM B,<12-FS1-%P>(P)
PPUSH (A)
CCALL 1,Zqprin
GO L20
L5017:
L19:
; LINE 145
CCALL 0,Zpcurs
; LINE 146
CCALL 0,Ztkeem
; LINE 147
MOVEI A,0
MOVEM A,<8-FS1-%P>(P)
L23:
MOVE A,<8-FS1-%P>(P)
CAIL A,5
GO L5018
; LINE 148
PPUSH <8-FS1-%P>(P)
CCALL 1,Ztok
MOVEM A,<19-FS1-%P>(P)
; LINE 149
MOVE A,<19-FS1-%P>(P)
MOVE A,(A)
CAIN A,1
GO L21
; LINE 150
PPUSH <19-FS1-%P>(P)
CCALL 1,Ztprin
L22:
; LINE 147
MOVEI A,1
ADDB A,<8-FS1-%P>(P)
GO L23
L5018:
L21:
; LINE 152
CCALL 0,Zsave
; LINE 153
MOVE A,I11
MOVEM A,I12
; LINE 154
MOVEI A,1
MOVEM A,I15
; LINE 155
MOVEI A,2
IORB A,Zxflag
; LINE 156
MOVEI A,30
SUB A,I11
SUBI A,2
MOVEM A,<10-FS1-%P>(P)
; LINE 157
MOVE A,I1
MOVEI C,I2
SUB A,C
MOVEM A,<11-FS1-%P>(P)
; LINE 158
MOVEI A,0
MOVEM A,I13
; LINE 159
MOVEI A,0
MOVEM A,I14
; LINE 160
MOVEI A,1
MOVEM A,<17-FS1-%P>(P)
L24:
; LINE 162
CCALL 0,Zresto
; LINE 163
CCALL 0,Zyrese
; LINE 164
MOVEI A,1
ADDB A,I13
ANDI A,1
JUMPN A,L5019
SETO A,
ADDB A,I14
L5019:
; LINE 165
MOVE A,I14
JUMPL A,L5021
MOVE A,<18-FS1-%P>(P)
MOVE A,(A)
CAIN A,1
GO L5021
MOVE A,I13
CAMG A,<10-FS1-%P>(P)
GO L5020
L5021:
; LINE 166
MOVE A,<17-FS1-%P>(P)
AOS <17-FS1-%P>(P)
MOVEM A,I14
; LINE 167
MOVEI A,0
MOVEM A,I13
L5020:
; LINE 169
MOVE A,I14
CAMLE A,<11-FS1-%P>(P)
GO L5022
; LINE 170
PPUSH I13
CCALL 1,Zctok
MOVEM A,<18-FS1-%P>(P)
; LINE 171
MOVN A,I14
MOVEM A,<7-FS1-%P>(P)
GO L17
L5022:
; LINE 174
MOVE A,<18-FS1-%P>(P)
PPUSH 2(A)
CCALL 1,Zgiveu
; LINE 175
MOVEI A,1
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5015:
L17:
; LINE 177
MOVE A,Zedebu
JUMPE A,L5023
MOVEI A,S72
PPUSH A
PPUSH I14
PPUSH I13
MOVE A,<18-FS1-%P>(P)
PPUSH (A)
CCALL 4,Zcprin
L5023:
GO L8
L5004:
L8:
; LINE 181
MOVE A,<7-FS1-%P>(P)
JUMPLE A,L5024
; LINE 182
MOVE A,Zdebug
JUMPE A,L5025
MOVEI A,S99
PPUSH A
PPUSH <4-FS1-%P>(P)
PPUSH Zval
CCALL 3,Zcprin
L5025:
; LINE 183
MOVEI A,1
ADDB A,I1
MOVE C,<4-FS1-%P>(P)
MOVEM C,(A)
; LINE 184
MOVEI A,1
ADDB A,Zpv
MOVE C,Zval
MOVEM C,(A)
; LINE 185
MOVEI A,1
ADDB A,Zpl
MOVE C,Zline
MOVEM C,(A)
; LINE 186
MOVE A,I1
MOVEI C,I2
SUB A,C
CAIGE A,200
GO L5026
; LINE 187
MOVE A,<18-FS1-%P>(P)
PPUSH 2(A)
CCALL 1,Zstkov
; LINE 188
MOVEI A,1
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5026:
GO L5027
L5024:
; LINE 191
MOVE A,<7-FS1-%P>(P)
JUMPGE A,L5028
; LINE 192
MOVE A,Zpv
ADD A,<7-FS1-%P>(P)
MOVEM A,Zpv
; LINE 193
MOVE A,I1
ADD A,<7-FS1-%P>(P)
MOVEM A,I1
; LINE 194
MOVE A,Zpl
ADD A,<7-FS1-%P>(P)
MOVEM A,Zpl
; LINE 195
MOVE A,I1
MOVEI C,I2
CAML A,C
GO L5029
; LINE 196
MOVE A,<18-FS1-%P>(P)
PPUSH 2(A)
CCALL 1,Zstkun
; LINE 197
MOVEI A,1
SUBI P,FS1+%A+1
GO @<%A+1>(P)
L5029:
L5028:
L5027:
; LINE 200
MOVE A,I1
MOVE A,(A)
MOVEM A,<4-FS1-%P>(P)
GO L6
GO L7
L6:
GO L5
L4:
SUBI P,FS1+%A+1
GO @<%A+1>(P)
FS1==20-1
%A==1
%A,,[ASCIZ/dmperr/]
Zdmper: ADDI P,FS2
; LINE 209
CCALL 0,Zyrese
; LINE 210
CCALL 0,Zresto
; LINE 211
MOVE A,I14
JUMPLE A,L5030
MOVE A,<0-FS2-%A-%P>(P)
PPUSH 2(A)
CCALL 1,Zdelms
L5030:
; LINE 212
MOVEI A,1
MOVEM A,<1-FS2-%P>(P)
L28:
MOVE A,<1-FS2-%P>(P)
CAMLE A,I14
GO L5031
; LINE 213
MOVN A,I14
ADD A,<1-FS2-%P>(P)
ADD A,I1
PPUSH (A)
CCALL 1,Zqprin
L27:
; LINE 212
MOVEI A,1
ADDB A,<1-FS2-%P>(P)
GO L28
L5031:
L26:
; LINE 214
MOVE A,I13
JUMPLE A,L5032
MOVE A,<0-FS2-%A-%P>(P)
PPUSH 2(A)
CCALL 1,Zskpms
L5032:
; LINE 215
MOVEI A,0
MOVEM A,<1-FS2-%P>(P)
L31:
MOVE A,<1-FS2-%P>(P)
CAML A,I13
GO L5033
; LINE 216
PPUSH <1-FS2-%P>(P)
CCALL 1,Ztok
PPUSH A
CCALL 1,Ztprin
L30:
; LINE 215
MOVEI A,1
ADDB A,<1-FS2-%P>(P)
GO L31
L5033:
L29:
; LINE 217
MOVNI A,--3
ANDB A,Zxflag
; LINE 218
MOVEI A,0
MOVEM A,I15
; LINE 219
MOVEI A,0
MOVEM A,I12
; LINE 220
MOVE A,I1
SUB A,I14
MOVEM A,I1
; LINE 221
MOVE A,Zpv
SUB A,I14
MOVEM A,Zpv
; LINE 222
MOVE A,Zpl
SUB A,I14
MOVEM A,Zpl
; LINE 223
PPUSH I13
CCALL 1,Zctok
MOVEM A,<2-FS2-%P>(P)
; LINE 224
CCALL 0,Ztklem
; LINE 225
MOVE A,<2-FS2-%P>(P)
SUBI P,FS2+%A+1
GO @<%A+1>(P)
SUBI P,FS2+%A+1
GO @<%A+1>(P)
FS2==3-1
%A==0
%A,,[ASCIZ/save/]
Zsave: ADDI P,FS3
; LINE 229
MOVEI A,I2
MOVEM A,<1-FS3-%P>(P)
; LINE 230
MOVEI A,I8
MOVEM A,<2-FS3-%P>(P)
L34:
; LINE 231
MOVEI B,1
MOVE A,<2-FS3-%P>(P)
ADDM B,<2-FS3-%P>(P)
MOVEI B,1
MOVE C,<1-FS3-%P>(P)
ADDM B,<1-FS3-%P>(P)
MOVE C,(C)
MOVEM C,(A)
L33:
MOVE A,<1-FS3-%P>(P)
CAMG A,I1
GO L34
L32:
; LINE 232
MOVEI A,I3
MOVEM A,<1-FS3-%P>(P)
; LINE 233
MOVEI A,I9
MOVEM A,<2-FS3-%P>(P)
L37:
; LINE 234
MOVEI B,1
MOVE A,<2-FS3-%P>(P)
ADDM B,<2-FS3-%P>(P)
MOVEI B,1
MOVE C,<1-FS3-%P>(P)
ADDM B,<1-FS3-%P>(P)
MOVE C,(C)
MOVEM C,(A)
L36:
MOVE A,<1-FS3-%P>(P)
CAMG A,Zpv
GO L37
L35:
; LINE 235
MOVEI A,I4
MOVEM A,<1-FS3-%P>(P)
; LINE 236
MOVEI A,I10
MOVEM A,<2-FS3-%P>(P)
L40:
; LINE 237
MOVEI B,1
MOVE A,<2-FS3-%P>(P)
ADDM B,<2-FS3-%P>(P)
MOVEI B,1
MOVE C,<1-FS3-%P>(P)
ADDM B,<1-FS3-%P>(P)
MOVE C,(C)
MOVEM C,(A)
L39:
MOVE A,<1-FS3-%P>(P)
CAMG A,Zpl
GO L40
L38:
; LINE 238
MOVE A,I1
MOVEM A,I5
; LINE 239
MOVE A,Zpv
MOVEM A,I6
; LINE 240
MOVE A,Zpl
MOVEM A,I7
SUBI P,FS3+%A+1
GO @<%A+1>(P)
FS3==3-1
%A==0
%A,,[ASCIZ/restore/]
Zresto: ADDI P,FS4
; LINE 244
MOVE A,I5
MOVEM A,I1
; LINE 245
MOVE A,I6
MOVEM A,Zpv
; LINE 246
MOVE A,I7
MOVEM A,Zpl
; LINE 247
MOVEI A,I2
MOVEM A,<1-FS4-%P>(P)
; LINE 248
MOVEI A,I8
MOVEM A,<2-FS4-%P>(P)
L43:
; LINE 249
MOVEI B,1
MOVE A,<1-FS4-%P>(P)
ADDM B,<1-FS4-%P>(P)
MOVEI B,1
MOVE C,<2-FS4-%P>(P)
ADDM B,<2-FS4-%P>(P)
MOVE C,(C)
MOVEM C,(A)
L42:
MOVE A,<1-FS4-%P>(P)
CAMG A,I1
GO L43
L41:
; LINE 250
MOVEI A,I3
MOVEM A,<1-FS4-%P>(P)
; LINE 251
MOVEI A,I9
MOVEM A,<2-FS4-%P>(P)
L46:
; LINE 252
MOVEI B,1
MOVE A,<1-FS4-%P>(P)
ADDM B,<1-FS4-%P>(P)
MOVEI B,1
MOVE C,<2-FS4-%P>(P)
ADDM B,<2-FS4-%P>(P)
MOVE C,(C)
MOVEM C,(A)
L45:
MOVE A,<1-FS4-%P>(P)
CAMG A,Zpv
GO L46
L44:
; LINE 253
MOVEI A,I4
MOVEM A,<1-FS4-%P>(P)
; LINE 254
MOVEI A,I10
MOVEM A,<2-FS4-%P>(P)
L49:
; LINE 255
MOVEI B,1
MOVE A,<1-FS4-%P>(P)
ADDM B,<1-FS4-%P>(P)
MOVEI B,1
MOVE C,<2-FS4-%P>(P)
ADDM B,<2-FS4-%P>(P)
MOVE C,(C)
MOVEM C,(A)
L48:
MOVE A,<1-FS4-%P>(P)
CAMG A,Zpl
GO L49
L47:
; LINE 256
MOVE A,I11
MOVEM A,I12
SUBI P,FS4+%A+1
GO @<%A+1>(P)
FS4==3-1
%A==0
%A,,[ASCIZ/lex/]
Zlex: ADDI P,FS5
; LINE 263
MOVEI A,3
ADDB A,Ztct
CAMGE A,Ztwp
GO L5034
; LINE 264
MOVE A,Ztokmo
JUMPN A,L5035
MOVEI A,Ztokbu
MOVEM A,Ztwp
MOVEM A,Ztct
GO L5036
L5035:
; LINE 266
MOVEI A,Ztokbu
ADDI A,90
MOVE C,Ztwp
CAMGE C,A
GO L5037
MOVE A,Ztct
PPUSH 2(A)
CCALL 1,Ztkbov
L5037:
; LINE 267
MOVE A,Ztct
CAMG A,Ztwp
GO L5038
MOVE A,Ztct
PPUSH 2(A)
CCALL 1,Zbadtw
L5038:
L5036:
; LINE 269
MOVEI B,3
MOVE A,Ztwp
ADDM B,Ztwp
PPUSH A
CCALL 1,Zrtoke
L5034:
; LINE 271
MOVE A,Ztflag
JUMPE A,L5039
MOVE A,Ztokmo
JUMPN A,L5039
; LINE 272
PPUSH Ztct
PPUSH Zcout
CCALL 2,Zptoke
; LINE 273
PPUSH [10]
PPUSH Zcout
CCALL 2,Zcputc
L5039:
; LINE 275
MOVE A,Ztct
MOVE A,2(A)
MOVEM A,Zlinen
; LINE 276
MOVE A,Ztct
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/tok/]
Ztok: ADDI P,FS6
; LINE 280
MOVE A,<0-FS6-%A-%P>(P)
IMULI A,3
ADD A,Ztct
MOVEM A,<1-FS6-%P>(P)
; LINE 281
MOVE A,<1-FS6-%P>(P)
MOVEI C,Ztokbu
CAMGE A,C
GO L5041
MOVEI A,Ztokbu
ADDI A,90
MOVE C,<1-FS6-%P>(P)
CAMGE C,A
GO L5040
L5041:
; LINE 282
MOVE A,Ztct
PPUSH 2(A)
PPUSH <0-FS6-%A-%P>(P)
CCALL 2,Zbadto
L5040:
L51:
; LINE 283
MOVE A,<1-FS6-%P>(P)
CAMGE A,Ztwp
GO L5042
MOVEI B,3
MOVE A,Ztwp
ADDM B,Ztwp
PPUSH A
CCALL 1,Zrtoke
GO L51
L5042:
L50:
; LINE 284
MOVE A,<1-FS6-%P>(P)
SUBI P,FS6+%A+1
GO @<%A+1>(P)
SUBI P,FS6+%A+1
GO @<%A+1>(P)
FS6==2-1
%A==1
%A,,[ASCIZ/ctok/]
Zctok: ADDI P,FS7
; LINE 287
PPUSH <0-FS7-%A-%P>(P)
CCALL 1,Ztok
MOVEM A,Ztct
SUBI P,FS7+%A+1
GO @<%A+1>(P)
SUBI P,FS7+%A+1
GO @<%A+1>(P)
FS7==1-1
%A==0
%A,,[ASCIZ/yreset/]
Zyrese: ADDI P,FS8
; LINE 289
MOVEI A,Ztokbu
MOVEM A,Ztct
SUBI P,FS8+%A+1
GO @<%A+1>(P)
SUBI P,FS8+%A+1
GO @<%A+1>(P)
FS8==1-1
%A==0
%A,,[ASCIZ/tkeem/]
Ztkeem: ADDI P,FS9
; LINE 293
MOVEI A,1
MOVEM A,Ztokmo
; LINE 294
MOVE A,Ztwp
SUB A,Ztct
IDIVI A,3
MOVEM A,<1-FS9-%P>(P)
MOVEM A,<2-FS9-%P>(P)
; LINE 295
MOVE A,<1-FS9-%P>(P)
JUMPLE A,L5043
; LINE 296
MOVEI A,Ztokbu
SUBI A,3
MOVEM A,<3-FS9-%P>(P)
; LINE 297
MOVE A,Ztct
SUBI A,3
MOVEM A,<4-FS9-%P>(P)
L53:
; LINE 298
MOVE A,<1-FS9-%P>(P)
SOS <1-FS9-%P>(P)
JUMPE A,L5044
; LINE 299
MOVEI A,3
ADDB A,<3-FS9-%P>(P)
MOVEI C,3
ADDB C,<4-FS9-%P>(P)
MOVE C,(C)
MOVEM C,(A)
; LINE 300
MOVE A,<3-FS9-%P>(P)
MOVE C,<4-FS9-%P>(P)
MOVE C,1(C)
MOVEM C,1(A)
; LINE 301
MOVE A,<3-FS9-%P>(P)
MOVE C,<4-FS9-%P>(P)
MOVE C,2(C)
MOVEM C,2(A)
GO L53
L5044:
L52:
L5043:
; LINE 304
MOVEI A,Ztokbu
MOVEM A,Ztct
; LINE 305
MOVE A,<2-FS9-%P>(P)
IMULI A,3
ADD A,Ztct
MOVEM A,Ztwp
SUBI P,FS9+%A+1
GO @<%A+1>(P)
FS9==5-1
%A==0
%A,,[ASCIZ/tklem/]
Ztklem: ADDI P,FS10
; LINE 308
MOVEI A,0
MOVEM A,Ztokmo
SUBI P,FS10+%A+1
GO @<%A+1>(P)
FS10==1-1
%A==1
%A,,[ASCIZ/rtoken/]
Zrtoke: ADDI P,FS11
; LINE 311
CCALL 0,Zgetto
; LINE 312
MOVE A,<0-FS11-%A-%P>(P)
MOVE C,Zlexta
MOVEM C,(A)
; LINE 313
MOVE A,<0-FS11-%A-%P>(P)
MOVE C,Zlexin
MOVEM C,1(A)
; LINE 314
MOVE A,<0-FS11-%A-%P>(P)
MOVE C,Zlexli
MOVEM C,2(A)
SUBI P,FS11+%A+1
GO @<%A+1>(P)
FS11==1-1
.PDATA
CONSTANTS
END
Reference in New Issue View Git Blame Copy Permalink