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