github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-18 07:52:52 +00:00
Code Issues Releases Wiki Activity

Numeric input.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-04-27 07:43:43 +02:00
parent 49db0693e6
commit 4e65eeffba
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/zil/zap.mid
View File

@@ -264,7 +264,7 @@ NAMLOP: ILDB A,B
NAMDON: CAIE A,^M
CAIN A,^J
JRST NOJCL
MOVEM B,FILPTR ;should be file spec start
MOVEM B,FILPTR ;should be file spec start
ILDB A,B
CAIL A,40
JRST .-2
@@ -3792,9 +3792,17 @@ STRIN1: ILDB C,B
JUMPE C,[POPJ P,]
JRST STRIN1
NUMIN: MOVEI B,42
AOS (P)
POPJ P,
NUMIN: AOS (P)
SETZ B,
NUMIN1: .IOT TYI,A
CAIN A,^M
POPJ P,
CAIL A,"0
CAILE A,"9
SOS (P)
IMUL B,10.
ADDI B,-"0(A)
JRST NUMIN1
NUMOUT: MOVE A,C
NUMOU1: IDIV B,A