mirror of
https://github.com/aap/pdp6.git
synced 2026-01-13 23:37:09 +00:00
40 lines
374 B
ArmAsm
40 lines
374 B
ArmAsm
AC0==0
|
|
AC1==1
|
|
AC2==2
|
|
PDP==17
|
|
|
|
PTP==100
|
|
|
|
EXTERNAL PUTC,PUTS
|
|
EXTERNAL GETCH,GETC
|
|
|
|
ENTRY: JRST START
|
|
|
|
PDL: BLOCK 100
|
|
SP: XWD -100,PDL-1
|
|
|
|
START:
|
|
MOVE PDP,SP
|
|
|
|
MOVSI AC2,440700
|
|
HRRI AC2,MSG
|
|
PUSHJ PDP,PUTS
|
|
|
|
PUSHJ PDP,GETC
|
|
; CONO PTP,20
|
|
PUSHJ PDP,PTPUT
|
|
JRST .-2
|
|
|
|
HALT
|
|
|
|
PTPUT:
|
|
CONSZ PTP,20
|
|
JRST .-1
|
|
DATAO PTP,AC1
|
|
POPJ PDP,
|
|
|
|
MSG: ASCIZ /Hello, world!
|
|
yo! > /
|
|
|
|
END ENTRY
|