mirror of
https://github.com/aap/pdp6.git
synced 2026-01-13 15:27:46 +00:00
47 lines
432 B
ArmAsm
47 lines
432 B
ArmAsm
P=17
|
|
TTY=120
|
|
|
|
|
|
PDLLEN=100
|
|
|
|
.=40
|
|
JRST 4,
|
|
JRST 4,
|
|
|
|
.=1000
|
|
ENTRY: JRST START
|
|
PDL: .=.+PDLLEN
|
|
SP: -PDLLEN,,PDL-1
|
|
|
|
START:
|
|
MOVE P,SP
|
|
PUSHJ P,GETCH
|
|
PUSHJ P,PUTCHR
|
|
MOVEI 0,"\n
|
|
PUSHJ P,PUTCHR
|
|
MOVEI 0,"a
|
|
PUSHJ P,PUTCHR
|
|
JRST 4,
|
|
|
|
GETCH:
|
|
CONI TTY,0
|
|
TRNN 0,40
|
|
JRST .-2
|
|
DATAI TTY,0
|
|
TRZ 0,200
|
|
POPJ P,
|
|
|
|
PUTCHR:
|
|
CONI TTY,1
|
|
TRNE 1,20
|
|
JRST .-2
|
|
IORI 0,200
|
|
DATAO TTY,0
|
|
CAIE 0,"\n|200
|
|
POPJ P,
|
|
MOVEI 0,"\r
|
|
JRST PUTCHR
|
|
|
|
STR:
|
|
"a
|