|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Names: »TEST_7.S«
└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 )
└─⟦56889de57⟧
└─ ⟦this⟧ »TEST_7.S«
0x0000…0020 50 52 4f 43 45 44 55 52 45 20 54 45 53 54 5f 37 20 28 52 36 29 3b 0a 22 2a 2a 2a 2a 2a 2a 2a 2a ┆PROCEDURE TEST_7 (R6); "********┆
0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 0a ┆***************************** ┆
0x0060…0080 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆"*******************************┆
0x0080…00a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00a0…00c0 2a 2a 2a 2a 2a 2a 0a 56 41 52 0a 53 41 56 45 3a 20 20 20 20 41 52 52 41 59 5b 30 2e 2e 37 5d 20 ┆****** VAR SAVE: ARRAY[0..7] ┆
0x00c0…00e0 4f 46 20 49 4e 54 45 47 45 52 3b 0a 41 44 52 5f 48 45 58 32 33 3a 20 20 20 20 20 49 4e 54 45 47 ┆OF INTEGER; ADR_HEX23: INTEG┆
0x00e0…0100 45 52 3b 0a 41 44 52 5f 48 45 58 33 43 3a 20 20 20 20 20 49 4e 54 45 47 45 52 3b 0a 43 5f 52 45 ┆ER; ADR_HEX3C: INTEGER; C_RE┆
0x0100…0120 43 4f 52 44 5f 41 52 52 41 59 3a 20 20 20 41 52 52 41 59 5b 30 2e 2e 23 31 30 5d 20 4f 46 20 49 ┆CORD_ARRAY: ARRAY[0..#10] OF I┆
0x0120…0140 4e 54 45 47 45 52 3b 0a 0a 0a 0a 4c 4f 47 5f 50 41 47 45 31 3a 20 20 20 20 20 49 4e 54 45 47 45 ┆NTEGER; LOG_PAGE1: INTEGE┆
0x0140…0160 52 3b 0a 4c 4f 43 41 4c 5f 43 4f 55 4e 54 3a 20 20 20 49 4e 54 45 47 45 52 3b 0a 0a 0a 4c 41 42 ┆R; LOCAL_COUNT: INTEGER; LAB┆
0x0160…0180 45 4c 20 54 49 4d 45 52 5f 52 45 45 4e 54 52 59 3b 0a 0a 0a 42 45 47 49 4e 0a 52 37 3d 3e 53 41 ┆EL TIMER_REENTRY; BEGIN R7=>SA┆
0x0180…01a0 56 45 5b 37 5d 3b 0a 53 54 43 28 36 2c 41 44 44 52 45 53 53 28 53 41 56 45 5b 37 5d 29 3d 3e 52 ┆VE[7]; STC(6,ADDRESS(SAVE[7])=>R┆
0x01a0…01c0 37 29 3b 0a 4f 55 54 4e 45 57 4c 49 4e 45 28 52 36 29 3b 0a 4f 55 54 54 45 58 54 28 41 44 44 52 ┆7); OUTNEWLINE(R6); OUTTEXT(ADDR┆
0x01c0…01e0 45 53 53 28 27 54 45 53 54 20 37 20 52 55 4e 4e 49 4e 47 20 28 3a 30 3a 29 27 29 3d 3e 52 33 2c ┆ESS('TEST 7 RUNNING (:0:)')=>R3,┆
0x01e0…0200 52 36 29 3b 0a 4f 55 54 4e 45 57 4c 49 4e 45 28 52 36 29 3b 0a 46 4c 55 53 48 4f 55 54 28 52 36 ┆R6); OUTNEWLINE(R6); FLUSHOUT(R6┆
0x0200…0220 29 3b 0a 0a 0a 0a 20 20 20 20 43 4f 55 4e 54 3d 3e 52 30 3d 3e 4c 4f 43 41 4c 5f 43 4f 55 4e 54 ┆); COUNT=>R0=>LOCAL_COUNT┆
0x0220…0240 3b 0a 20 20 20 20 57 48 49 4c 45 20 4c 4f 43 41 4c 5f 43 4f 55 4e 54 3d 3e 52 30 20 3c 3e 30 20 ┆; WHILE LOCAL_COUNT=>R0 <>0 ┆
0x0240…0260 44 4f 0a 20 20 20 20 42 45 47 49 4e 0a 0a 22 4d 41 50 20 49 4e 20 4c 4f 47 5f 50 52 4f 47 5f 50 ┆DO BEGIN "MAP IN LOG_PROG_P┆
0x0260…0280 41 47 45 30 20 41 53 20 44 41 54 41 50 41 47 45 20 31 0a 0a 0a 20 20 20 20 23 30 46 43 30 3d 3e ┆AGE0 AS DATAPAGE 1 #0FC0=>┆
0x0280…02a0 52 31 3b 0a 20 20 20 20 53 49 4f 28 52 30 2c 52 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R1; SIO(R0,R1); ┆
0x02a0…02c0 20 20 20 20 20 20 20 22 52 45 41 44 20 50 48 50 41 47 45 20 4f 46 20 4c 4f 47 50 52 4f 47 50 41 ┆ "READ PHPAGE OF LOGPROGPA┆
0x02c0…02e0 47 45 20 30 0a 20 20 20 20 23 30 46 41 30 3d 3e 52 31 3b 0a 20 20 20 20 43 41 44 3b 0a 20 20 20 ┆GE 0 #0FA0=>R1; CAD; ┆
0x02e0…0300 20 43 49 4f 28 52 30 2c 52 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CIO(R0,R1); ┆
0x0300…0320 22 4d 41 50 20 49 4e 20 54 48 49 53 20 50 48 50 41 47 45 20 41 53 20 4c 4f 47 44 41 54 41 50 41 ┆"MAP IN THIS PHPAGE AS LOGDATAPA┆
0x0320…0340 47 45 20 32 30 0a 20 20 20 20 49 46 20 44 49 43 41 3d 3e 52 30 3d 30 20 54 48 45 4e 20 43 41 45 ┆GE 20 IF DICA=>R0=0 THEN CAE┆
0x0340…0360 3b 0a 0a 0a 20 20 20 20 22 53 41 56 45 20 4c 4f 47 50 52 4f 47 4c 4f 43 41 54 49 4f 4e 53 20 48 ┆; "SAVE LOGPROGLOCATIONS H┆
0x0360…0380 45 58 20 32 33 20 41 4e 44 20 48 45 58 20 33 43 0a 0a 20 20 20 20 23 38 30 32 33 3d 3e 52 37 3b ┆EX 23 AND HEX 3C #8023=>R7;┆
0x0380…03a0 0a 20 20 20 20 52 37 40 49 4e 54 45 47 45 52 3d 3e 52 30 3d 3e 41 44 52 5f 48 45 58 32 33 3b 0a ┆ R7@INTEGER=>R0=>ADR_HEX23; ┆
0x03a0…03c0 20 20 20 20 23 38 30 33 43 3d 3e 52 37 3b 0a 20 20 20 20 52 37 40 49 4e 54 45 47 45 52 3d 3e 52 ┆ #803C=>R7; R7@INTEGER=>R┆
0x03c0…03e0 30 3d 3e 41 44 52 5f 48 45 58 33 43 3b 0a 0a 0a 20 20 20 20 23 38 30 32 33 3d 3e 52 37 3b 0a 20 ┆0=>ADR_HEX3C; #8023=>R7; ┆
0x03e0…0400 20 20 20 23 30 3d 3e 52 31 3b 0a 20 20 20 20 52 31 3d 3e 52 37 40 49 4e 54 45 47 45 52 3b 0a 0a ┆ #0=>R1; R1=>R7@INTEGER; ┆
0x0400…0420 20 20 20 20 23 38 30 33 43 3d 3e 52 37 3b 0a 20 20 20 20 4c 4f 43 41 54 49 4f 4e 28 54 49 4d 45 ┆ #803C=>R7; LOCATION(TIME┆
0x0420…0440 52 5f 52 45 45 4e 54 52 59 29 3d 3e 52 30 3b 0a 20 20 20 20 52 30 3d 3e 52 37 40 49 4e 54 45 47 ┆R_REENTRY)=>R0; R0=>R7@INTEG┆
0x0440…0460 45 52 3b 0a 0a 0a 0a 0a 20 20 20 20 4b 4f 4e 54 52 4f 4c 3d 3e 52 30 20 45 58 54 52 41 43 54 20 ┆ER; KONTROL=>R0 EXTRACT ┆
0x0460…0480 31 3b 0a 20 20 20 20 49 46 20 52 30 3d 31 20 54 48 45 4e 20 43 41 44 3b 0a 0a 0a 0a 22 49 4e 49 ┆1; IF R0=1 THEN CAD; "INI┆
0x0480…04a0 54 49 41 4c 49 5a 45 20 44 50 36 33 0a 0a 20 20 20 20 23 46 46 44 44 3d 3e 52 37 3b 0a 20 20 20 ┆TIALIZE DP63 #FFDD=>R7; ┆
0x04a0…04c0 20 23 46 46 30 30 3d 3e 52 30 3b 0a 20 20 20 20 52 30 3d 3e 52 37 40 49 4e 54 45 47 45 52 3b 0a ┆ #FF00=>R0; R0=>R7@INTEGER; ┆
0x04c0…04e0 0a 20 20 20 20 23 46 46 44 45 3d 3e 52 37 3b 0a 20 20 20 20 23 46 30 30 30 3d 3e 52 30 3d 3e 52 ┆ #FFDE=>R7; #F000=>R0=>R┆
0x04e0…0500 37 40 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 20 23 46 46 44 46 3d 3e 52 37 3b 0a 20 20 20 20 23 ┆7@INTEGER; #FFDF=>R7; #┆
0x0500…0520 46 46 30 30 3d 3e 52 30 3d 3e 52 37 40 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 20 23 31 30 3d 3e ┆FF00=>R0=>R7@INTEGER; #10=>┆
0x0520…0540 52 32 3b 0a 20 20 20 20 30 3d 3e 52 30 3b 0a 20 20 20 20 23 46 46 46 30 3d 3e 52 37 3b 0a 20 20 ┆R2; 0=>R0; #FFF0=>R7; ┆
0x0540…0560 20 20 23 33 46 33 45 3d 3e 52 31 3b 0a 20 20 20 20 57 48 49 4c 45 20 52 30 3c 3e 52 32 20 44 4f ┆ #3F3E=>R1; WHILE R0<>R2 DO┆
0x0560…0580 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0a 20 20 20 20 20 20 20 20 52 31 3d 3e 52 37 40 49 4e ┆ BEGIN R1=>R7@IN┆
0x0580…05a0 54 45 47 45 52 3b 0a 20 20 20 20 20 20 20 20 52 30 2b 31 3b 0a 20 20 20 20 20 20 20 20 52 37 2b ┆TEGER; R0+1; R7+┆
0x05a0…05c0 31 3b 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0a 0a 0a 0a 0a 0a 20 20 20 20 4b 4f 4e 54 52 4f 4c ┆1; END; KONTROL┆
0x05c0…05e0 3d 3e 52 30 20 45 58 54 52 41 43 54 20 32 3b 0a 20 20 20 20 52 30 20 53 48 49 46 54 52 4c 20 31 ┆=>R0 EXTRACT 2; R0 SHIFTRL 1┆
0x05e0…0600 3b 0a 20 20 20 20 49 46 20 52 30 3d 31 20 54 48 45 4e 20 43 41 44 3b 0a 0a 0a 0a 20 20 20 20 23 ┆; IF R0=1 THEN CAD; #┆
0x0600…0620 31 32 33 34 3d 3e 52 30 3d 3e 52 31 3d 3e 52 32 3d 3e 52 33 3d 3e 52 34 3d 3e 52 35 3d 3e 52 36 ┆1234=>R0=>R1=>R2=>R3=>R4=>R5=>R6┆
0x0620…0640 3d 3e 52 37 3b 0a 0a 0a 0a 20 20 20 20 30 3d 3e 52 34 3b 0a 20 20 20 20 4c 44 54 28 52 34 29 3b ┆=>R7; 0=>R4; LDT(R4);┆
0x0640…0660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 54 49 4d 45 52 3a 3d 30 ┆ "TIMER:=0┆
0x0660…0680 0a 0a 20 20 20 20 57 48 49 4c 45 20 52 34 3d 30 20 44 4f 20 53 56 54 28 52 34 29 3b 20 20 20 20 ┆ WHILE R4=0 DO SVT(R4); ┆
0x0680…06a0 20 20 20 20 20 22 57 41 49 54 20 55 4e 54 49 4c 20 54 49 4d 45 52 20 49 53 20 4e 45 47 41 54 49 ┆ "WAIT UNTIL TIMER IS NEGATI┆
0x06a0…06c0 56 45 0a 0a 20 20 20 20 53 56 53 28 52 32 29 3b 0a 20 20 20 20 52 32 20 45 58 54 52 41 43 54 20 ┆VE SVS(R2); R2 EXTRACT ┆
0x06c0…06e0 23 46 3b 0a 20 20 20 20 4c 44 53 28 52 32 29 3b 0a 0a 0a 0a 0a 0a 20 20 20 20 4b 4f 4e 54 52 4f ┆#F; LDS(R2); KONTRO┆
0x06e0…0700 4c 3d 3e 52 30 3b 0a 20 20 20 20 52 30 20 45 58 54 52 41 43 54 20 33 3b 0a 20 20 20 20 52 30 20 ┆L=>R0; R0 EXTRACT 3; R0 ┆
0x0700…0720 53 48 49 46 54 52 4c 20 32 3b 0a 20 20 20 20 49 46 20 52 30 3d 31 20 54 48 45 4e 20 43 41 44 3b ┆SHIFTRL 2; IF R0=1 THEN CAD;┆
0x0720…0740 0a 0a 0a 0a 0a 22 20 20 20 20 52 43 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ " RCR; ┆
0x0740…0760 20 20 20 20 20 20 20 20 20 49 46 20 54 48 45 20 43 41 43 48 45 20 57 41 53 20 45 4e 41 42 4c 45 ┆ IF THE CACHE WAS ENABLE┆
0x0760…0780 44 2c 20 49 54 20 49 53 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D, IT IS " ┆
0x0780…07a0 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 41 42 4c 45 44 20 41 54 20 54 48 45 20 54 49 4d ┆ DISABLED AT THE TIM┆
0x07a0…07c0 45 52 20 49 4e 54 45 52 52 55 50 54 2c 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ER INTERRUPT, " ┆
0x07c0…07e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 56 49 43 45 20 56 45 52 53 41 ┆ AND VICE VERSA┆
0x07e0…0800 0a 22 0a 22 20 20 20 20 52 30 20 53 48 49 46 54 52 4c 20 23 46 3b 0a 22 20 20 20 20 49 46 20 52 ┆ " " R0 SHIFTRL #F; " IF R┆
0x0800…0820 30 3d 30 20 54 48 45 4e 0a 22 20 20 20 20 20 20 20 20 42 45 47 49 4e 0a 22 20 20 20 20 20 20 20 ┆0=0 THEN " BEGIN " ┆
0x0820…0840 20 43 41 45 3b 0a 22 20 20 20 20 20 20 20 20 45 4e 44 0a 22 20 20 20 20 45 4c 53 45 0a 22 20 20 ┆ CAE; " END " ELSE " ┆
0x0840…0860 20 20 20 20 20 20 42 45 47 49 4e 0a 22 20 20 20 20 20 20 20 20 43 41 44 3b 0a 22 20 20 20 20 20 ┆ BEGIN " CAD; " ┆
0x0860…0880 20 20 20 45 4e 44 3b 0a 0a 0a 0a 0a 0a 0a 0a 0a 20 20 20 20 4b 4f 4e 54 52 4f 4c 3d 3e 52 30 20 ┆ END; KONTROL=>R0 ┆
0x0880…08a0 45 58 54 52 41 43 54 20 34 3b 0a 20 20 20 20 52 30 20 53 48 49 46 54 52 4c 20 33 3b 0a 20 20 20 ┆EXTRACT 4; R0 SHIFTRL 3; ┆
0x08a0…08c0 20 49 46 20 52 30 3d 31 20 54 48 45 4e 20 43 41 44 3b 0a 0a 0a 0a 20 20 20 20 57 48 49 4c 45 20 ┆ IF R0=1 THEN CAD; WHILE ┆
0x08c0…08e0 52 30 3d 52 30 20 44 4f 0a 20 20 20 20 42 45 47 49 4e 0a 20 20 20 20 20 20 20 20 23 38 30 30 30 ┆R0=R0 DO BEGIN #8000┆
0x08e0…0900 3d 3e 52 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 54 48 49 53 20 43 4f 44 45 ┆=>R0; "THIS CODE┆
0x0900…0920 20 44 49 53 41 53 53 45 4d 42 4c 45 44 20 42 45 43 4f 4d 45 53 3a 0a 20 20 20 20 20 20 20 20 20 ┆ DISASSEMBLED BECOMES: ┆
0x0920…0940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 38 30 35 36 ┆ " 8056┆
0x0940…0960 20 20 20 20 20 20 20 4d 4f 44 38 20 38 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MOD8 80 ┆
0x0960…0980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 30 30 34 38 20 20 20 20 20 20 20 4d ┆ " 0048 M┆
0x0980…09a0 4f 56 43 20 30 20 2d 3e 52 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OVC 0 ->R0 ┆
0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 38 30 35 36 20 20 20 20 20 20 20 4d 4f 44 38 20 ┆ " 8056 MOD8 ┆
0x09c0…09e0 38 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆80 ┆
0x09e0…0a00 20 20 20 20 20 20 22 20 30 30 34 39 20 20 20 20 20 20 20 4d 4f 56 43 20 30 20 2d 3e 52 31 0a 20 ┆ " 0049 MOVC 0 ->R1 ┆
0x0a00…0a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a20…0a40 20 20 22 20 30 31 38 41 20 20 20 20 20 20 20 41 44 44 20 52 30 20 52 31 0a 20 20 20 20 20 20 20 ┆ " 018A ADD R0 R1 ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 44 32 ┆ " D2┆
0x0a60…0a80 42 43 20 20 20 20 20 20 20 53 56 53 20 52 32 0a 0a 0a 0a 20 20 20 20 20 20 20 20 23 38 30 30 30 ┆BC SVS R2 #8000┆
0x0a80…0aa0 3d 3e 52 31 3b 0a 20 20 20 20 20 20 20 20 52 31 2b 52 30 3b 0a 20 20 20 20 20 20 20 20 53 56 53 ┆=>R1; R1+R0; SVS┆
0x0aa0…0ac0 28 52 32 29 3b 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0a 0a 0a 0a 0a 54 49 4d 45 52 5f 52 45 45 ┆(R2); END; TIMER_REE┆
0x0ac0…0ae0 4e 54 52 59 3a 0a 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b ┆NTRY: NOP; NOP;┆
0x0ae0…0b00 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 ┆ NOP; NOP; ┆
0x0b00…0b20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 0a 0a 0a 20 20 20 20 4b 4f 4e 54 ┆ NOP; NOP; KONT┆
0x0b20…0b40 52 4f 4c 3d 3e 52 30 20 45 58 54 52 41 43 54 20 35 3b 0a 20 20 20 20 52 30 20 53 48 49 46 54 52 ┆ROL=>R0 EXTRACT 5; R0 SHIFTR┆
0x0b40…0b60 4c 20 34 3b 0a 20 20 20 20 49 46 20 52 30 3d 31 20 54 48 45 4e 20 43 41 44 3b 0a 0a 0a 20 20 20 ┆L 4; IF R0=1 THEN CAD; ┆
0x0b60…0b80 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e ┆ NOP; NOP; N┆
0x0b80…0ba0 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 ┆OP; NOP; NOP; ┆
0x0ba0…0bc0 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 ┆ NOP; NOP; ┆
0x0bc0…0be0 4e 4f 50 3b 0a 20 20 20 20 20 20 20 20 4e 4f 50 3b 0a 20 20 20 20 22 52 45 45 53 54 41 42 4c 49 ┆NOP; NOP; "REESTABLI┆
0x0be0…0c00 53 48 20 4c 4f 47 50 52 4f 47 4c 4f 43 41 54 49 4f 4e 53 20 48 45 58 20 32 33 20 41 4e 44 20 48 ┆SH LOGPROGLOCATIONS HEX 23 AND H┆
0x0c00…0c20 45 58 20 33 43 0a 0a 20 20 20 20 41 44 52 5f 48 45 58 32 33 3d 3e 52 36 3b 0a 20 20 20 20 23 38 ┆EX 3C ADR_HEX23=>R6; #8┆
0x0c20…0c40 30 32 33 3d 3e 52 37 3b 0a 20 20 20 20 52 36 3d 3e 52 37 40 49 4e 54 45 47 45 52 3b 0a 0a 20 20 ┆023=>R7; R6=>R7@INTEGER; ┆
0x0c40…0c60 20 20 41 44 52 5f 48 45 58 33 43 3d 3e 52 36 3b 0a 20 20 20 20 23 38 30 33 43 3d 3e 52 37 3b 0a ┆ ADR_HEX3C=>R6; #803C=>R7; ┆
0x0c60…0c80 20 20 20 20 52 36 3d 3e 52 37 40 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 20 22 52 45 47 49 53 54 ┆ R6=>R7@INTEGER; "REGIST┆
0x0c80…0ca0 45 52 53 20 49 4e 20 54 48 45 20 43 4f 4e 54 45 58 54 20 52 45 43 4f 52 44 20 43 4f 4e 54 41 49 ┆ERS IN THE CONTEXT RECORD CONTAI┆
0x0ca0…0cc0 4e 53 3a 0a 20 20 20 20 22 52 30 3d 4f 50 31 20 41 54 20 41 44 44 0a 20 20 20 20 22 52 31 3d 44 ┆NS: "R0=OP1 AT ADD "R1=D┆
0x0cc0…0ce0 45 53 54 49 4e 41 54 49 4f 4e 20 41 54 20 41 44 44 20 28 52 31 3a 3d 52 31 2b 52 30 29 0a 20 20 ┆ESTINATION AT ADD (R1:=R1+R0) ┆
0x0ce0…0d00 20 20 22 52 32 3d 50 53 57 20 41 46 54 45 52 20 53 56 53 0a 20 20 20 20 22 52 33 3d 4a 55 4e 4b ┆ "R2=PSW AFTER SVS "R3=JUNK┆
0x0d00…0d20 0a 20 20 20 20 22 52 34 3d 54 49 4d 45 52 0a 20 20 20 20 22 52 35 3d 4a 55 4e 4b 0a 20 20 20 20 ┆ "R4=TIMER "R5=JUNK ┆
0x0d20…0d40 22 52 36 3d 4a 55 4e 4b 0a 20 20 20 20 22 52 37 3d 4a 55 4e 4b 0a 20 20 20 20 22 1b 0a 0a 20 20 ┆"R6=JUNK "R7=JUNK " ┆
0x0d40…0d60 20 20 22 44 55 4d 50 20 43 4f 4e 54 45 58 54 52 45 43 4f 52 44 2c 20 52 45 45 53 54 41 42 4c 49 ┆ "DUMP CONTEXTRECORD, REESTABLI┆
0x0d60…0d80 53 48 20 43 4f 4e 54 45 58 54 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 0a 0a 0a 0a 0a 20 20 20 ┆SH CONTEXT STACK POINTER ┆
0x0d80…0da0 20 4b 4f 4e 54 52 4f 4c 3d 3e 52 30 20 45 58 54 52 41 43 54 20 36 3b 0a 20 20 20 20 52 30 20 53 ┆ KONTROL=>R0 EXTRACT 6; R0 S┆
0x0da0…0dc0 48 49 46 54 52 4c 20 35 3b 0a 20 20 20 20 49 46 20 52 30 3d 31 20 54 48 45 4e 20 43 41 44 3b 0a ┆HIFTRL 5; IF R0=1 THEN CAD; ┆
0x0dc0…0de0 0a 0a 20 20 20 20 23 46 46 44 44 3d 3e 52 37 3b 0a 20 20 20 20 52 37 40 49 4e 54 45 47 45 52 3d ┆ #FFDD=>R7; R7@INTEGER=┆
0x0de0…0e00 3e 52 36 3b 0a 20 20 20 20 30 3d 3e 52 30 3b 0a 20 20 20 20 23 31 30 3d 3e 52 32 3b 0a 0a 0a 20 ┆>R6; 0=>R0; #10=>R2; ┆
0x0e00…0e20 20 20 20 57 48 49 4c 45 20 52 30 3c 3e 52 32 20 44 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WHILE R0<>R2 DO ┆
0x0e20…0e40 20 20 22 52 45 41 44 20 43 4f 4e 54 45 58 54 52 45 43 4f 52 44 20 3d 3e 20 43 5f 52 45 43 4f 52 ┆ "READ CONTEXTRECORD => C_RECOR┆
0x0e40…0e60 44 5f 41 52 52 41 59 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0a 20 20 20 20 20 20 20 20 52 36 ┆D_ARRAY BEGIN R6┆
0x0e60…0e80 40 49 4e 54 45 47 45 52 3d 3e 43 5f 52 45 43 4f 52 44 5f 41 52 52 41 59 5b 52 30 5d 3b 0a 20 20 ┆@INTEGER=>C_RECORD_ARRAY[R0]; ┆
0x0e80…0ea0 20 20 20 20 20 20 52 36 40 49 4e 54 45 47 45 52 3d 3e 52 37 3d 3e 52 45 53 55 4c 54 53 5b 52 30 ┆ R6@INTEGER=>R7=>RESULTS[R0┆
0x0ea0…0ec0 5d 3b 0a 20 20 20 20 20 20 20 20 52 30 2b 31 3b 0a 20 20 20 20 20 20 20 20 52 36 2b 31 3b 0a 20 ┆]; R0+1; R6+1; ┆
0x0ec0…0ee0 20 20 20 20 20 20 20 45 4e 44 3b 0a 0a 0a 0a 20 20 20 20 23 46 46 44 44 3d 3e 52 37 3b 20 20 20 ┆ END; #FFDD=>R7; ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 52 45 45 53 54 41 42 4c 49 53 48 20 43 ┆ "REESTABLISH C┆
0x0f00…0f20 4f 4e 54 45 58 54 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 0a 20 20 20 20 23 46 46 30 30 3d 3e ┆ONTEXT STACK POINTER #FF00=>┆
0x0f20…0f40 52 37 40 49 4e 54 45 47 45 52 3b 0a 0a 0a 20 20 20 20 49 46 20 28 4f 55 54 5f 45 4e 41 42 4c 45 ┆R7@INTEGER; IF (OUT_ENABLE┆
0x0f40…0f60 3d 3e 52 30 29 3d 31 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0a 20 20 20 20 20 ┆=>R0)=1 THEN BEGIN ┆
0x0f60…0f80 20 20 20 22 44 55 4d 50 20 43 4f 4e 54 45 58 54 20 52 45 43 4f 52 44 0a 0a 20 20 20 20 20 20 20 ┆ "DUMP CONTEXT RECORD ┆
0x0f80…0fa0 20 4f 55 54 4e 45 57 4c 49 4e 45 28 52 36 29 3b 0a 20 20 20 20 20 20 20 20 4f 55 54 54 45 58 54 ┆ OUTNEWLINE(R6); OUTTEXT┆
0x0fa0…0fc0 28 41 44 44 52 45 53 53 28 27 20 20 52 30 20 20 20 52 31 20 20 20 52 32 20 20 20 52 33 20 20 20 ┆(ADDRESS(' R0 R1 R2 R3 ┆
0x0fc0…0fe0 52 34 20 20 20 52 35 20 20 20 52 36 20 20 20 52 37 20 20 20 28 3a 30 3a 29 27 29 3d 3e 52 33 2c ┆R4 R5 R6 R7 (:0:)')=>R3,┆
0x0fe0…1000 52 36 29 3b 0a 20 20 20 20 20 20 20 20 4f 55 54 4e 45 57 4c 49 4e 45 28 52 36 29 3b 0a 20 20 20 ┆R6); OUTNEWLINE(R6); ┆