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

2638 lines
24 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 cc20
RADIX 10.
.INSRT <C>NC
.CODE
ENTRY Zdebug
ENTRY Zidebu
ENTRY Zkflag
ENTRY Zcflag
ENTRY Zgflag
ENTRY Zxflag
ENTRY Zbflag
ENTRY Zsflag
ENTRY Zavl
ENTRY Zavlp
ENTRY Zavp
ENTRY Zavc
ENTRY Zavm
ENTRY Zave
ENTRY Zavs
ENTRY Zphsnm
ENTRY Zphspr
ENTRY Zphsac
ENTRY Zphsav
ENTRY Zphsop
ENTRY Zphset
ENTRY Zphspt
ENTRY Ztarge
ENTRY Ztarna
ENTRY Ztarsf
ENTRY Ztarlp
ENTRY Ztarob
ENTRY Zsconc
ENTRY Zmain
ENTRY Zproop
ENTRY Zcnsof
ENTRY Zexecp
ENTRY Zwrsta
ENTRY Zperas
ENTRY Zpromi
ENTRY Zproeq
ENTRY ZsetJp
ENTRY Zsettr
ENTRY Zsetpn
ENTRY Zslowe
ENTRY Zprpht
ENTRY Zdigit
EXTERN Zcout
EXTERN Zexpar
EXTERN Zistty
EXTERN Zcopen
EXTERN Zcprin
EXTERN Zcclos
EXTERN Znow
EXTERN Zstcpy
EXTERN Zperro
EXTERN Zdelet
EXTERN Zlower
EXTERN Zfnsfd
EXTERN Zexcti
EXTERN Zexcco
EXTERN Zetime
EXTERN Zexecv
EXTERN Zstcmp
EXTERN Zcputc
EXTERN Zusern
EXTERN Zprcal
EXTERN Zfngdr
EXTERN Zfngnm
EXTERN Zpr60t
EXTERN Zexecs
EXTERN Zcgetc
.UDATA
Zdebug:
BLOCK 40
Zidebu:
BLOCK 40
Zkflag:
BLOCK 1
Zcflag:
BLOCK 1
Zgflag:
BLOCK 1
Zxflag:
BLOCK 1
Zbflag:
BLOCK 1
Zsflag:
BLOCK 1
.IDATA
Zavl:
Zdebug
0
S49
S0
S7
S35
Zavlp:
Zdebug
0
S28
S56
S7
S21
S0
S35
S14
S42
0
Zavp:
Zdebug
S49
S28
S56
S7
S21
S14
S42
0
Zavc:
Zdebug
S7
S28
S56
S21
S127
Zavm:
Zdebug
0
S0
S7
S21
S35
S14
Zave:
Zdebug
S7
S0
Zavs:
S0
S56
S42
0
Zphsnm:
S132
S134
S137
S139
S141
S143
S145
.UDATA
Zphspr:
BLOCK 700
.IDATA
Zphsac:
6
10
8
6
7
3
4
Zphsav:
Zavl
Zavlp
Zavp
Zavc
Zavm
Zave
Zavs
Zphsop:
110
110
110
110
110
110
110
Zphset:
0
0
0
0
0
0
0
Zphspt:
0
0
0
0
0
0
0
Ztarge:
0
Ztarna:
S147
S153
S159
S167
S174
S179
S184
Ztarsf:
S104
S105
S108
S111
S115
S119
S123
Ztarlp:
S190
S191
S192
S193
S194
S195
S196
Ztarob:
S197
S201
S206
S211
S215
S220
S225
.CODE
.PDATA
S0: 48
46
99
115
59
116
0
S7: 48
46
101
114
59
116
0
S14: 48
46
104
109
59
116
0
S21: 48
46
109
97
59
116
0
S28: 48
46
110
111
59
116
0
S35: 48
46
115
116
59
116
0
S42: 48
46
115
121
59
116
0
S49: 48
46
116
111
59
116
0
S56: 48
46
116
121
59
116
0
S63: 60
99
62
99
50
48
0
S70: 60
99
62
99
50
48
0
S77: 60
99
46
99
109
112
62
99
50
48
0
S88: 46
101
120
101
0
S93: 46
111
101
120
101
0
S99: 46
101
120
101
0
S104: 0
S105: 49
49
0
S108: 54
48
0
S111: 51
54
48
0
S115: 45
99
109
0
S119: 45
117
120
0
S123: 45
49
48
0
S127: 51
48
48
48
0
S132: 76
0
S134: 76
80
0
S137: 80
0
S139: 67
0
S141: 77
0
S143: 69
0
S145: 83
0
S147: 112
100
112
49
48
0
S153: 112
100
112
49
49
0
S159: 104
105
115
54
48
48
48
0
S167: 105
98
109
51
54
48
0
S174: 99
109
97
99
0
S179: 117
110
105
120
0
S184: 110
101
119
49
48
0
S190: 0
S191: 0
S192: 0
S193: 0
S194: 0
S195: 0
S196: 0
S197: 109
105
100
0
S201: 80
65
76
88
0
S206: 71
77
65
80
0
S211: 66
65
76
0
S215: 67
77
65
67
0
S220: 85
78
73
88
0
S225: 78
77
73
68
65
83
0
S232: 67
97
110
39
116
32
70
105
110
100
32
39
37
115
39
46
10
0
S250: 37
115
58
10
0
S255: 115
0
S257: 120
0
S259: 98
0
S261: 49
48
48
48
48
0
S267: 85
110
114
101
99
111
103
110
105
122
101
100
32
111
112
116
105
111
110
58
32
45
37
99
10
0
S293: 85
110
114
101
99
111
103
110
105
122
101
100
32
111
112
116
105
111
110
58
32
37
99
61
37
115
10
0
S321: 0
S322: 115
116
107
0
S326: 115
121
109
116
97
98
0
S333: 85
110
97
98
108
101
32
116
111
32
101
120
101
99
117
116
101
32
112
104
97
115
101
32
37
115
10
0
S361: 85
110
114
101
99
111
103
110
105
122
101
100
32
80
104
97
115
101
32
68
101
115
105
103
110
97
116
105
111
110
58
32
37
99
10
0
S397: 85
110
114
101
99
111
103
110
105
122
101
100
32
80
104
97
115
101
32
79
112
116
105
111
110
58
32
37
99
10
0
S428: 0
S429: 85
110
114
101
99
111
103
110
105
122
101
100
32
116
97
114
103
101
116
32
109
97
99
104
105
110
101
58
32
37
115
10
0
S462: 60
99
62
99
46
115
116
97
116
0
S472: 60
99
108
117
62
99
46
115
116
97
116
0
S484: 37
115
32
45
32
0
S490: 32
45
32
0
S494: 37
115
47
0
S498: 37
115
0
S501: 32
40
0
S504: 100
61
37
115
0
S509: 109
61
37
115
0
S514: 10
10
0
S517: 32
80
61
0
S521: 32
69
61
0
S525: 32
95
32
0
S529: 32
40
119
41
0
S534: 115
121
115
58
109
105
100
97
115
46
101
120
101
0
S548: 85
110
97
98
108
101
32
116
111
32
65
115
115
101
109
98
108
101
46
10
0
S569: 69
82
82
0
S573: 65
115
115
101
109
98
108
101
114
32
69
114
114
111
114
115
46
10
0
.CODE
%A==2
%A,,[ASCIZ/main/]
Zmain: ADDI P,FS1
; LINE 254
SETO A,
ADDB A,<0-FS1-%A-%P>(P)
; LINE 255
MOVEI A,1
ADDB A,<1-FS1-%A-%P>(P)
; LINE 256
PPUSH <0-FS1-%A-%P>(P)
PPUSH <1-FS1-%A-%P>(P)
CCALL 2,Zproop
MOVEM A,<0-FS1-%A-%P>(P)
; LINE 257
PPUSH <0-FS1-%A-%P>(P)
PPUSH <1-FS1-%A-%P>(P)
MOVEI A,<14-FS1-%P>(P)
PPUSH A
MOVEI A,<64-FS1-%P>(P)
PPUSH A
CCALL 4,Zexpar
MOVEM A,<0-FS1-%A-%P>(P)
; LINE 258
MOVEI A,<14-FS1-%P>(P)
MOVEM A,<1-FS1-%A-%P>(P)
; LINE 262
MOVEI A,Ztarlp
ADD A,Ztarge
MOVE A,(A)
MOVEM A,<12-FS1-%P>(P)
; LINE 263
MOVE A,<12-FS1-%P>(P)
MOVE A,(A)
JUMPE A,L5000
; LINE 264
MOVEI A,Zphsac
MOVEI C,11
MOVEM C,1(A)
; LINE 265
MOVEI A,Zavlp
MOVE C,<12-FS1-%P>(P)
MOVEM C,10(A)
GO L5001
L5000:
; LINE 267
MOVEI A,Zphsac
MOVEI C,10
MOVEM C,1(A)
L5001:
; LINE 281
PPUSH Zcout
CCALL 1,Zistty
MOVEM A,<5-FS1-%P>(P)
; LINE 283
MOVEI A,0
MOVEM A,<1-FS1-%P>(P)
L2:
MOVE A,<1-FS1-%P>(P)
CAML A,<0-FS1-%A-%P>(P)
GO L5002
; LINE 284
MOVE A,<1-FS1-%A-%P>(P)
ADD A,<1-FS1-%P>(P)
MOVE A,(A)
MOVEM A,<13-FS1-%P>(P)
; LINE 288
PPUSH <13-FS1-%P>(P)
PPUSH [114]
CCALL 2,Zcopen
MOVEM A,<3-FS1-%P>(P)
CAME A,[-1]
GO L5003
; LINE 289
MOVEI A,S232
PPUSH A
PPUSH <13-FS1-%P>(P)
CCALL 2,Zcprin
GO L1
L5003:
; LINE 292
PPUSH <3-FS1-%P>(P)
CCALL 1,Zcclos
; LINE 294
MOVE A,<5-FS1-%P>(P)
JUMPE A,L5005
MOVE A,<0-FS1-%A-%P>(P)
CAIG A,1
GO L5004
L5005:
MOVEI A,S250
PPUSH A
PPUSH <13-FS1-%P>(P)
CCALL 2,Zcprin
L5004:
; LINE 295
MOVEI A,<6-FS1-%P>(P)
PPUSH A
CCALL 1,Znow
; LINE 299
MOVE A,Zsflag
JUMPE A,L5006
MOVEI A,Zdebug
PPUSH A
PPUSH [2]
MOVEI A,Zidebu
PPUSH A
MOVEI A,S255
PPUSH A
CCALL 4,Zsconc
GO L5007
L5006:
; LINE 300
MOVE A,Zxflag
JUMPE A,L5008
MOVEI A,Zdebug
PPUSH A
PPUSH [2]
MOVEI A,Zidebu
PPUSH A
MOVEI A,S257
PPUSH A
CCALL 4,Zsconc
GO L5009
L5008:
; LINE 301
MOVEI A,Zidebu
PPUSH A
MOVEI A,Zdebug
PPUSH A
CCALL 2,Zstcpy
L5009:
L5007:
; LINE 305
PPUSH <13-FS1-%P>(P)
MOVEI A,<2064-FS1-%P>(P)
PPUSH A
MOVEI A,<2164-FS1-%P>(P)
PPUSH A
MOVEI A,<2264-FS1-%P>(P)
PPUSH A
CCALL 4,Zcnsof
; LINE 308
MOVEI A,S7
PPUSH A
PPUSH [119]
MOVEI A,S259
PPUSH A
CCALL 3,Zcopen
PPUSH A
CCALL 1,Zcclos
; LINE 310
MOVEI A,0
MOVEM A,<4-FS1-%P>(P)
L5:
MOVE A,<4-FS1-%P>(P)
CAIL A,7
GO L5010
MOVEI A,Zphspt
ADD A,<4-FS1-%P>(P)
MOVNI C,--1
MOVEM C,(A)
L4:
MOVEI A,1
ADDB A,<4-FS1-%P>(P)
GO L5
L5010:
L3:
; LINE 311
MOVEI A,Zavm
MOVEI C,<2064-FS1-%P>(P)
MOVEM C,1(A)
; LINE 312
MOVEI A,Zavs
MOVEI C,<2264-FS1-%P>(P)
MOVEM C,3(A)
; LINE 316
MOVEI A,Zavlp
MOVE C,<13-FS1-%P>(P)
MOVEM C,1(A)
; LINE 317
PPUSH [1]
CCALL 1,Zexecp
MOVEM A,<2-FS1-%P>(P)
; LINE 329
MOVE A,<2-FS1-%P>(P)
JUMPN A,L5011
MOVE A,Zxflag
JUMPN A,L5011
PPUSH [3]
CCALL 1,Zexecp
MOVEM A,<2-FS1-%P>(P)
L5011:
; LINE 330
MOVE A,<2-FS1-%P>(P)
JUMPN A,L5012
MOVE A,Zxflag
JUMPN A,L5012
PPUSH [4]
CCALL 1,Zexecp
MOVEM A,<2-FS1-%P>(P)
L5012:
; LINE 334
MOVEI A,S7
PPUSH A
MOVEI A,S0
PPUSH A
CCALL 2,Zperro
; LINE 344
MOVE A,Zkflag
JUMPN A,L5013
; LINE 345
MOVEI A,S49
PPUSH A
CCALL 1,Zdelet
; LINE 346
MOVEI A,S7
PPUSH A
CCALL 1,Zdelet
; LINE 347
MOVEI A,S28
PPUSH A
CCALL 1,Zdelet
; LINE 348
MOVEI A,S21
PPUSH A
CCALL 1,Zdelet
; LINE 349
MOVEI A,S14
PPUSH A
CCALL 1,Zdelet
; LINE 350
MOVEI A,S35
PPUSH A
CCALL 1,Zdelet
L5013:
; LINE 353
MOVE A,Zsflag
JUMPE A,L5014
PPUSH [6]
CCALL 1,Zexecp
L5014:
; LINE 355
MOVE A,Zkflag
JUMPN A,L5015
; LINE 356
MOVEI A,S0
PPUSH A
CCALL 1,Zdelet
; LINE 357
MOVEI A,S42
PPUSH A
CCALL 1,Zdelet
; LINE 358
MOVEI A,S56
PPUSH A
CCALL 1,Zdelet
L5015:
; LINE 361
PPUSH <13-FS1-%P>(P)
MOVEI A,<6-FS1-%P>(P)
PPUSH A
CCALL 2,Zwrsta
; LINE 363
MOVE A,<2-FS1-%P>(P)
JUMPN A,L5016
MOVE A,Zxflag
JUMPN A,L5016
MOVE A,Zcflag
JUMPN A,L5016
MOVE A,Ztarge
JUMPE A,L5017
MOVE A,Ztarge
CAIE A,6
GO L5016
L5017:
; LINE 365
MOVEI A,<2064-FS1-%P>(P)
PPUSH A
MOVEI A,<2164-FS1-%P>(P)
PPUSH A
CCALL 2,Zperas
MOVEM A,<2-FS1-%P>(P)
; LINE 366
MOVE A,Zgflag
JUMPN A,L5018
MOVE A,<2-FS1-%P>(P)
JUMPN A,L5018
MOVEI A,<2064-FS1-%P>(P)
PPUSH A
CCALL 1,Zdelet
L5018:
L5016:
L1:
; LINE 283
MOVEI A,1
ADDB A,<1-FS1-%P>(P)
GO L2
L5002:
L0:
SUBI P,FS1+%A+1
GO @<%A+1>(P)
FS1==2364-1
%A==2
%A,,[ASCIZ/proopt/]
Zproop: ADDI P,FS2
; LINE 384
MOVEI A,0
MOVEM A,Zsflag
MOVEM A,Zbflag
MOVEM A,Zxflag
MOVEM A,Zgflag
MOVEM A,Zcflag
MOVEM A,Zkflag
; LINE 386
MOVE A,<1-FS2-%A-%P>(P)
MOVEM A,<2-FS2-%P>(P)
MOVEM A,<3-FS2-%P>(P)
; LINE 387
MOVEI A,0
MOVEM A,<4-FS2-%P>(P)
L7:
; LINE 388
SETO A,
ADDB A,<0-FS2-%A-%P>(P)
JUMPL A,L5019
; LINE 389
MOVEI B,1
MOVE A,<2-FS2-%P>(P)
ADDM B,<2-FS2-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS2-%P>(P)
; LINE 390
MOVE A,<1-FS2-%P>(P)
MOVE A,(A)
CAIE A,45
GO L5020
MOVE A,<1-FS2-%P>(P)
ADDI A,1
PPUSH A
CCALL 1,Zpromi
GO L5021
L5020:
; LINE 391
MOVE A,<1-FS2-%P>(P)
MOVE A,(A)
MOVEM A,<5-FS2-%P>(P)
JUMPE A,L5022
MOVE A,<1-FS2-%P>(P)
MOVE A,1(A)
CAIE A,61
GO L5022
; LINE 392
PPUSH <5-FS2-%P>(P)
MOVE A,<1-FS2-%P>(P)
ADDI A,2
PPUSH A
CCALL 2,Zproeq
GO L5023
L5022:
; LINE 394
MOVEI B,1
MOVE A,<3-FS2-%P>(P)
ADDM B,<3-FS2-%P>(P)
MOVE C,<1-FS2-%P>(P)
MOVEM C,(A)
; LINE 395
MOVEI A,1
ADDB A,<4-FS2-%P>(P)
L5023:
L5021:
GO L7
L5019:
L6:
; LINE 398
MOVE A,<4-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==1
%A,,[ASCIZ/promin/]
Zpromi: ADDI P,FS3
L9:
; LINE 412
MOVE A,<0-FS3-%A-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS3-%P>(P)
JUMPE A,L5024
; LINE 413
MOVEI B,1
MOVE A,<0-FS3-%A-%P>(P)
ADDM B,<0-FS3-%A-%P>(P)
PPUSH <1-FS3-%P>(P)
MOVEM A,<2-FS3-%P>(P)
CCALL 1,Zlower
MOVE C,A
MOVEM C,<1-FS3-%P>(P)
MOVE A,<2-FS3-%P>(P)
MOVEM C,(A)
; LINE 414
MOVE A,<1-FS3-%P>(P)
MOVE B,[-6,,[
107
99
103
115
120
98
L11
L12
L13
L14
L15
L16
]]
CAMN A,(B)
GO @6(B)
AOBJN B,.-2
GO L17
L11:
; LINE 415
MOVEI A,1
MOVEM A,Zkflag
GO L10
L12:
; LINE 416
MOVEI A,1
MOVEM A,Zcflag
GO L10
L13:
; LINE 417
MOVEI A,1
MOVEM A,Zgflag
GO L10
L14:
; LINE 418
MOVEI A,1
MOVEM A,Zsflag
GO L10
L15:
; LINE 419
MOVEI A,1
MOVEM A,Zxflag
GO L10
L16:
; LINE 420
MOVEI A,1
MOVEM A,Zbflag
; LINE 421
MOVEI A,Zavc
MOVEI C,S261
MOVEM C,5(A)
GO L10
L17:
; LINE 423
MOVEI A,S267
PPUSH A
PPUSH <1-FS3-%P>(P)
CCALL 2,Zcprin
GO L10
L5025:
L10:
GO L9
L5024:
L8:
SUBI P,FS3+%A+1
GO @<%A+1>(P)
FS3==3-1
%A==2
%A,,[ASCIZ/proeq/]
Zproeq: ADDI P,FS4
; LINE 441
PPUSH <0-FS4-%A-%P>(P)
CCALL 1,Zlower
MOVEM A,<0-FS4-%A-%P>(P)
MOVE B,[-5,,[
100
116
111
110
109
L19
L24
L25
L26
L27
]]
CAMN A,(B)
GO @5(B)
AOBJN B,.-2
GO L28
L19:
; LINE 442
MOVEI A,Zidebu
MOVEM A,<1-FS4-%P>(P)
L21:
; LINE 443
MOVEI B,1
MOVE A,<1-FS4-%A-%P>(P)
ADDM B,<1-FS4-%A-%P>(P)
MOVE A,(A)
MOVEM A,<2-FS4-%P>(P)
JUMPE A,L5027
MOVEI B,1
MOVE A,<1-FS4-%P>(P)
ADDM B,<1-FS4-%P>(P)
PPUSH <2-FS4-%P>(P)
MOVEM A,<3-FS4-%P>(P)
CCALL 1,Zlower
MOVE C,A
MOVE A,<3-FS4-%P>(P)
MOVEM C,(A)
GO L21
L5027:
L20:
; LINE 444
MOVE A,<1-FS4-%P>(P)
MOVEI C,0
MOVEM C,(A)
; LINE 445
SUBI P,FS4+%A+1
GO @<%A+1>(P)
L26:
L25:
L24:
L23:
; LINE 448
MOVEI B,1
MOVE A,<1-FS4-%A-%P>(P)
ADDM B,<1-FS4-%A-%P>(P)
MOVE A,(A)
MOVEM A,<2-FS4-%P>(P)
JUMPE A,L5028
PPUSH <2-FS4-%P>(P)
PPUSH <0-FS4-%A-%P>(P)
CCALL 2,ZsetJp
GO L23
L5028:
L22:
; LINE 449
SUBI P,FS4+%A+1
GO @<%A+1>(P)
L27:
; LINE 451
PPUSH <1-FS4-%A-%P>(P)
CCALL 1,Zsettr
; LINE 452
SUBI P,FS4+%A+1
GO @<%A+1>(P)
L28:
; LINE 454
MOVEI A,S293
PPUSH A
PPUSH <0-FS4-%A-%P>(P)
PPUSH <1-FS4-%A-%P>(P)
CCALL 3,Zcprin
L5026:
L18:
SUBI P,FS4+%A+1
GO @<%A+1>(P)
FS4==4-1
%A==4
%A,,[ASCIZ/cnsofn/]
Zcnsof: ADDI P,FS5
; LINE 470
PPUSH <1-FS5-%A-%P>(P)
PPUSH <0-FS5-%A-%P>(P)
MOVEI A,S321
PPUSH A
PPUSH [0]
PPUSH [0]
MOVEI A,Ztarob
ADD A,Ztarge
PPUSH (A)
PPUSH [0]
PPUSH [0]
CCALL 8,Zfnsfd
; LINE 471
PPUSH <2-FS5-%A-%P>(P)
PPUSH <1-FS5-%A-%P>(P)
PPUSH [0]
PPUSH [0]
PPUSH [0]
MOVEI A,S322
PPUSH A
PPUSH [0]
PPUSH [0]
CCALL 8,Zfnsfd
; LINE 472
PPUSH <3-FS5-%A-%P>(P)
PPUSH <1-FS5-%A-%P>(P)
PPUSH [0]
PPUSH [0]
PPUSH [0]
MOVEI A,S326
PPUSH A
PPUSH [0]
PPUSH [0]
CCALL 8,Zfnsfd
SUBI P,FS5+%A+1
GO @<%A+1>(P)
FS5==1-1
%A==1
%A,,[ASCIZ/execph/]
Zexecp: ADDI P,FS6
; LINE 486
PPUSH <0-FS6-%A-%P>(P)
CCALL 1,Zsetpn
; LINE 487
CCALL 0,Zetime
MOVEM A,<1-FS6-%P>(P)
; LINE 488
MOVE A,<0-FS6-%A-%P>(P)
IMULI A,100
MOVEI C,Zphspr
ADD C,A
PPUSH C
MOVEI A,Zphsac
ADD A,<0-FS6-%A-%P>(P)
PPUSH (A)
MOVEI A,Zphsav
ADD A,<0-FS6-%A-%P>(P)
PPUSH (A)
CCALL 3,Zexecv
JUMPE A,L5029
; LINE 489
MOVEI A,S333
PPUSH A
MOVEI A,Zphsnm
ADD A,<0-FS6-%A-%P>(P)
PPUSH (A)
CCALL 2,Zcprin
; LINE 490
MOVNI A,--1
SUBI P,FS6+%A+1
GO @<%A+1>(P)
L5029:
; LINE 492
MOVEI A,Zphset
ADD A,<0-FS6-%A-%P>(P)
MOVEM A,<2-FS6-%P>(P)
CCALL 0,Zetime
MOVE C,A
SUB C,<1-FS6-%P>(P)
MOVE A,<2-FS6-%P>(P)
MOVEM C,(A)
; LINE 493
MOVEI A,Zphspt
ADD A,<0-FS6-%A-%P>(P)
MOVE C,Zexcti
MOVEM C,(A)
; LINE 494
MOVE A,Zexcco
SUBI P,FS6+%A+1
GO @<%A+1>(P)
SUBI P,FS6+%A+1
GO @<%A+1>(P)
FS6==3-1
%A==2
%A,,[ASCIZ/set_phase_option/]
ZsetJp: ADDI P,FS7
; LINE 509
PPUSH <0-FS7-%A-%P>(P)
CCALL 1,Zlower
MOVEM A,<0-FS7-%A-%P>(P)
; LINE 510
MOVE A,<0-FS7-%A-%P>(P)
SUBI A,99
JUMPL A,L36
CAILE A,115-99
GO L36
GO @(A)[
L32
L36
L34
L36
L36
L36
L36
L36
L36
L31
L33
L36
L36
L30
L36
L36
L35
]
L31:
L30:
; LINE 515
MOVEI A,1
MOVEM A,<1-FS7-%P>(P)
GO L29
L32:
; LINE 526
MOVEI A,3
MOVEM A,<1-FS7-%P>(P)
GO L29
L33:
; LINE 527
MOVEI A,4
MOVEM A,<1-FS7-%P>(P)
GO L29
L34:
; LINE 528
MOVEI A,5
MOVEM A,<1-FS7-%P>(P)
GO L29
L35:
; LINE 529
MOVEI A,6
MOVEM A,<1-FS7-%P>(P)
GO L29
L36:
; LINE 530
MOVEI A,S361
PPUSH A
PPUSH <0-FS7-%A-%P>(P)
CCALL 2,Zcprin
; LINE 531
SUBI P,FS7+%A+1
GO @<%A+1>(P)
L5030:
L29:
; LINE 533
MOVEI A,Zphsop
ADD A,<1-FS7-%P>(P)
PPUSH <1-FS7-%A-%P>(P)
MOVEM A,<2-FS7-%P>(P)
CCALL 1,Zlower
MOVE C,A
MOVE A,<2-FS7-%P>(P)
MOVEM C,(A)
SUBI P,FS7+%A+1
GO @<%A+1>(P)
FS7==3-1
%A==1
%A,,[ASCIZ/setpn/]
Zsetpn: ADDI P,FS8
; LINE 548
MOVEI A,Zphsop
ADD A,<0-FS8-%A-%P>(P)
MOVE A,(A)
SUBI A,110
JUMPL A,L40
CAILE A,116-110
GO L40
GO @(A)[
L41
L38
L40
L40
L40
L40
L39
]
L38:
; LINE 549
MOVEI A,S70
MOVEM A,<1-FS8-%P>(P)
MOVEI A,S93
MOVEM A,<2-FS8-%P>(P)
GO L37
L39:
; LINE 551
MOVEI A,S77
MOVEM A,<1-FS8-%P>(P)
MOVEI A,S99
MOVEM A,<2-FS8-%P>(P)
GO L37
L40:
; LINE 553
MOVEI A,S397
PPUSH A
MOVEI A,Zphsop
ADD A,<0-FS8-%A-%P>(P)
PPUSH (A)
CCALL 2,Zcprin
L41:
; LINE 555
MOVEI A,S63
MOVEM A,<1-FS8-%P>(P)
MOVEI A,S88
MOVEM A,<2-FS8-%P>(P)
GO L37
L5031:
L37:
; LINE 558
MOVEI A,Ztarsf
ADD A,Ztarge
MOVE A,(A)
MOVEM A,<3-FS8-%P>(P)
; LINE 559
MOVE A,<0-FS8-%A-%P>(P)
CAIN A,5
GO L5033
MOVE A,<0-FS8-%A-%P>(P)
CAIE A,6
GO L5032
L5033:
MOVEI A,S428
MOVEM A,<3-FS8-%P>(P)
L5032:
; LINE 560
MOVE A,<0-FS8-%A-%P>(P)
IMULI A,100
MOVEI C,Zphspr
ADD C,A
PPUSH C
PPUSH [4]
PPUSH <1-FS8-%P>(P)
MOVEI A,Zphsnm
ADD A,<0-FS8-%A-%P>(P)
PPUSH (A)
PPUSH <3-FS8-%P>(P)
PPUSH <2-FS8-%P>(P)
CCALL 6,Zsconc
SUBI P,FS8+%A+1
GO @<%A+1>(P)
FS8==4-1
%A==1
%A,,[ASCIZ/settrg/]
Zsettr: ADDI P,FS9
; LINE 575
MOVE A,<0-FS9-%A-%P>(P)
MOVEM A,<3-FS9-%P>(P)
L43:
; LINE 576
MOVE A,<3-FS9-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS9-%P>(P)
JUMPE A,L5034
MOVEI B,1
MOVE A,<3-FS9-%P>(P)
ADDM B,<3-FS9-%P>(P)
PPUSH <1-FS9-%P>(P)
MOVEM A,<4-FS9-%P>(P)
CCALL 1,Zlower
MOVE C,A
MOVE A,<4-FS9-%P>(P)
MOVEM C,(A)
GO L43
L5034:
L42:
; LINE 577
MOVEI A,0
MOVEM A,<2-FS9-%P>(P)
L46:
MOVE A,<2-FS9-%P>(P)
CAIL A,7
GO L5035
; LINE 578
PPUSH <0-FS9-%A-%P>(P)
MOVEI A,Ztarna
ADD A,<2-FS9-%P>(P)
PPUSH (A)
CCALL 2,Zstcmp
JUMPE A,L5036
; LINE 579
MOVE A,<2-FS9-%P>(P)
MOVEM A,Ztarge
; LINE 580
SUBI P,FS9+%A+1
GO @<%A+1>(P)
L5036:
L45:
; LINE 577
MOVEI A,1
ADDB A,<2-FS9-%P>(P)
GO L46
L5035:
L44:
; LINE 583
MOVEI A,S429
PPUSH A
PPUSH <0-FS9-%A-%P>(P)
CCALL 2,Zcprin
SUBI P,FS9+%A+1
GO @<%A+1>(P)
FS9==5-1
%A==2
%A,,[ASCIZ/wrstat/]
Zwrsta: ADDI P,FS10
; LINE 599
MOVEI A,1
MOVEM A,<2-FS10-%P>(P)
; LINE 600
MOVEI A,S462
PPUSH A
PPUSH [97]
CCALL 2,Zcopen
MOVEM A,<1-FS10-%P>(P)
; LINE 601
MOVE A,<1-FS10-%P>(P)
CAME A,[-1]
GO L5037
MOVEI A,S472
PPUSH A
PPUSH [97]
CCALL 2,Zcopen
MOVEM A,<1-FS10-%P>(P)
L5037:
; LINE 602
MOVE A,<1-FS10-%P>(P)
CAME A,[-1]
GO L5038
SUBI P,FS10+%A+1
GO @<%A+1>(P)
L5038:
; LINE 603
PPUSH [10]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
; LINE 604
PPUSH <1-FS10-%P>(P)
MOVEI A,S484
PPUSH A
CCALL 0,Zusern
PPUSH A
CCALL 3,Zcprin
; LINE 605
PPUSH <1-FS10-%A-%P>(P)
PPUSH <1-FS10-%P>(P)
CCALL 2,Zprcal
; LINE 606
PPUSH <1-FS10-%P>(P)
MOVEI A,S490
PPUSH A
CCALL 2,Zcprin
; LINE 607
PPUSH <0-FS10-%A-%P>(P)
MOVEI A,<4-FS10-%P>(P)
PPUSH A
CCALL 2,Zfngdr
; LINE 608
MOVEI A,<4-FS10-%P>(P)
MOVE A,(A)
JUMPE A,L5039
; LINE 609
MOVEI A,<4-FS10-%P>(P)
PPUSH A
CCALL 1,Zslowe
; LINE 610
PPUSH <1-FS10-%P>(P)
MOVEI A,S494
PPUSH A
MOVEI A,<4-FS10-%P>(P)
PPUSH A
CCALL 3,Zcprin
L5039:
; LINE 612
PPUSH <0-FS10-%A-%P>(P)
MOVEI A,<4-FS10-%P>(P)
PPUSH A
CCALL 2,Zfngnm
; LINE 613
MOVEI A,<4-FS10-%P>(P)
PPUSH A
CCALL 1,Zslowe
; LINE 614
PPUSH <1-FS10-%P>(P)
MOVEI A,S498
PPUSH A
MOVEI A,<4-FS10-%P>(P)
PPUSH A
CCALL 3,Zcprin
; LINE 618
MOVE A,Zcflag
JUMPN A,L5041
MOVE A,Zgflag
JUMPN A,L5041
MOVE A,Zkflag
JUMPN A,L5041
MOVE A,Zxflag
JUMPN A,L5041
MOVE A,Zbflag
JUMPN A,L5041
MOVE A,Zsflag
JUMPE A,L5040
L5041:
; LINE 619
MOVE A,<2-FS10-%P>(P)
JUMPE A,L5042
PPUSH <1-FS10-%P>(P)
MOVEI A,S501
PPUSH A
CCALL 2,Zcprin
MOVEI A,0
MOVEM A,<2-FS10-%P>(P)
GO L5043
L5042:
PPUSH [32]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5043:
; LINE 620
MOVE A,Zcflag
JUMPE A,L5044
PPUSH [99]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5044:
; LINE 621
MOVE A,Zgflag
JUMPE A,L5045
PPUSH [103]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5045:
; LINE 622
MOVE A,Zkflag
JUMPE A,L5046
PPUSH [107]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5046:
; LINE 623
MOVE A,Zxflag
JUMPE A,L5047
PPUSH [120]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5047:
; LINE 624
MOVE A,Zbflag
JUMPE A,L5048
PPUSH [98]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5048:
; LINE 625
MOVE A,Zsflag
JUMPE A,L5049
PPUSH [115]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5049:
L5040:
; LINE 628
MOVE A,Zidebu
JUMPE A,L5050
; LINE 629
MOVE A,<2-FS10-%P>(P)
JUMPE A,L5051
PPUSH <1-FS10-%P>(P)
MOVEI A,S501
PPUSH A
CCALL 2,Zcprin
MOVEI A,0
MOVEM A,<2-FS10-%P>(P)
GO L5052
L5051:
PPUSH [32]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5052:
; LINE 630
PPUSH <1-FS10-%P>(P)
MOVEI A,S504
PPUSH A
MOVEI A,Zidebu
PPUSH A
CCALL 3,Zcprin
L5050:
; LINE 632
MOVE A,Ztarge
JUMPE A,L5053
; LINE 633
MOVE A,<2-FS10-%P>(P)
JUMPE A,L5054
PPUSH <1-FS10-%P>(P)
MOVEI A,S501
PPUSH A
CCALL 2,Zcprin
MOVEI A,0
MOVEM A,<2-FS10-%P>(P)
GO L5055
L5054:
PPUSH [32]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5055:
; LINE 634
PPUSH <1-FS10-%P>(P)
MOVEI A,S509
PPUSH A
MOVEI A,Ztarna
ADD A,Ztarge
PPUSH (A)
CCALL 3,Zcprin
L5053:
; LINE 636
MOVE A,<2-FS10-%P>(P)
JUMPN A,L5056
PPUSH [41]
PPUSH <1-FS10-%P>(P)
CCALL 2,Zcputc
L5056:
; LINE 638
PPUSH <1-FS10-%P>(P)
MOVEI A,S514
PPUSH A
CCALL 2,Zcprin
; LINE 639
MOVEI A,0
MOVEM A,<3-FS10-%P>(P)
L49:
MOVE A,<3-FS10-%P>(P)
CAIL A,7
GO L5057
PPUSH <3-FS10-%P>(P)
PPUSH <1-FS10-%P>(P)
CCALL 2,Zprpht
L48:
MOVEI A,1
ADDB A,<3-FS10-%P>(P)
GO L49
L5057:
L47:
; LINE 640
PPUSH <1-FS10-%P>(P)
CCALL 1,Zcclos
SUBI P,FS10+%A+1
GO @<%A+1>(P)
FS10==54-1
%A==2
%A,,[ASCIZ/prphtm/]
Zprpht: ADDI P,FS11
; LINE 651
MOVEI A,Zphspt
ADD A,<0-FS11-%A-%P>(P)
MOVE A,(A)
CAMN A,[-1]
GO L5058
; LINE 652
PPUSH <1-FS11-%A-%P>(P)
MOVEI A,Zphsnm
ADD A,<0-FS11-%A-%P>(P)
PPUSH (A)
CCALL 2,Zcprin
; LINE 653
MOVEI A,Zphsnm
ADD A,<0-FS11-%A-%P>(P)
MOVE A,(A)
MOVE A,1(A)
JUMPN A,L5059
PPUSH [32]
PPUSH <1-FS11-%A-%P>(P)
CCALL 2,Zcputc
L5059:
; LINE 654
PPUSH <1-FS11-%A-%P>(P)
MOVEI A,S517
PPUSH A
CCALL 2,Zcprin
; LINE 655
MOVEI A,Zphspt
ADD A,<0-FS11-%A-%P>(P)
PPUSH (A)
PPUSH <1-FS11-%A-%P>(P)
CCALL 2,Zpr60t
; LINE 656
PPUSH <1-FS11-%A-%P>(P)
MOVEI A,S521
PPUSH A
CCALL 2,Zcprin
; LINE 657
MOVEI A,Zphset
ADD A,<0-FS11-%A-%P>(P)
PPUSH (A)
PPUSH <1-FS11-%A-%P>(P)
CCALL 2,Zpr60t
; LINE 658
PPUSH [10]
PPUSH <1-FS11-%A-%P>(P)
CCALL 2,Zcputc
L5058:
SUBI P,FS11+%A+1
GO @<%A+1>(P)
FS11==1-1
%A==2
%A,,[ASCIZ/perasm/]
Zperas: ADDI P,FS12
; LINE 679
PPUSH <1-FS12-%A-%P>(P)
MOVEI A,<2-FS12-%P>(P)
PPUSH A
CCALL 2,Zstcpy
MOVEM A,<1-FS12-%P>(P)
; LINE 680
MOVEI A,S525
PPUSH A
PPUSH <1-FS12-%P>(P)
CCALL 2,Zstcpy
MOVEM A,<1-FS12-%P>(P)
; LINE 681
PPUSH <0-FS12-%A-%P>(P)
PPUSH <1-FS12-%P>(P)
CCALL 2,Zstcpy
MOVEM A,<1-FS12-%P>(P)
; LINE 682
MOVEI A,S529
PPUSH A
PPUSH <1-FS12-%P>(P)
CCALL 2,Zstcpy
MOVEM A,<1-FS12-%P>(P)
; LINE 686
MOVEI A,S534
PPUSH A
MOVEI A,<2-FS12-%P>(P)
PPUSH A
CCALL 2,Zexecs
JUMPE A,L5060
; LINE 687
MOVEI A,S548
PPUSH A
CCALL 1,Zcprin
; LINE 688
MOVEI A,1
SUBI P,FS12+%A+1
GO @<%A+1>(P)
L5060:
; LINE 693
PPUSH <1-FS12-%A-%P>(P)
MOVEI A,<2-FS12-%P>(P)
PPUSH A
CCALL 2,Zstcpy
MOVEM A,<1-FS12-%P>(P)
; LINE 694
MOVEI A,S569
PPUSH A
MOVE A,Ztarge
JUMPN A,L5061
MOVEI A,3
GO L5062
L5061:
MOVEI A,4
L5062:
MOVE C,<1-FS12-%P>(P)
SUB C,A
PPUSH C
CCALL 2,Zstcpy
MOVEM A,<1-FS12-%P>(P)
; LINE 698
MOVEI A,<2-FS12-%P>(P)
PPUSH A
PPUSH [114]
CCALL 2,Zcopen
MOVEM A,<102-FS12-%P>(P)
; LINE 699
MOVE A,<102-FS12-%P>(P)
CAMN A,[-1]
GO L5063
L51:
; LINE 701
PPUSH <102-FS12-%P>(P)
CCALL 1,Zcgetc
MOVEM A,<103-FS12-%P>(P)
JUMPLE A,L5064
; LINE 702
MOVE A,<103-FS12-%P>(P)
CAIE A,45
GO L5065
; LINE 703
PPUSH <102-FS12-%P>(P)
CCALL 1,Zcgetc
MOVEM A,<103-FS12-%P>(P)
; LINE 704
PPUSH <103-FS12-%P>(P)
CCALL 1,Zdigit
JUMPE A,L51
L53:
; LINE 705
PPUSH <103-FS12-%P>(P)
CCALL 1,Zdigit
JUMPE A,L5066
PPUSH <102-FS12-%P>(P)
CCALL 1,Zcgetc
MOVEM A,<103-FS12-%P>(P)
GO L53
L5066:
L52:
; LINE 706
MOVE A,<103-FS12-%P>(P)
CAIE A,9
GO L51
; LINE 707
MOVEI A,S573
PPUSH A
CCALL 1,Zcprin
; LINE 708
PPUSH <102-FS12-%P>(P)
CCALL 1,Zcclos
; LINE 709
MOVEI A,1
SUBI P,FS12+%A+1
GO @<%A+1>(P)
L5065:
GO L51
L5064:
L50:
; LINE 712
PPUSH <102-FS12-%P>(P)
CCALL 1,Zcclos
; LINE 713
MOVEI A,<2-FS12-%P>(P)
PPUSH A
CCALL 1,Zdelet
L5063:
; LINE 715
MOVEI A,0
SUBI P,FS12+%A+1
GO @<%A+1>(P)
SUBI P,FS12+%A+1
GO @<%A+1>(P)
FS12==104-1
%A==1
%A,,[ASCIZ/digit/]
Zdigit: ADDI P,FS13
; LINE 719
MOVE A,<0-FS13-%A-%P>(P)
CAIGE A,48
GO L5067
MOVE A,<0-FS13-%A-%P>(P)
CAILE A,57
GO L5067
MOVEI A,1
GO L5068
L5067:
MOVEI A,0
L5068:
SUBI P,FS13+%A+1
GO @<%A+1>(P)
SUBI P,FS13+%A+1
GO @<%A+1>(P)
FS13==1-1
%A==10
%A,,[ASCIZ/sconcat/]
Zsconc: ADDI P,FS14
; LINE 736
MOVE A,<0-FS14-%A-%P>(P)
MOVEM A,<3-FS14-%P>(P)
; LINE 737
MOVEI A,<2-FS14-%A-%P>(P)
MOVEM A,<1-FS14-%P>(P)
L55:
; LINE 739
SETO A,
ADDB A,<1-FS14-%A-%P>(P)
JUMPL A,L5069
; LINE 740
MOVEI B,1
MOVE A,<1-FS14-%P>(P)
ADDM B,<1-FS14-%P>(P)
MOVE A,(A)
MOVEM A,<2-FS14-%P>(P)
L57:
; LINE 741
MOVEI B,1
MOVE A,<2-FS14-%P>(P)
ADDM B,<2-FS14-%P>(P)
MOVE A,(A)
MOVEM A,<4-FS14-%P>(P)
JUMPE A,L5070
MOVEI B,1
MOVE A,<3-FS14-%P>(P)
ADDM B,<3-FS14-%P>(P)
MOVE C,<4-FS14-%P>(P)
MOVEM C,(A)
GO L57
L5070:
L56:
GO L55
L5069:
L54:
; LINE 744
MOVE A,<3-FS14-%P>(P)
MOVEI C,0
MOVEM C,(A)
; LINE 745
MOVE A,<0-FS14-%A-%P>(P)
SUBI P,FS14+%A+1
GO @<%A+1>(P)
SUBI P,FS14+%A+1
GO @<%A+1>(P)
FS14==5-1
%A==1
%A,,[ASCIZ/slower/]
Zslowe: ADDI P,FS15
L59:
; LINE 757
MOVE A,<0-FS15-%A-%P>(P)
MOVE A,(A)
MOVEM A,<1-FS15-%P>(P)
JUMPE A,L5071
MOVEI B,1
MOVE A,<0-FS15-%A-%P>(P)
ADDM B,<0-FS15-%A-%P>(P)
PPUSH <1-FS15-%P>(P)
MOVEM A,<2-FS15-%P>(P)
CCALL 1,Zlower
MOVE C,A
MOVE A,<2-FS15-%P>(P)
MOVEM C,(A)
GO L59
L5071:
L58:
SUBI P,FS15+%A+1
GO @<%A+1>(P)
FS15==3-1
.PDATA
CONSTANTS
END
Reference in New Issue View Git Blame Copy Permalink