mirror of
https://github.com/PDP-10/PCC20.git
synced 2026-01-13 15:17:51 +00:00
136 lines
1.3 KiB
Plaintext
136 lines
1.3 KiB
Plaintext
TITLE c94
|
||
RADIX 10.
|
||
.INSRT <C>NC
|
||
|
||
.CODE
|
||
ENTRY Zatoi
|
||
.CODE
|
||
.PDATA
|
||
S0: 116
|
||
0
|
||
S2: 98
|
||
0
|
||
S4: 45
|
||
51
|
||
52
|
||
51
|
||
53
|
||
57
|
||
55
|
||
51
|
||
56
|
||
51
|
||
54
|
||
56
|
||
0
|
||
.CODE
|
||
|
||
%A==1
|
||
%A,,[ASCIZ/atoi/]
|
||
Zatoi: ADDI P,FS1
|
||
|
||
; LINE 32
|
||
|
||
SKIPE <0-FS1-%A-%P>(P)
|
||
GO L5000
|
||
MOVEI A,0
|
||
SUBI P,FS1+%A+1
|
||
GO @<%A+1>(P)
|
||
L5000:
|
||
|
||
; LINE 33
|
||
|
||
MOVEI A,0
|
||
MOVEM A,<1-FS1-%P>(P)
|
||
|
||
; LINE 34
|
||
|
||
MOVEI A,1
|
||
MOVEM A,<2-FS1-%P>(P)
|
||
L1:
|
||
|
||
; LINE 35
|
||
|
||
MOVE A,<0-FS1-%A-%P>(P)
|
||
MOVE A,(A)
|
||
CAIE A,45
|
||
GO L5001
|
||
MOVEI A,1
|
||
ADDB A,<0-FS1-%A-%P>(P)
|
||
MOVN A,<2-FS1-%P>(P)
|
||
MOVEM A,<2-FS1-%P>(P)
|
||
GO L1
|
||
L5001:
|
||
L0:
|
||
L3:
|
||
|
||
; LINE 36
|
||
|
||
MOVEI B,1
|
||
MOVE A,<0-FS1-%A-%P>(P)
|
||
ADDM B,<0-FS1-%A-%P>(P)
|
||
MOVE A,(A)
|
||
MOVEM A,<3-FS1-%P>(P)
|
||
CAIGE A,48
|
||
GO L5002
|
||
MOVE A,<3-FS1-%P>(P)
|
||
CAILE A,57
|
||
GO L5002
|
||
MOVE A,<1-FS1-%P>(P)
|
||
IMULI A,10
|
||
ADD A,<3-FS1-%P>(P)
|
||
SUBI A,48
|
||
MOVEM A,<1-FS1-%P>(P)
|
||
GO L3
|
||
L5002:
|
||
L2:
|
||
|
||
; LINE 37
|
||
|
||
MOVE A,<1-FS1-%P>(P)
|
||
JUMPGE A,L5003
|
||
|
||
; LINE 38
|
||
|
||
MOVN A,<1-FS1-%P>(P)
|
||
MOVEM A,<1-FS1-%P>(P)
|
||
|
||
; LINE 39
|
||
|
||
MOVE A,<1-FS1-%P>(P)
|
||
JUMPGE A,L5004
|
||
|
||
; LINE 40
|
||
|
||
MOVE A,<2-FS1-%P>(P)
|
||
JUMPLE A,L5005
|
||
MOVE A,<1-FS1-%P>(P)
|
||
ADDI A,1
|
||
MOVN A,A
|
||
SUBI P,FS1+%A+1
|
||
GO @<%A+1>(P)
|
||
GO L5006
|
||
L5005:
|
||
|
||
; LINE 41
|
||
|
||
MOVE A,<1-FS1-%P>(P)
|
||
SUBI P,FS1+%A+1
|
||
GO @<%A+1>(P)
|
||
L5006:
|
||
L5004:
|
||
L5003:
|
||
|
||
; LINE 43
|
||
|
||
MOVE A,<2-FS1-%P>(P)
|
||
IMUL A,<1-FS1-%P>(P)
|
||
SUBI P,FS1+%A+1
|
||
GO @<%A+1>(P)
|
||
SUBI P,FS1+%A+1
|
||
GO @<%A+1>(P)
|
||
FS1==4-1
|
||
.PDATA
|
||
CONSTANTS
|
||
END
|
||
|