github.com/aap.pdp6
1
0
Fork 0
mirror of https://github.com/aap/pdp6.git synced 2026-01-27 04:32:36 +00:00
Code Issues Releases Wiki Activity

committing old stuff

Browse Source
This commit is contained in:
aap
2018-02-07 01:37:09 +01:00
parent a47c3c2bd4
commit 88875b87ce
17 changed files with 920 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
code/tty.s
View File

@@ -7,6 +7,7 @@ PDP==17
INTERNAL PUTC,PUTS
; PRINT CHAR IN AC1 ON TTY
PUTC:
CONSZ TTY,20 ; wait until not busy
JRST .-1
@@ -31,6 +32,7 @@ PUTS:
INTERNAL GETCH,GETC
; READ CHAR FROM TTY INTO AC1
GETCH:
CONSO TTY,40 ; wait for flag
JRST .-1
@@ -42,3 +44,24 @@ GETC:
PUSHJ PDP,GETCH
PUSHJ PDP,PUTC
POPJ PDP,
BASE: 10
DIGITS: EXP "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
; PRINT NUMBER IN AC!
INTERNAL PUTN
PUTN:
JUMPGE AC1,UPUTN
PUSH PDP,AC1
MOVEI AC1, "-"
PUSHJ PDP,PUTC
POP PDP,AC1
MOVM AC1,AC1
UPUTN:
IDIV AC1,BASE
JUMPE AC1,UPR1
PUSH PDP,AC2
PUSHJ PDP,UPUTN
POP PDP,AC2
UPR1:
MOVE AC1,DIGITS(AC2)
JRST PUTC