52 lines
799 B
Text
52 lines
799 B
Text
; in simh:
|
|
; simh> set console telnet=3333
|
|
; then invoke telnet to port 3333 on the simh systm
|
|
; simh> load test.bin
|
|
; simh> run
|
|
|
|
|
|
; initialize stack pointer
|
|
start: MOV #1000, R6
|
|
|
|
MOV #textstart, R0
|
|
CALL printstart
|
|
|
|
|
|
MOV #textfin, R0
|
|
CALL printstart
|
|
TRAP 7
|
|
|
|
; store copy of R0 on the stack
|
|
printstart: MOV R0,-(SP)
|
|
; store PSW (status register) on stack
|
|
MFPS -(SP)
|
|
|
|
; string ends with 0x00
|
|
print: TSTB (R0)
|
|
BEQ pdone
|
|
|
|
; put character in tty buffer
|
|
MOVB (R0), @#TTYTX
|
|
|
|
; wait for it to be transmitted
|
|
waittx: TSTB @#TTYST
|
|
BPL waittx
|
|
|
|
INC R0
|
|
JMP print
|
|
|
|
; retrieve stored r0, r1 and psw from stack
|
|
pdone: MTPS (SP)+
|
|
|
|
MOV (SP)+,R0
|
|
RET
|
|
|
|
make_raw
|
|
|
|
textstart: .ASCII "tester running...\r\n\x00"
|
|
textfin: .ASCII "tester finished\r\n\x00"
|
|
|
|
textbuffer: .BLKB 256.
|
|
|
|
TTYST = 177564
|
|
TTYTX = 177566
|