User:Abmarts/sandbox

stuff wabij21795 at bizatop dot com



r 1=08 r 6=02

r 061=0A   ; SVC New PSW



0200 41 20 03 00 ; LA 2,300

0204 50 20 00 48 ; ST 2,CAW 58 ?

0208 9C 00 00 01 ; SIO 1(0)

020C A0 00      ; SVC 0   A way to get the PSW / CC in old psw @ 0x20



0300 07 00 03 50  40 00 00 06 ; seek 0350

0308 31 00 03 51 40 00 00 05 ; find id equal

0310 08 00 03 08 40 00 00 01 ; tic 0308

0318 1d 00 03 60 20 00 12 34 ; write ckd

0350 00 00 00 00 00 03

0360 00 00 00 00 04 03 12 34