Open larsbrinkhoff opened 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
@rcornwell's latest master branch passes this test.
Add a test to check that the CONO PI "hack hack" works.
Read this for details: http://pdp-6.net/asmhacks.html#pisystem