000000000000: second test program, start in 8000000000000000 e107d10034000007 00000: SETMH $7,#d100; NEG $0,$7 % also PTE for page 0! f6120000fb000007 00008: PUT rV,$0; UNSAVE $7 % PTE for page 1; s=47, b1=15 e30200a0f60c0002 00010: SETL $2,160; PUT rI,$2 % can vary the delay f60d000025000018 00018: PUT rT,$0; SUB $0,$0,#18 % can change to #20 f60e0000f60f0001 00020: PUT rTT,$0; PUT rK,$1 9e00ff01f9000000 00028: GO $0,$255,$1; RESUME % all interrupts now enabled faff0000fb0000ff 00030: SAVE $255,0; UNSAVE $255 % optional extra torture feff0010f7100000 00038: GET $255,rQ; PUT rQ,0 % dynamic interrupt handler feff001c3fffff37 00040: GET $255,rWW; SRU $255,$255,55 25ffff01f9000001 00048: SUB $255,$255,1; RESUME 1 % rK=-1[rWW>=0]+255[rWW<0] feff001e3dffff2f 00050: GET $255,rYY; SR $255,$255,47 % static int handler 3bffff2fe5ff8000 00058: SLU $255,$255,47; INCMH $255,#8000 ecffffffebff0007 00060: ANDNH $255,#ffff; ORL $255,7 f61f00fff1fffff5 00068: PUT rZZ,$255; JMP @-44 f500fff8f60d0000 00070: GETA $0,@-32; PUT rT,$0 % special starting point 25000018f60e0000 00078: SUB $0,$0,#18; PUT rTT,$0 % can change to #20 f70c0064f1ffffdf 00080: PUT rI,100; JMP @-4*33 % can vary this delay too 50ffffffff78: bottom of the UNSAVE 8000000000000050 50f...f78: $0 (will be put into rT) ffffffffffffffff 50f...f80: $1 (-1) 0000000000000002 50f...f88: rL cccccccccccccccc 50f...f90: g254 0000800000000030 50f...f98: g255, one more than target of the GO 0000000000000000 50f...fa0: g0=rB 1111111111111111 50f...fa8: g1=rD 2222222222222222 50f...fb0: g2=rE 3333333333333333 50f...fb8: g3=rH 4444444444444444 50f...fc0: g4=rJ 5555555555555555 50f...fc8: g5=rM 6666666666666666 50f...fd0: g6=rR 7777777777777777 50f...fd8: g23=rP 0000000000000035 50f...fe0: g24=rW, where we continue after first RESUME 0100ca0017010203 50f...fe8: g25=rX, is RESUMEd to do FINT r1,rY,rZ cccccccccccccccc 50f...ff0: g26=rY 8888888888888888 50f...ff8: g27=rZ fe00000000034000 510...000: rG and rA; rounding down, V enabled 800000000020: stuff on page 0 feff00193bffff29 80...020: GET $255,rX; SLU $255,$255,41 % Vtrip handler f61900fffeff0000 80...028: PUT rX,$255; GET $255,rB f9000000fafe0000 80...030: RESUME; SAVE $254,0 5b00ff0017010203 80...038: PBNZ $0,@-4*256; FINT $1,$2,$3 % emulated a80100feff112233 80...040: STT $1,$0,$254; TRIP #11,#22,#33