search

PDP-10 / its

Incompatible Timesharing System
Other
846 stars 80 forks source link

Test for the CONO PI "hack hack" #1822

Open larsbrinkhoff opened 4 years ago

larsbrinkhoff commented 4 years ago

Add a test to check that the CONO PI "hack hack" works.

Read this for details: http://pdp-6.net/asmhacks.html#pisystem

larsbrinkhoff commented 4 years ago

Something like this.


       title cono pi hack hack test

apr==0
pi==4
tty==120

pia1=4
pia2=6

loc 40+2*pia1
        jsr win                       ;not this
        jsr lose                     ;should execute this

loc 40+2*pia2
        blko tty,blkop                        ;overflow here
        cono pi,4000+200_<-pia1>    ;trigger pia1 interrupt

loc 100
go:     cono apr,200000           ;i/o reset etc
        cono pi,12200+200_<-pia1>+200_<-pia2>    ;reset pi, enable channels, etc
        cono tty,pia2         ;assign pia2
        datao tty,["X]          ;output char, interrupt when done
        jrst .                   ;wait

lose:   halt .

win:   datao tty,["Z]
        halt .

blkop:  -1,,["Y]-1

end go
larsbrinkhoff commented 4 years ago

@rcornwell's latest master branch passes this test.