|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12288 (0x3000)
Names: »MMKA3«
└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
└─ ⟦this⟧ »/MMKA3«
0x0000…0020 0d 0c 20 30 30 30 31 20 55 43 41 30 31 20 44 4f 4d 55 53 20 4d 41 43 52 4f 20 41 53 53 45 4d 42 ┆ 0001 UCA01 DOMUS MACRO ASSEMB┆
0x0020…0040 4c 45 52 20 52 45 56 20 30 32 2e 30 30 0d 0a 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LER REV 02.00 01 ┆
0x0040…0060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 44 45 31 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PRDE1 ┆
0x0060…0080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 50 72 6f 67 72 61 6d 20 68 65 61 64 20 4d 4d ┆ ; Program head MM┆
0x0080…00a0 2d 31 31 30 39 38 31 20 0d 0a 30 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 ┆-110981 02 ┆
0x00a0…00c0 20 20 20 20 20 20 20 20 20 20 20 20 2e 54 49 54 4c 20 20 20 55 43 41 30 31 20 20 20 3b 20 55 53 ┆ .TITL UCA01 ; US┆
0x00c0…00e0 45 52 2d 43 4f 44 45 44 20 53 55 42 52 4f 55 54 49 4e 45 53 20 20 20 37 38 2e 30 35 2e 30 31 0d ┆ER-CODED SUBROUTINES 78.05.01 ┆
0x00e0…0100 0a 30 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 4e 52 45 4c 0d 0a 30 35 20 20 20 20 20 20 ┆ 04 .NREL 05 ┆
0x0100…0120 20 30 30 30 30 31 32 20 2e 52 44 58 20 20 20 20 31 30 20 20 20 20 20 20 3b 20 52 41 44 49 58 20 ┆ 000012 .RDX 10 ; RADIX ┆
0x0120…0140 31 30 0d 0a 30 36 20 20 20 20 20 20 20 30 30 30 30 30 31 20 2e 54 58 54 4d 20 20 20 31 20 20 20 ┆10 06 000001 .TXTM 1 ┆
0x0140…0160 20 20 20 20 3b 20 50 41 43 4b 45 44 20 46 52 4f 4d 20 4c 45 46 54 20 54 4f 20 52 49 47 48 54 0d ┆ ; PACKED FROM LEFT TO RIGHT ┆
0x0160…0180 0a 30 37 20 20 20 20 20 20 20 30 30 30 30 30 31 20 2e 54 58 54 4e 20 20 20 31 20 20 20 20 20 20 ┆ 07 000001 .TXTN 1 ┆
0x0180…01a0 20 3b 20 4e 4f 20 4e 55 4c 4c 2d 42 59 54 45 53 20 49 46 20 45 56 45 4e 20 4e 55 4d 42 45 52 20 ┆ ; NO NULL-BYTES IF EVEN NUMBER ┆
0x01a0…01c0 4f 46 20 42 59 54 45 53 0d 0a 30 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 30 39 20 20 ┆OF BYTES 08 09 ┆
0x01c0…01e0 20 20 20 20 20 20 20 20 20 20 20 20 50 50 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PP00: ┆
0x01e0…0200 20 20 20 20 3b 20 50 52 4f 47 52 41 4d 20 53 54 41 52 54 0d 0a 31 30 20 30 30 30 30 30 27 31 30 ┆ ; PROGRAM START 10 00000'10┆
0x0200…0220 30 30 30 31 20 20 20 20 20 20 20 20 20 31 42 30 2b 31 42 31 35 20 20 20 20 20 20 20 20 3b 20 44 ┆0001 1B0+1B15 ; D┆
0x0220…0240 45 53 43 52 49 50 54 4f 52 0d 0a 31 31 20 30 30 30 30 31 27 30 30 30 30 30 37 27 20 20 20 20 20 ┆ESCRIPTOR 11 00001'000007' ┆
0x0240…0260 20 20 20 50 50 30 35 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 54 41 52 54 0d 0a 31 32 20 30 ┆ PP05 ; START 12 0┆
0x0260…0280 30 30 30 32 27 30 30 30 30 30 30 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 ┆0002'000000 0 ┆
0x0280…02a0 20 20 20 20 3b 20 43 48 41 49 4e 0d 0a 31 33 20 30 30 30 30 33 27 30 30 30 31 30 33 20 20 20 20 ┆ ; CHAIN 13 00003'000103 ┆
0x02a0…02c0 20 20 20 20 20 50 50 31 30 2d 50 50 30 30 20 20 20 20 20 20 20 3b 20 53 49 5a 45 0d 0a 31 34 20 ┆ PP10-PP00 ; SIZE 14 ┆
0x02c0…02e0 30 30 30 30 34 27 30 35 32 35 30 33 20 20 20 20 20 20 20 20 20 2e 54 58 54 20 20 20 20 2e 55 43 ┆00004'052503 .TXT .UC┆
0x02e0…0300 41 4c 4c 2e 20 3b 20 4e 41 4d 45 0d 0a 31 35 20 20 20 20 20 20 20 30 34 30 35 31 34 20 0d 0a 31 ┆ALL. ; NAME 15 040514 1┆
0x0300…0320 36 20 20 20 20 20 20 20 30 34 36 30 30 30 20 0d 0a 31 37 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6 046000 17 ┆
0x0320…0340 20 0d 0a 31 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 50 30 35 3a 20 20 20 20 20 20 20 20 ┆ 18 PP05: ┆
0x0340…0360 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 31 39 20 30 30 30 30 37 27 30 30 36 30 31 33 20 20 20 ┆ ; 19 00007'006013 ┆
0x0360…0380 20 20 20 20 20 20 53 54 4f 50 50 52 4f 43 45 53 53 20 20 20 20 20 3b 0d 0a 32 30 20 30 30 30 31 ┆ STOPPROCESS ; 20 0001┆
0x0380…03a0 30 27 30 30 30 37 37 37 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 50 50 30 35 20 20 20 ┆0'000777 JMP PP05 ┆
0x03a0…03c0 20 3b 0d 0a 32 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 32 32 20 20 20 20 20 20 20 20 ┆ ; 21 22 ┆
0x03c0…03e0 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 ┆ ┆
0x03e0…0400 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 3b 20 ┆ ; ┆
0x0400…0420 46 7c 6c 67 65 6e 64 65 20 63 61 6c 6c 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 3a 20 0d 0a 32 33 ┆Følgende call kan benyttes: 23┆
0x0420…0440 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 ┆ ┆
[…0x1…]
0x0460…0480 20 20 20 20 20 20 3b 20 43 41 4c 4c 22 47 45 54 22 2c 54 24 2c 41 20 0d 0a 32 34 20 20 20 20 20 ┆ ; CALL"GET",T$,A 24 ┆
0x0480…04a0 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 ┆ ┆
[…0x1…]
0x04c0…04e0 20 3b 20 54 24 20 3d 20 73 74 72 65 6e 67 20 64 69 6d 65 6e 74 69 6f 6e 65 72 65 74 20 3e 20 41 ┆ ; T$ = streng dimentioneret > A┆
0x04e0…0500 20 0d 0a 32 35 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 ┆ 25 ┆
0x0500…0520 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 ┆ ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 20 3d 20 41 6e 74 61 6c 6c 65 74 20 61 66 20 74 65 67 ┆ ; A = Antallet af teg┆
0x0540…0560 6e 2c 20 64 65 72 20 73 6b 61 6c 20 69 6e 70 75 74 74 65 73 20 69 20 54 24 2e 20 0d 0a 32 36 20 ┆n, der skal inputtes i T$. 26 ┆
0x0560…0580 30 30 30 31 31 27 30 30 30 30 31 37 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 ┆00011'000017' GET┆
0x0580…05a0 30 30 20 0d 0a 32 37 20 30 30 30 31 32 27 30 34 33 35 30 35 20 20 20 20 20 20 20 20 20 20 20 20 ┆00 27 00012'043505 ┆
0x05a0…05c0 20 20 20 20 20 2e 54 58 54 20 22 47 45 54 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 22 20 0d ┆ .TXT "GET<0><0><0><0><0>" ┆
0x05c0…05e0 0a 32 38 20 20 20 20 20 20 20 30 35 32 30 30 30 20 0d 0a 32 39 20 20 20 20 20 20 20 30 30 30 30 ┆ 28 052000 29 0000┆
0x05e0…0600 30 30 20 0d 0a 33 30 20 20 20 20 20 20 20 30 30 30 30 30 30 20 0d 0a 33 31 20 20 20 20 20 20 20 ┆00 30 000000 31 ┆
0x0600…0620 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 ┆ ┆
0x0620…0640 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 3b ┆ ;┆
0x0640…0660 20 56 65 64 20 63 61 6c 6c 20 69 6e 64 65 68 6f 6c 64 65 72 20 61 63 63 75 6d 75 6c 61 74 6f 72 ┆ Ved call indeholder accumulator┆
0x0660…0680 65 72 6e 65 20 66 7c 6c 67 65 6e 64 65 20 76 7b 72 64 69 65 72 20 0d 0a 33 32 20 20 20 20 20 20 ┆erne følgende værdier 32 ┆
0x0680…06a0 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 ┆ ┆
[…0x1…]
0x06c0…06e0 3b 20 41 43 30 20 3d 20 3f 20 0d 0a 33 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; AC0 = ? 33 ┆
0x06e0…0700 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 ┆ ┆
0x0700…0720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 31 20 3d 20 3f 20 0d 0a ┆ ; AC1 = ? ┆
0x0720…0740 33 34 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 ┆34 ┆
0x0740…0760 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 ┆ ┆
0x0760…0780 20 20 20 20 20 20 20 20 3b 20 41 43 32 20 3d 20 55 44 41 2b 55 2e 53 54 4b 20 3d 20 50 44 54 41 ┆ ; AC2 = UDA+U.STK = PDTA┆
0x0780…07a0 20 0d 0a 33 35 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 ┆ 35 ┆
0x07a0…07c0 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 ┆ ┆
0x07c0…07e0 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 33 20 3d 20 55 44 41 20 0d 0a 33 36 20 20 20 20 20 ┆ ; AC3 = UDA 36 ┆
0x07e0…0800 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 ┆ ┆
[…0x1…]
0x0820…0840 20 3b 20 0d 0a 33 37 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 ┆ ; 37 ┆
0x0840…0860 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 ┆ ┆
0x0860…0880 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 64 72 65 73 73 65 20 20 20 20 20 20 20 20 20 20 ┆ ; Adresse ┆
0x0880…08a0 20 20 20 20 4c 61 67 65 72 69 6e 64 68 6f 6c 64 20 0d 0a 33 38 20 20 20 20 20 20 20 20 20 20 20 ┆ Lagerindhold 38 ┆
0x08a0…08c0 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 ┆ ┆
0x08c0…08e0 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 3b 20 3d 3d 3d ┆ ; ===┆
0x08e0…0900 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 0d ┆==== ============ ┆
0x0900…0920 0a 33 39 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 ┆ 39 ┆
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 20 20 20 20 20 20 ┆ ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 3b 20 55 53 45 52 20 28 70 61 67 65 20 30 29 20 20 20 20 20 20 20 20 ┆ ; USER (page 0) ┆
0x0960…0980 55 44 41 20 0d 0a 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UDA 40 ┆
0x0980…09a0 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 ┆ ┆
0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 55 44 41 2b 50 49 4f 20 20 20 20 20 20 20 20 20 ┆ ; UDA+PIO ┆
0x09c0…09e0 20 20 20 20 20 41 64 72 2e 20 61 66 20 70 72 69 6d 2e 20 49 2f 4f 20 7a 6f 6e 65 20 0d 0a 34 31 ┆ Adr. af prim. I/O zone 41┆
0x09e0…0a00 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 ┆ ┆
[…0x1…]
0x0a20…0a40 20 20 20 20 20 20 3b 20 55 44 41 20 2b 20 55 2e 53 30 30 20 20 20 20 20 20 20 20 20 20 55 73 65 ┆ ; UDA + U.S00 Use┆
0x0a40…0a60 72 20 64 61 74 61 61 72 65 61 6c 6c 65 72 20 0d 0a 34 32 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r dataarealler 42 ┆
0x0a60…0a80 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 ┆ ┆
0x0a80…0aa0 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 3b 20 55 44 41 20 2b ┆ ; UDA +┆
0x0aa0…0ac0 20 55 2e 53 32 30 20 20 20 20 20 20 20 20 20 20 2d 20 0d 0a 34 33 20 20 20 20 20 20 20 20 20 20 ┆ U.S20 - 43 ┆
0x0ac0…0ae0 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 ┆ ┆
0x0ae0…0b00 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 3b 20 55 44 ┆ ; UD┆
0x0b00…0b20 41 20 2b 20 55 2e 53 32 31 20 20 20 20 20 20 20 20 20 20 53 75 62 72 75 74 69 6e 65 20 74 61 62 ┆A + U.S21 Subrutine tab┆
0x0b20…0b40 65 6c 20 20 0d 0a 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆el 44 ┆
0x0b40…0b60 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 ┆ ┆
0x0b60…0b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 55 44 41 20 2b 20 55 2e 53 54 4b 20 20 20 20 20 ┆ ; UDA + U.STK ┆
0x0b80…0ba0 20 20 20 20 20 20 20 20 20 50 44 54 41 20 0d 0a 34 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PDTA 45 ┆
0x0ba0…0bc0 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 ┆ ┆
0x0bc0…0be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 50 44 54 41 20 20 ┆ ; PDTA ┆
0x0be0…0c00 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 54 24 20 50 44 41 20 0d 0a 34 36 20 20 20 20 20 20 ┆ 0 T$ PDA 46 ┆
0x0c00…0c20 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 ┆ ┆
[…0x1…]
0x0c40…0c60 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 41 20 50 44 41 20 0d 0a 34 ┆; 1 A PDA 4┆
0x0c60…0c80 37 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 ┆7 ┆
0x0c80…0ca0 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 ┆ ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 3b 20 50 44 41 20 54 24 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 41 64 ┆ ; PDA T$ 2 Ad┆
0x0cc0…0ce0 72 2e 20 61 66 20 31 2e 20 62 79 74 65 2e 20 0d 0a 34 38 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r. af 1. byte. 48 ┆
0x0ce0…0d00 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 ┆ ┆
0x0d00…0d20 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 3b 20 20 20 20 20 20 ┆ ; ┆
0x0d20…0d40 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 4d 61 78 20 61 6e 74 2e 20 62 79 74 65 20 0d 0a ┆ 3 Max ant. byte ┆
0x0d40…0d60 34 39 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 ┆49 ┆
0x0d60…0d80 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 ┆ ┆
0x0d80…0da0 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 20 20 43 ┆ ; 4 C┆
0x0da0…0dc0 75 72 72 65 6e 74 20 61 6e 74 2e 20 62 79 74 65 20 0d 0a 35 30 20 20 20 20 20 20 20 20 20 20 20 ┆urrent ant. byte 50 ┆
0x0dc0…0de0 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 ┆ ┆
0x0de0…0e00 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 3b 20 50 44 41 ┆ ; PDA┆
0x0e00…0e20 20 41 20 20 20 20 20 20 20 20 20 20 20 20 35 20 20 20 31 2e 20 77 6f 72 64 20 0d 0a 35 31 20 20 ┆ A 5 1. word 51 ┆
0x0e20…0e40 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 ┆ ┆
[…0x1…]
0x0e60…0e80 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 20 32 2e 20 77 6f ┆ ; 6 2. wo┆
0x0e80…0ea0 72 64 20 0d 0a 35 32 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 ┆rd 52 ┆
0x0ea0…0ec0 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 ┆ ┆
0x0ec0…0ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 75 62 72 75 74 69 6e 65 20 74 61 62 65 6c 20 73 ┆ ; Subrutine tabel s┆
0x0ee0…0f00 6c 75 74 20 0d 0a 35 33 20 30 30 30 31 36 27 30 30 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 ┆lut 53 00016'000000 ┆
0x0f00…0f20 20 20 20 20 20 20 30 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 ┆ 0 ┆
0x0f20…0f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 0d 0a 35 34 20 30 30 30 31 37 27 30 30 30 30 ┆ ; 54 00017'0000┆
0x0f40…0f60 30 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 30 30 3a 20 32 20 20 20 20 20 ┆02 GET00: 2 ┆
0x0f60…0f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 6f 20 76 61 72 69 61 62 6c 65 ┆ ; To variable┆
0x0f80…0fa0 20 0d 0a 35 35 20 30 30 30 32 30 27 31 30 30 30 30 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 55 00020'100003 ┆
0x0fa0…0fc0 20 20 20 53 54 52 49 4e 47 2b 52 45 46 45 52 45 4e 43 45 20 20 20 20 20 20 20 20 3b 20 54 24 20 ┆ STRING+REFERENCE ; T$ ┆
0x0fc0…0fe0 0d 0a 35 36 20 30 30 30 32 31 27 30 30 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 56 00021'000000 ┆
0x0fe0…1000 20 20 52 45 41 4c 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 ┆ REAL ┆
0x1000…1020 20 20 3b 20 6f 67 20 41 20 0d 0a 35 37 20 30 30 30 32 32 27 30 32 31 30 30 35 20 20 20 20 20 20 ┆ ; og A 57 00022'021005 ┆
0x1020…1040 20 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 30 2c 2b 35 2c 32 20 20 20 20 20 20 20 20 20 20 20 ┆ LDA 0,+5,2 ┆
0x1040…1060 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 30 20 3d 20 31 2e 20 57 4f 52 44 20 41 46 20 41 20 ┆ ; AC0 = 1. WORD AF A ┆
0x1060…1080 0d 0a 35 38 20 30 30 30 32 33 27 30 32 35 30 30 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 58 00023'025006 ┆
0x1080…10a0 20 20 4c 44 41 20 31 2c 2b 36 2c 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LDA 1,+6,2 ┆
0x10a0…10c0 20 20 3b 20 41 43 31 20 3d 20 32 2e 20 57 4f 52 44 20 41 46 20 41 20 0d 0a 35 39 20 20 20 20 20 ┆ ; AC1 = 2. WORD AF A 59 ┆
0x10c0…10e0 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 42 43 41 4c 4c 20 46 ┆ BCALL F┆
0x10e0…1100 49 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 48 65 6e 74 61 ┆IX ; Henta┆
0x1100…1120 6c 20 3d 3e 20 4b 6f 6d 6d 61 74 61 6c 20 0d 0a 36 30 20 30 30 30 32 34 27 30 33 35 35 31 35 20 ┆l => Kommatal 60 00024'035515 ┆
0x1120…1140 20 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 0d 0a 0c 20 30 30 ┆ LDA 3 U.S21,3 00┆
0x1140…1160 30 32 20 55 43 41 30 31 0d 0a 30 31 20 30 30 30 32 35 27 30 30 37 34 30 30 20 20 20 20 20 20 20 ┆02 UCA01 01 00025'007400 ┆
0x1160…1180 20 20 4a 53 52 40 20 20 20 20 20 20 20 2b 30 2c 33 0d 0a 30 32 20 30 30 30 32 36 27 31 30 31 30 ┆ JSR@ +0,3 02 00026'1010┆
0x1180…11a0 31 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 23 20 30 2c 30 2c 53 5a 52 ┆14 MOV # 0,0,SZR┆
0x11a0…11c0 20 0d 0a 30 33 20 30 30 30 32 37 27 30 30 30 34 34 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 03 00027'000447 ┆
0x11c0…11e0 20 20 20 4a 4d 50 20 45 52 52 33 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ JMP ERR31 ┆
0x11e0…1200 20 20 20 3b 20 49 6e 64 65 78 20 66 65 6a 6c 20 0d 0a 30 34 20 30 30 30 33 30 27 30 34 35 34 37 ┆ ; Index fejl 04 00030'04547┆
0x1200…1220 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 31 2c 55 2e 53 30 31 2c 33 20 ┆1 STA 1,U.S01,3 ┆
0x1220…1240 20 20 20 20 20 20 20 20 20 20 3b 20 55 2e 53 30 31 20 3d 20 41 6e 74 61 6c 20 63 68 72 2c 20 64 ┆ ; U.S01 = Antal chr, d┆
0x1240…1260 65 72 20 73 6b 61 6c 20 69 6e 70 75 74 74 65 73 2e 20 0d 0a 30 35 20 30 30 30 33 31 27 31 30 32 ┆er skal inputtes. 05 00031'102┆
0x1260…1280 35 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 5a 4c 20 30 2c 30 20 20 20 ┆520 SUBZL 0,0 ┆
0x1280…12a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 30 3d 31 20 0d 0a 30 36 ┆ ; AC0=1 06┆
0x12a0…12c0 20 30 30 30 33 32 27 30 33 31 34 36 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 ┆ 00032'031467 LD┆
0x12c0…12e0 41 20 32 2c 55 2e 53 54 4b 2c 33 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 32 3d 50 44 54 41 ┆A 2,U.STK,3 ; AC2=PDTA┆
0x12e0…1300 20 0d 0a 30 37 20 30 30 30 33 33 27 30 32 35 30 30 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 07 00033'025002 ┆
0x1300…1320 20 20 20 4c 44 41 20 31 2c 2b 32 2c 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LDA 1,+2,2 ┆
0x1320…1340 20 20 20 3b 20 41 43 31 3d 20 57 4f 52 44 41 44 52 20 41 46 20 31 2e 20 42 59 54 45 20 49 20 54 ┆ ; AC1= WORDADR AF 1. BYTE I T┆
0x1340…1360 24 20 20 0d 0a 20 20 42 30 30 30 33 34 27 30 34 35 34 37 32 20 01 20 20 20 20 20 20 20 20 20 20 ┆$ B00034'045472 ┆
0x1360…1380 20 20 20 20 20 53 54 41 20 31 2c 55 2e 53 30 32 2c 33 20 20 20 20 20 20 20 20 20 20 20 3b 20 55 ┆ STA 1,U.S02,3 ; U┆
0x1380…13a0 2e 53 30 32 20 3d 20 41 64 72 2e 20 61 66 20 31 2e 20 62 79 74 65 20 0d 0a 30 39 20 30 30 30 33 ┆.S02 = Adr. af 1. byte 09 0003┆
0x13a0…13c0 35 27 30 33 31 34 36 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 32 2c 55 ┆5'031467 LDA 2,U┆
0x13c0…13e0 2e 53 54 4b 2c 33 20 20 0d 0a 31 30 20 30 30 30 33 36 27 31 30 32 34 36 30 20 20 20 20 20 20 20 ┆.STK,3 10 00036'102460 ┆
0x13e0…1400 20 20 20 20 20 20 20 20 20 20 53 55 42 43 20 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SUBC 0,0 ┆
0x1400…1420 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 30 3d 30 20 0d 0a 31 31 20 30 30 30 33 37 27 30 32 35 ┆ ; AC0=0 11 00037'025┆
0x1420…1440 30 30 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 31 2c 2b 33 2c 32 20 20 ┆003 LDA 1,+3,2 ┆
0x1440…1460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 31 3d 4d 61 78 20 61 6e ┆ ; AC1=Max an┆
0x1460…1480 74 2e 20 63 68 72 2e 20 0d 0a 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t. chr. 12 ┆
0x1480…14a0 20 20 20 20 20 20 20 20 20 20 42 43 41 4c 4c 20 46 49 58 20 0d 0a 31 33 20 30 30 30 34 30 27 30 ┆ BCALL FIX 13 00040'0┆
0x14a0…14c0 33 35 35 31 35 20 20 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 33 20 20 20 55 2e 53 32 31 2c 33 ┆35515 LDA 3 U.S21,3┆
0x14c0…14e0 0d 0a 31 34 20 30 30 30 34 31 27 30 30 37 34 30 30 20 20 20 20 20 20 20 20 20 4a 53 52 40 20 20 ┆ 14 00041'007400 JSR@ ┆
0x14e0…1500 20 20 20 20 20 2b 30 2c 33 0d 0a 31 35 20 30 30 30 34 32 27 31 30 31 30 31 35 20 20 20 20 20 20 ┆ +0,3 15 00042'101015 ┆
0x1500…1520 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 23 20 30 2c 30 2c 53 4e 52 20 0d 0a 31 36 20 30 30 ┆ MOV # 0,0,SNR 16 00┆
0x1520…1540 30 34 33 27 30 30 30 34 33 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 4d 50 20 45 ┆043'000433 JMP E┆
0x1540…1560 52 52 33 31 20 0d 0a 31 37 20 30 30 30 34 34 27 30 34 34 30 37 33 20 20 20 20 20 20 20 20 20 20 ┆RR31 17 00044'044073 ┆
0x1560…1580 20 20 20 20 20 20 20 53 54 41 20 31 2c 55 2e 53 30 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ STA 1,U.S03 ┆
0x1580…15a0 20 20 20 20 20 20 20 3b 20 55 2e 53 30 33 3d 41 43 31 20 0d 0a 31 38 20 30 30 30 34 35 27 30 32 ┆ ; U.S03=AC1 18 00045'02┆
0x15a0…15c0 30 30 37 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 30 2c 55 2e 53 30 31 ┆0071 LDA 0,U.S01┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 30 3d 55 2e 53 30 31 ┆ ; AC0=U.S01┆
0x15e0…1600 20 0d 0a 31 39 20 30 30 30 34 36 27 31 30 36 34 31 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 19 00046'106415 ┆
0x1600…1620 20 20 20 53 55 42 20 23 20 30 2c 31 2c 53 4e 52 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 30 ┆ SUB # 0,1,SNR ; AC0┆
0x1620…1640 20 3e 20 41 43 31 20 3f 20 0d 0a 32 30 20 30 30 30 34 37 27 30 30 30 34 32 37 20 20 20 20 20 20 ┆ > AC1 ? 20 00047'000427 ┆
0x1640…1660 20 20 20 20 20 20 20 20 20 20 20 4a 4d 50 20 45 52 52 33 31 20 20 20 20 20 20 20 20 20 20 20 20 ┆ JMP ERR31 ┆
0x1660…1680 20 20 20 20 20 20 20 20 20 20 20 3b 20 4a 41 20 3d 3e 20 49 6e 64 65 78 20 66 65 6a 6c 2e 20 0d ┆ ; JA => Index fejl. ┆
0x1680…16a0 0a 32 31 20 30 30 30 35 30 27 30 33 30 30 34 30 20 47 45 54 31 33 3a 20 20 4c 44 41 20 32 2c 43 ┆ 21 00050'030040 GET13: LDA 2,C┆
0x16a0…16c0 55 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 32 3d 43 ┆UR ; AC2=C┆
0x16c0…16e0 55 52 20 0d 0a 32 32 20 30 30 30 35 31 27 30 33 34 30 31 37 20 20 20 20 20 20 20 20 20 20 20 20 ┆UR 22 00051'034017 ┆
0x16e0…1700 20 20 20 20 20 4c 44 41 20 33 2c 55 53 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LDA 3,USER ┆
0x1700…1720 20 20 20 20 20 3b 20 41 43 33 3d 55 53 45 52 20 0d 0a 32 33 20 30 30 30 35 32 27 30 32 31 34 34 ┆ ; AC3=USER 23 00052'02144┆
0x1720…1740 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 30 2c 50 49 4f 2c 33 20 20 20 ┆2 LDA 0,PIO,3 ┆
0x1740…1760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 64 72 2e 20 61 66 20 70 72 69 6d ┆ ; Adr. af prim┆
0x1760…1780 7b 72 65 20 49 2f 4f 20 7a 6f 6e 65 20 28 74 65 72 6d 2e 29 2e 20 0d 0a 32 34 20 30 30 30 35 33 ┆ære I/O zone (term.). 24 00053┆
0x1780…17a0 27 30 30 37 31 31 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 2e 49 43 48 41 52 20 ┆'007115 F.ICHAR ┆
0x17a0…17c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 48 65 6e 74 20 65 ┆ ; Hent e┆
0x17c0…17e0 6e 20 63 61 72 61 6b 74 65 72 20 0d 0a 32 35 20 30 30 30 35 34 27 30 30 30 34 32 34 20 20 20 20 ┆n carakter 25 00054'000424 ┆
0x17e0…1800 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 4d 50 20 45 52 52 55 44 20 20 20 20 20 20 20 20 20 20 ┆ JMP ERRUD ┆
0x1800…1820 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 48 76 69 73 20 66 65 6a 6c 2e 20 53 6b 72 69 76 20 ┆ ; Hvis fejl. Skriv ┆
0x1820…1840 64 65 6e 20 75 64 2e 20 0d 0a 32 36 20 30 30 30 35 35 27 30 32 30 30 35 34 20 20 20 20 20 20 20 ┆den ud. 26 00055'020054 ┆
0x1840…1860 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 30 2c 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LDA 0,44 ┆
0x1860…1880 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 30 3d 33 32 20 0d 0a 32 37 20 30 30 30 35 36 27 31 35 ┆ ; AC0=32 27 00056'15┆
0x1880…18a0 32 35 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 5a 4c 20 32 2c 32 20 20 ┆2520 SUBZL 2,2 ┆
0x18a0…18c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 43 32 3d 31 20 0d 0a 32 ┆ ; AC2=1 2┆
0x18c0…18e0 38 20 30 30 30 35 37 27 31 34 32 34 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆8 00057'142400 S┆
0x18e0…1900 55 42 20 32 2c 30 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 3b ┆UB 2,0 ;┆
0x1900…1920 20 41 43 30 3d 33 31 20 0d 0a 32 39 20 30 30 30 36 30 27 31 32 32 34 31 35 20 20 20 20 20 20 20 ┆ AC0=31 29 00060'122415 ┆
[…truncated at 200 lines…]