mirror of
https://github.com/aap/pdp6.git
synced 2026-01-25 19:57:33 +00:00
committing old stuff
This commit is contained in:
16
code/main.s
16
code/main.s
@@ -10,7 +10,9 @@ PTP==100
|
||||
|
||||
EXTERN PUTC,PUTS
|
||||
EXTERN GETCH,GETC
|
||||
EXTERN PUTN
|
||||
EXTERN PTPUT
|
||||
EXTERN DTTEST
|
||||
|
||||
ENTRY: JRST START
|
||||
|
||||
@@ -19,16 +21,30 @@ SP: XWD -100,PDL-1
|
||||
|
||||
START: MOVE PDP,SP
|
||||
|
||||
;; NUMBER TEST
|
||||
; MOVE AC1,[-1234]
|
||||
; PUSHJ PDP,PUTN
|
||||
; MOVE AC1,[1234]
|
||||
; PUSHJ PDP,PUTN
|
||||
|
||||
;; DECTAPE TEST
|
||||
JRST DTTEST
|
||||
|
||||
;; UUO TEST
|
||||
; UUO1 123
|
||||
|
||||
;; ENABLE CLOCK PI ON CHANNEL 1
|
||||
; CONO CPA,2001
|
||||
;; ENABLE PI ON CHANNEL 1
|
||||
; CONO PRS,2300
|
||||
; JRST .
|
||||
|
||||
;; WRITE MESSAGE TO TTY
|
||||
MOVSI AC2,440700
|
||||
HRRI AC2,MSG
|
||||
PUSHJ PDP,PUTS
|
||||
|
||||
;; WRITE FROM TTY TO PTP
|
||||
PUSHJ PDP,GETC
|
||||
; CONO PTP,20
|
||||
PUSHJ PDP,PTPUT
|
||||
|
||||
Reference in New Issue
Block a user