mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-19 02:11:05 +02:00
123 lines
3.2 KiB
Plaintext
123 lines
3.2 KiB
Plaintext
#----------------------------------------------------
|
|
|
|
msglvl -debug
|
|
|
|
defsym devnum 0180 # CUU of tape drive
|
|
|
|
panrate fast
|
|
stopall
|
|
|
|
mainsize 8m
|
|
sysclear
|
|
|
|
archmode S/370
|
|
sysreset
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 00=0000000000000200 # restart new psw
|
|
r 28=000A00000000DEAD # program check new psw
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 200=4110$(devnum) # R1 = device address
|
|
|
|
r 204=4120021C # r2 -> i/o interupt rtn
|
|
r 208=5020007C # store into i/o new psw
|
|
|
|
r 20C=41200500 # R2 -> channel program
|
|
r 210=50200048 # store into caw
|
|
r 214=9C001000 # sio 0(r1)
|
|
r 218=82000400 # wait for i/o interrupt
|
|
|
|
r 21C=D50300440300 # expected csw?
|
|
r 222=4770024C # no, error
|
|
|
|
r 226=4120023E # r2 -> i/o interupt rtn
|
|
r 22A=5020007C # store into i/o new psw
|
|
|
|
r 22E=41200570 # R2 -> channel program
|
|
r 232=50200048 # store into caw
|
|
r 236=9C001000 # sio 0(r1)
|
|
r 23A=82000400 # wait for i/o interrupt
|
|
|
|
r 23E=D50300440304 # expected csw?
|
|
r 244=4770024C # no, error
|
|
|
|
r 248=82000408 # yes, load okay psw
|
|
r 24C=82000410 # no, load bad psw
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 300=0D000010 # eof csw
|
|
r 304=0C000000 # good csw
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 400=020A000000000000 # enabled for i/o psw
|
|
r 408=000A000000AAAAAA # OK disabled wait psw
|
|
r 410=000A000000BADBAD # BAD disabled wait psw
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 500=07020C7860000000 # rewind SLI + CC
|
|
|
|
r 508=01020D38E000F000 # write SLI + CC + CD
|
|
r 510=0102FD38E000F000 # write SLI + CC + CD
|
|
r 518=0103ED38E000F000 # write SLI + CC + CD
|
|
r 520=0104DD386000F000 # write SLI + CC
|
|
|
|
r 528=1F020CC060000000 # wtm SLI + CC
|
|
r 530=1F020CC060000000 # wtm SLI + CC
|
|
r 538=1F020CC060000000 # wtm SLI + CC
|
|
r 540=07020C7860000000 # rewind SLI + CC
|
|
|
|
r 548=02120D38E000F000 # read SLI + CC + CD
|
|
r 550=0212FD38E000F000 # read SLI + CC + CD
|
|
r 558=0213ED38E000F000 # read SLI + CC + CD
|
|
r 560=0214DD386000F000 # read SLI + CC
|
|
|
|
r 568=02120C7860000010 # read SLI + CC **UE**
|
|
|
|
r 570=0720000020000000 # rewind SLI
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 020D38=11111111111111111111111111111111
|
|
r 02FD38=22222222222222222222222222222222
|
|
r 03ED38=33333333333333333333333333333333
|
|
r 04DD38=44444444444444444444444444444444
|
|
r 05CD38=FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
|
|
|
|
r 120D38=BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
|
|
r 12FD38=BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
|
|
r 13ED38=BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
|
|
r 14DD38=BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
|
|
r 15CD38=FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
|
|
|
|
r 200000=FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
|
|
|
|
#----------------------------------------------------
|
|
|
|
t+$(devnum)
|
|
restart
|
|
pause 1
|
|
|
|
#----------------------------------------------------
|
|
|
|
r 020D38.10
|
|
r 02FD38.10
|
|
r 03ED38.10
|
|
r 04DD38.10
|
|
r 05CD38.10
|
|
|
|
r 120D38.10
|
|
r 12FD38.10
|
|
r 13ED38.10
|
|
r 14DD38.10
|
|
r 15CD38.10
|
|
|
|
r 200000.10
|
|
|
|
#----------------------------------------------------
|