|
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: 7168 (0x1c00)
Names: »KEMIA«
└─⟦6c602cab2⟧ Bits:30001824 SG0123 Floppy
└─ ⟦this⟧ »/KEMIA«
0x0000…0020 50 52 44 45 31 0c 52 45 41 44 3a 09 7f 36 09 7f 09 7f 09 7f 3b 20 36 20 56 41 52 49 41 42 4c 45 ┆PRDE1 READ: 6 ; 6 VARIABLE┆
0x0020…0040 0d 0a 09 7f 53 54 52 49 4e 47 2b 41 52 52 41 59 09 7f 09 7f 3b 20 41 43 24 28 37 2c 36 30 29 20 ┆ STRING+ARRAY ; AC$(7,60) ┆
0x0040…0060 44 41 54 41 53 54 52 45 4e 47 45 20 46 52 41 20 46 49 4c 0d 0a 09 7f 53 54 52 49 4e 47 2b 41 52 ┆DATASTRENGE FRA FIL STRING+AR┆
0x0060…0080 52 41 59 09 7f 09 7f 3b 20 41 46 24 28 3c 56 41 52 3e 2c 36 30 29 20 53 5c 47 45 53 54 52 45 4e ┆RAY ; AF$(<VAR>,60) SØGESTREN┆
0x0080…00a0 47 45 0d 0a 09 7f 53 54 52 49 4e 47 2b 41 52 52 41 59 09 7f 09 7f 3b 20 41 42 24 28 37 2c 31 30 ┆GE STRING+ARRAY ; AB$(7,10┆
0x00a0…00c0 29 20 46 5c 52 53 54 45 20 55 44 53 4b 52 49 56 4e 49 4e 47 53 53 54 52 45 4e 47 0d 0a 09 7f 53 ┆) FØRSTE UDSKRIVNINGSSTRENG S┆
0x00c0…00e0 54 52 49 4e 47 2b 41 52 52 41 59 09 7f 09 7f 3b 20 41 47 24 28 37 2c 31 38 29 20 53 49 44 53 54 ┆TRING+ARRAY ; AG$(7,18) SIDST┆
0x00e0…0100 45 20 55 44 53 4b 52 49 56 4e 49 4e 47 53 53 54 52 45 4e 47 0d 0a 09 7f 52 45 41 4c 2b 41 52 52 ┆E UDSKRIVNINGSSTRENG REAL+ARR┆
0x0100…0120 41 59 09 7f 09 7f 3b 20 41 48 28 3c 56 41 52 3e 29 20 4d 4f 44 45 20 46 4f 52 20 45 4e 4b 45 4c ┆AY ; AH(<VAR>) MODE FOR ENKEL┆
0x0120…0140 54 20 53 5c 47 45 53 54 52 45 4e 47 0d 0a 09 7f 52 45 41 4c 2b 41 52 52 41 59 09 7f 09 7f 3b 20 ┆T SØGESTRENG REAL+ARRAY ; ┆
0x0140…0160 4e 55 4d 28 37 29 20 41 4e 54 41 4c 20 53 5c 47 45 53 54 52 45 4e 47 45 20 50 52 2e 20 4c 5b 53 ┆NUM(7) ANTAL SØGESTRENGE PR. LÆS┆
0x0160…0180 54 20 53 54 52 45 4e 47 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2e 33 09 7f 09 7f 3b 20 41 43 31 3d 33 ┆T STRENG LDA 1,.3 ; AC1=3┆
0x0180…01a0 0d 0a 09 7f 4c 44 41 20 40 09 7f 30 2c 2b 30 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 31 2e 20 4d ┆ LDA @ 0,+0,2 ; HENT 1. M┆
0x01a0…01c0 41 58 2d 42 59 54 45 20 41 44 52 45 53 53 45 20 41 43 24 0d 0a 09 7f 41 44 44 09 7f 31 2c 30 09 ┆AX-BYTE ADRESSE AC$ ADD 1,0 ┆
0x01c0…01e0 7f 09 7f 3b 20 41 43 30 3d 33 2b 31 2e 4d 41 58 2d 42 59 54 45 20 41 44 52 20 41 43 24 3d 31 2e ┆ ; AC0=3+1.MAX-BYTE ADR AC$=1.┆
0x01e0…0200 42 59 54 45 41 44 52 20 41 43 24 0d 0a 09 7f 53 54 41 20 09 7f 30 2c 55 2e 53 31 30 2c 33 09 7f ┆BYTEADR AC$ STA 0,U.S10,3 ┆
0x0200…0220 3b 20 47 45 4d 20 31 2e 42 59 54 45 41 44 52 45 53 53 45 20 49 20 55 2e 53 31 30 0d 0a 09 7f 4c ┆; GEM 1.BYTEADRESSE I U.S10 L┆
0x0220…0240 44 41 20 40 09 7f 30 2c 2b 32 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 31 2e 20 4d 41 58 2d 42 59 ┆DA @ 0,+2,2 ; HENT 1. MAX-BY┆
0x0240…0260 54 45 20 41 44 52 45 53 53 45 20 41 42 24 0d 0a 09 7f 41 44 44 09 7f 31 2c 30 09 7f 09 7f 3b 20 ┆TE ADRESSE AB$ ADD 1,0 ; ┆
0x0260…0280 41 43 30 3d 33 2b 31 2e 4d 41 58 2d 42 59 54 45 20 41 44 52 20 41 42 24 3d 31 2e 42 59 54 45 41 ┆AC0=3+1.MAX-BYTE ADR AB$=1.BYTEA┆
0x0280…02a0 44 52 20 41 42 24 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 31 33 2c 33 09 7f 3b 20 47 45 4d 20 ┆DR AB$ STA 0,U.S13,3 ; GEM ┆
0x02a0…02c0 31 2e 42 59 54 45 41 44 52 45 53 53 45 20 49 20 55 2e 53 31 33 0d 0a 09 7f 4c 44 41 20 40 09 7f ┆1.BYTEADRESSE I U.S13 LDA @ ┆
0x02c0…02e0 30 2c 2b 33 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 31 2e 20 4d 41 58 2d 42 59 54 45 20 41 44 52 ┆0,+3,2 ; HENT 1. MAX-BYTE ADR┆
0x02e0…0300 45 53 53 45 20 41 47 24 0d 0a 09 7f 41 44 44 09 7f 31 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 33 2b ┆ESSE AG$ ADD 1,0 ; AC0=3+┆
0x0300…0320 31 2e 4d 41 58 2d 42 59 54 45 20 41 44 52 20 41 47 24 3d 31 2e 42 59 54 45 41 44 52 20 41 47 24 ┆1.MAX-BYTE ADR AG$=1.BYTEADR AG$┆
0x0320…0340 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 31 34 2c 33 09 7f 3b 20 47 45 4d 20 31 2e 42 59 54 45 ┆ STA 0,U.S14,3 ; GEM 1.BYTE┆
0x0340…0360 41 44 52 45 53 53 45 20 49 20 55 2e 53 31 34 0d 0a 09 7f 53 54 41 09 7f 31 2c 55 2e 53 31 35 2c ┆ADRESSE I U.S14 STA 1,U.S15,┆
0x0360…0380 33 09 7f 3b 20 47 45 4d 20 4e 55 4d 3d 33 20 49 20 55 2e 53 31 35 0d 0a 42 45 47 49 4e 3a 09 7f ┆3 ; GEM NUM=3 I U.S15 BEGIN: ┆
0x0380…03a0 53 55 42 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 30 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e ┆SUB 0,0 ; AC0=0 STA 0,U.┆
0x03a0…03c0 53 31 32 2c 33 09 7f 3b 20 4e 55 4c 53 54 49 4c 20 41 43 24 3d 2f 3c 3e 41 46 24 20 49 4e 44 49 ┆S12,3 ; NULSTIL AC$=/<>AF$ INDI┆
0x03c0…03e0 4b 41 54 4f 52 0d 0a 09 7f 4c 44 41 09 7f 32 2c 55 2e 53 54 4b 2c 33 09 7f 3b 20 41 43 32 3d 55 ┆KATOR LDA 2,U.STK,3 ; AC2=U┆
0x03e0…0400 2e 53 54 4b 2b 55 44 41 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2e 33 09 7f 09 7f 3b 20 41 43 31 3d 33 ┆.STK+UDA LDA 1,.3 ; AC1=3┆
0x0400…0420 0d 0a 09 7f 4c 44 41 20 40 09 7f 30 2c 2b 30 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 31 2e 20 4d ┆ LDA @ 0,+0,2 ; HENT 1. M┆
0x0420…0440 41 58 2d 42 59 54 45 20 41 44 52 45 53 53 45 20 41 43 24 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e ┆AX-BYTE ADRESSE AC$ STA 0,U.┆
0x0440…0460 53 30 30 2c 33 09 7f 3b 20 47 45 4d 20 31 2e 4d 41 58 42 59 54 45 20 41 44 52 20 41 43 24 20 49 ┆S00,3 ; GEM 1.MAXBYTE ADR AC$ I┆
0x0460…0480 20 55 2e 53 30 30 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 30 31 2c 33 09 7f 3b 20 47 45 4d 20 ┆ U.S00 STA 0,U.S01,3 ; GEM ┆
0x0480…04a0 31 2e 4d 41 58 42 59 54 45 20 41 44 52 20 41 43 24 20 49 20 55 2e 53 30 31 0d 0a 09 7f 4c 44 41 ┆1.MAXBYTE ADR AC$ I U.S01 LDA┆
0x04a0…04c0 20 40 09 7f 30 2c 2b 31 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 31 2e 20 4d 41 58 2d 42 59 54 45 ┆ @ 0,+1,2 ; HENT 1. MAX-BYTE┆
0x04c0…04e0 20 41 44 52 45 53 53 45 20 41 46 24 0d 0a 09 7f 41 44 44 20 09 7f 31 2c 30 09 7f 09 7f 3b 20 41 ┆ ADRESSE AF$ ADD 1,0 ; A┆
0x04e0…0500 43 30 3d 33 2b 31 2e 4d 41 58 2d 42 59 54 45 20 41 44 52 20 41 46 24 3d 31 2e 42 59 54 45 41 44 ┆C0=3+1.MAX-BYTE ADR AF$=1.BYTEAD┆
0x0500…0520 52 20 41 46 24 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 30 32 2c 33 09 7f 3b 20 47 45 4d 20 31 ┆R AF$ STA 0,U.S02,3 ; GEM 1┆
0x0520…0540 2e 42 59 54 45 41 44 52 20 49 20 55 2e 53 30 32 0d 0a 09 7f 4c 44 41 20 40 09 7f 30 2c 2b 34 2c ┆.BYTEADR I U.S02 LDA @ 0,+4,┆
0x0540…0560 32 09 7f 09 7f 3b 20 48 45 4e 54 20 31 2e 57 4f 52 44 41 44 52 45 53 53 45 20 41 48 0d 0a 09 7f ┆2 ; HENT 1.WORDADRESSE AH ┆
0x0560…0580 53 54 41 09 7f 30 2c 55 2e 53 30 34 2c 33 09 7f 3b 20 47 45 4d 20 31 2e 57 4f 52 44 41 44 52 20 ┆STA 0,U.S04,3 ; GEM 1.WORDADR ┆
0x0580…05a0 49 20 55 2e 53 30 34 0d 0a 09 7f 4c 44 41 20 40 09 7f 30 2c 2b 35 2c 32 09 7f 09 7f 3b 20 48 45 ┆I U.S04 LDA @ 0,+5,2 ; HE┆
0x05a0…05c0 4e 54 20 31 2e 57 4f 52 44 41 44 52 45 53 53 45 20 4e 55 4d 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 ┆NT 1.WORDADRESSE NUM STA 0,U┆
0x05c0…05e0 2e 53 30 35 2c 33 09 7f 3b 20 47 45 4d 20 31 2e 57 4f 52 44 41 44 52 20 49 20 55 2e 53 30 35 0d ┆.S05,3 ; GEM 1.WORDADR I U.S05 ┆
0x05e0…0600 0a 09 7f 4c 44 41 09 7f 32 2c 43 55 52 09 7f 09 7f 3b 20 41 43 32 3d 43 55 52 0d 0a 09 7f 53 55 ┆ LDA 2,CUR ; AC2=CUR SU┆
0x0600…0620 42 20 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 30 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 ┆B 0,0 ; AC0=0 STA 0,U.S┆
0x0620…0640 30 37 2c 33 09 7f 3b 20 4e 55 4c 53 54 49 4c 20 54 5b 4c 4c 45 56 41 52 49 41 42 45 4c 0d 0a 4e ┆07,3 ; NULSTIL TÆLLEVARIABEL N┆
0x0640…0660 45 58 54 53 3a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 30 37 2c 33 09 7f 3b 20 48 45 4e 54 20 43 55 ┆EXTS: LDA 0,U.S07,3 ; HENT CU┆
0x0660…0680 52 52 45 4e 54 20 54 5b 4c 4c 45 56 41 52 49 41 42 45 4c 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2e 37 ┆RRENT TÆLLEVARIABEL LDA 1,.7┆
0x0680…06a0 09 7f 09 7f 3b 20 41 43 31 3d 37 0d 0a 09 7f 53 4e 45 09 7f 30 2c 31 09 7f 09 7f 3b 20 54 5b 4c ┆ ; AC1=7 SNE 0,1 ; TÆL┆
0x06a0…06c0 4c 45 56 41 52 3d 37 20 3f 0d 0a 09 7f 4a 4d 50 09 7f 42 45 47 49 4e 09 7f 09 7f 3b 20 4a 41 20 ┆LEVAR=7 ? JMP BEGIN ; JA ┆
0x06c0…06e0 2d 20 48 4f 50 20 54 49 4c 20 42 45 47 49 4e 0d 0a 09 7f 49 4e 43 09 7f 30 2c 30 09 7f 09 7f 3b ┆- HOP TIL BEGIN INC 0,0 ;┆
0x06e0…0700 20 4e 45 4a 20 2d 20 54 5b 4c 4c 45 56 41 52 3d 54 5b 4c 4c 45 56 41 52 2b 31 0d 0a 09 7f 53 54 ┆ NEJ - TÆLLEVAR=TÆLLEVAR+1 ST┆
0x0700…0720 41 09 7f 30 2c 55 2e 53 30 37 2c 33 09 7f 3b 20 47 45 4d 20 43 55 52 20 54 5b 4c 4c 45 56 41 52 ┆A 0,U.S07,3 ; GEM CUR TÆLLEVAR┆
0x0720…0740 20 49 20 55 2e 53 30 37 0d 0a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 31 32 2c 33 09 7f 3b 20 48 45 ┆ I U.S07 LDA 0,U.S12,3 ; HE┆
0x0740…0760 4e 54 20 41 43 24 3d 2f 3c 3e 41 46 24 20 49 4e 44 49 4b 41 54 4f 52 0d 0a 09 7f 4d 4f 56 09 7f ┆NT AC$=/<>AF$ INDIKATOR MOV ┆
0x0760…0780 30 2c 30 09 7f 53 5a 52 09 7f 3b 20 49 4e 44 49 4b 41 54 4f 52 3d 31 20 3f 0d 0a 09 7f 4a 4d 50 ┆0,0 SZR ; INDIKATOR=1 ? JMP┆
0x0780…07a0 09 7f 4e 45 58 54 43 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 20 54 49 4c 20 4e 45 58 54 43 0d ┆ NEXTC ; JA - HOP TIL NEXTC ┆
0x07a0…07c0 0a 09 7f 4c 44 41 09 7f 32 2c 55 2e 53 31 35 2c 33 09 7f 3b 20 4e 45 4a 20 2d 20 48 45 4e 54 20 ┆ LDA 2,U.S15,3 ; NEJ - HENT ┆
0x07c0…07e0 4e 55 4d 0d 0a 09 7f 53 55 42 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 30 0d 0a 09 7f 4d 4f ┆NUM SUB 0,0 ; AC0=0 MO┆
0x07e0…0800 56 09 7f 30 2c 31 09 7f 09 7f 3b 20 41 43 30 20 2d 3e 20 41 43 31 0d 0a 5a 45 52 4f 3a 09 7f 49 ┆V 0,1 ; AC0 -> AC1 ZERO: I┆
0x0800…0820 00 a0 b8 f8 ea 00 fc ff ff 00 00 09 fc 00 00 09 fc 00 00 00 00 00 00 00 00 00 04 00 00 01 04 09 ┆ ┆
0x0820…0840 fc 00 04 08 fc 00 04 00 04 00 00 00 00 00 04 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0840…0860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0880…08a0 50 09 7f 5a 45 52 4f 09 7f 09 7f 3b 20 4e 45 4a 20 2d 20 48 4f 50 20 54 49 4c 20 5a 45 52 4f 0d ┆P ZERO ; NEJ - HOP TIL ZERO ┆
0x08a0…08c0 0a 09 7f 4c 44 41 09 7f 31 2c 2e 36 33 09 7f 09 7f 3b 20 4a 41 20 2d 20 41 43 31 3d 36 33 0d 0a ┆ LDA 1,.63 ; JA - AC1=63 ┆
0x08c0…08e0 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 30 31 2c 33 09 7f 3b 20 48 45 4e 54 20 43 55 52 52 45 4e 54 ┆ LDA 0,U.S01,3 ; HENT CURRENT┆
0x08e0…0900 20 31 2e 4d 41 58 2d 42 59 54 45 41 44 52 20 41 43 24 0d 0a 09 7f 41 44 44 09 7f 30 2c 31 09 7f ┆ 1.MAX-BYTEADR AC$ ADD 0,1 ┆
0x0900…0920 09 7f 3b 20 41 43 31 3d 31 2e 4d 41 58 2d 42 59 54 45 41 44 52 2b 36 33 0d 0a 09 7f 53 54 41 09 ┆ ; AC1=1.MAX-BYTEADR+63 STA ┆
0x0920…0940 7f 31 2c 55 2e 53 30 31 2c 33 09 7f 3b 20 47 45 4d 20 4e 5b 53 54 45 20 31 2e 4d 41 58 2d 42 59 ┆ 1,U.S01,3 ; GEM NÆSTE 1.MAX-BY┆
0x0940…0960 54 45 41 44 52 20 41 43 24 20 49 20 55 2e 53 30 31 0d 0a 09 7f 4c 44 41 09 7f 31 2c 55 2e 53 30 ┆TEADR AC$ I U.S01 LDA 1,U.S0┆
0x0960…0980 30 2c 33 09 7f 3b 20 48 45 4e 54 20 43 55 52 20 31 2e 4d 41 58 2d 42 59 54 45 41 44 52 20 41 43 ┆0,3 ; HENT CUR 1.MAX-BYTEADR AC┆
0x0980…09a0 24 0d 0a 09 7f 4c 44 41 09 7f 30 2c 2e 33 09 7f 09 7f 3b 20 41 43 30 3d 33 0d 0a 09 7f 41 44 44 ┆$ LDA 0,.3 ; AC0=3 ADD┆
0x09a0…09c0 09 7f 31 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 33 2b 31 2e 4d 41 58 2d 42 59 54 45 41 44 52 0d 0a ┆ 1,0 ; AC0=3+1.MAX-BYTEADR ┆
0x09c0…09e0 0c 09 7f 53 54 41 09 7f 30 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 47 45 4d 20 31 2e 42 59 54 45 41 ┆ STA 0,U.S00,3 ; GEM 1.BYTEA┆
0x09e0…0a00 44 52 20 41 43 24 20 49 20 55 2e 53 30 30 0d 0a 09 7f 4c 44 41 09 7f 31 2c 55 2e 53 30 35 2c 33 ┆DR AC$ I U.S00 LDA 1,U.S05,3┆
0x0a00…0a20 09 7f 3b 20 48 45 4e 54 20 4e 55 4d 2d 41 44 52 20 54 49 4c 20 41 43 31 0d 0a 09 7f 53 55 42 5a ┆ ; HENT NUM-ADR TIL AC1 SUBZ┆
0x0a20…0a40 4c 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 53 45 47 4d 45 4e 54 20 4e 52 3d 31 0d 0a 09 7f ┆L 0,0 ; AC0=SEGMENT NR=1 ┆
0x0a40…0a60 41 2e 47 57 4f 52 44 09 7f 09 7f 09 7f 3b 20 48 45 4e 54 20 4e 55 4d 0d 0a 09 7f 53 54 41 09 7f ┆A.GWORD ; HENT NUM STA ┆
0x0a60…0a80 30 2c 55 2e 53 31 35 2c 33 09 7f 3b 20 47 45 4d 20 4e 55 4d 20 49 20 55 2e 53 31 35 0d 0a 09 7f ┆0,U.S15,3 ; GEM NUM I U.S15 ┆
0x0a80…0aa0 49 4e 43 09 7f 31 2c 31 09 7f 09 7f 3b 20 4e 55 4d 2d 41 44 52 3d 4e 55 4d 2d 41 44 52 2b 31 0d ┆INC 1,1 ; NUM-ADR=NUM-ADR+1 ┆
0x0aa0…0ac0 0a 09 7f 49 4e 43 09 7f 31 2c 31 09 7f 09 7f 3b 20 4e 55 4d 2d 41 44 52 3d 4e 55 4d 2d 41 44 52 ┆ INC 1,1 ; NUM-ADR=NUM-ADR┆
0x0ac0…0ae0 2b 31 0d 0a 09 7f 53 54 41 09 7f 31 2c 55 2e 53 30 35 2c 33 09 7f 3b 20 47 45 4d 20 43 55 52 52 ┆+1 STA 1,U.S05,3 ; GEM CURR┆
0x0ae0…0b00 45 4e 54 20 4e 55 4d 2d 41 44 52 20 49 20 55 2e 53 30 35 0d 0a 09 7f 4c 44 41 09 7f 31 2c 55 2e ┆ENT NUM-ADR I U.S05 LDA 1,U.┆
0x0b00…0b20 53 31 35 2c 33 09 7f 3b 20 41 43 31 3d 4e 55 4d 0d 0a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 30 32 ┆S15,3 ; AC1=NUM LDA 0,U.S02┆
0x0b20…0b40 2c 33 09 7f 3b 20 48 45 4e 54 20 41 46 24 20 42 59 54 45 41 44 52 0d 0a 09 7f 53 54 41 09 7f 30 ┆,3 ; HENT AF$ BYTEADR STA 0┆
0x0b40…0b60 2c 55 2e 53 31 39 2c 33 09 7f 3b 20 47 45 4d 20 55 2e 53 30 32 20 49 20 55 2e 53 31 39 0d 0a 09 ┆,U.S19,3 ; GEM U.S02 I U.S19 ┆
0x0b60…0b80 7f 53 54 41 09 7f 30 2c 55 2e 53 31 38 2c 33 09 7f 3b 20 47 45 4d 20 55 2e 53 30 32 20 49 20 55 ┆ STA 0,U.S18,3 ; GEM U.S02 I U┆
0x0b80…0ba0 2e 53 31 38 0d 0a 09 7f 4c 44 41 09 7f 32 2c 2e 36 33 09 7f 09 7f 3b 20 41 43 32 3d 36 33 0d 0a ┆.S18 LDA 2,.63 ; AC2=63 ┆
0x0ba0…0bc0 09 7f 42 43 41 4c 4c 20 49 4d 50 59 41 09 7f 09 7f 3b 20 41 43 30 3d 36 33 2a 4e 55 4d 2b 41 46 ┆ BCALL IMPYA ; AC0=63*NUM+AF┆
0x0bc0…0be0 24 2d 42 59 54 45 41 44 52 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 30 32 2c 33 09 7f 3b 20 47 ┆$-BYTEADR STA 0,U.S02,3 ; G┆
0x0be0…0c00 45 4d 20 4e 45 58 54 20 41 46 24 2d 41 44 52 20 49 20 55 2e 53 30 32 0d 0a 09 7f 4c 44 41 09 7f ┆EM NEXT AF$-ADR I U.S02 LDA ┆
0x0c00…0c20 32 2c 43 55 52 09 7f 09 7f 3b 20 41 43 32 3d 43 55 52 0d 0a 09 7f 4c 44 41 09 7f 30 2c 55 2e 55 ┆2,CUR ; AC2=CUR LDA 0,U.U┆
0x0c20…0c40 43 48 2c 33 09 7f 3b 20 41 43 30 3d 5a 4f 4e 45 41 44 52 20 54 49 4c 20 46 49 4c 45 4e 4f 3d 30 ┆CH,3 ; AC0=ZONEADR TIL FILENO=0┆
0x0c40…0c60 0d 0a 09 7f 53 55 42 09 7f 31 2c 31 09 7f 09 7f 3b 20 54 5b 4c 4c 45 56 41 52 3d 30 0d 0a 09 7f ┆ SUB 1,1 ; TÆLLEVAR=0 ┆
0x0c60…0c80 53 54 41 09 7f 31 2c 55 2e 53 31 37 2c 33 09 7f 3b 20 47 45 4d 20 54 5b 4c 4c 45 56 41 52 20 49 ┆STA 1,U.S17,3 ; GEM TÆLLEVAR I┆
0x0c80…0ca0 20 55 2e 53 31 37 0d 0a 4e 45 58 54 43 3a 09 7f 46 2e 43 48 45 4f 46 09 7f 09 7f 09 7f 3b 20 45 ┆ U.S17 NEXTC: F.CHEOF ; E┆
0x0ca0…0cc0 4e 44 20 4f 46 20 46 49 4c 45 20 3f 0d 0a 09 7f 52 45 54 31 09 7f 09 7f 09 7f 3b 20 4a 41 20 2d ┆ND OF FILE ? RET1 ; JA -┆
0x0cc0…0ce0 20 52 45 54 55 52 4e 20 54 49 4c 20 42 41 53 49 43 0d 0a 09 7f 46 2e 49 43 48 41 52 09 7f 09 7f ┆ RETURN TIL BASIC F.ICHAR ┆
0x0ce0…0d00 09 7f 3b 20 4e 45 4a 20 2d 20 4c 5b 53 20 4e 5b 53 54 45 20 42 59 54 45 20 49 4e 44 20 46 52 41 ┆ ; NEJ - LÆS NÆSTE BYTE IND FRA┆
0x0d00…0d20 20 46 49 4c 20 2d 20 49 4f 45 52 52 20 3f 0d 0a 09 7f 42 43 41 4c 4c 20 49 4f 45 52 52 09 7f 09 ┆ FIL - IOERR ? BCALL IOERR ┆
0x0d20…0d40 7f 3b 20 4a 41 20 2d 20 52 45 54 55 52 4e 20 4d 45 44 20 52 45 54 30 20 4f 47 20 49 4f 45 52 52 ┆ ; JA - RETURN MED RET0 OG IOERR┆
0x0d40…0d60 4b 4f 44 45 20 54 49 4c 20 42 41 53 49 43 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 31 36 2c 33 ┆KODE TIL BASIC STA 0,U.S16,3┆
0x0d60…0d80 09 7f 3b 20 4e 45 4a 20 2d 20 47 45 4d 20 4c 5b 53 54 20 42 59 54 45 20 49 20 55 2e 53 31 36 0d ┆ ; NEJ - GEM LÆST BYTE I U.S16 ┆
0x0d80…0da0 0a 09 7f 4d 4f 56 09 7f 30 2c 30 09 7f 53 4e 52 09 7f 3b 20 4c 5b 53 54 20 42 59 54 45 3d 43 48 ┆ MOV 0,0 SNR ; LÆST BYTE=CH┆
0x0da0…0dc0 52 28 30 29 20 3f 0d 0a 09 7f 4a 4d 50 09 7f 4e 55 4c 53 54 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 ┆R(0) ? JMP NULST ; JA - H┆
0x0dc0…0de0 4f 50 20 54 49 4c 20 4e 55 4c 53 54 0d 0a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 31 32 2c 33 09 7f ┆OP TIL NULST LDA 0,U.S12,3 ┆
0x0de0…0e00 3b 20 4e 45 4a 20 2d 20 48 45 4e 54 20 41 46 24 3d 2f 3c 3e 41 43 24 20 49 4e 44 49 4b 41 54 4f ┆; NEJ - HENT AF$=/<>AC$ INDIKATO┆
0x0e00…0e20 52 0d 0a 09 7f 4d 4f 56 09 7f 30 2c 30 09 7f 53 5a 52 09 7f 3b 20 49 4e 44 49 4b 41 54 4f 52 3d ┆R MOV 0,0 SZR ; INDIKATOR=┆
0x0e20…0e40 31 20 3f 0d 0a 09 7f 4a 4d 50 20 09 7f 4e 45 58 54 43 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 ┆1 ? JMP NEXTC ; JA - HOP┆
0x0e40…0e60 20 54 49 4c 20 4e 45 58 54 43 0d 0a 50 52 4f 43 3a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 31 37 2c ┆ TIL NEXTC PROC: LDA 0,U.S17,┆
0x0e60…0e80 33 09 7f 3b 20 4e 45 4a 20 2d 20 48 45 4e 54 20 54 5b 4c 4c 45 56 41 52 0d 0a 09 7f 4c 44 41 09 ┆3 ; NEJ - HENT TÆLLEVAR LDA ┆
0x0e80…0ea0 7f 31 2c 55 2e 53 31 35 2c 33 09 7f 3b 20 41 43 31 3d 4e 55 4d 0d 0a 09 7f 53 4e 45 09 7f 30 2c ┆ 1,U.S15,3 ; AC1=NUM SNE 0,┆
0x0ea0…0ec0 31 09 7f 09 7f 3b 20 54 5b 4c 4c 45 56 41 52 3d 4e 55 4d 20 3f 0d 0a 09 7f 4a 4d 50 09 7f 50 52 ┆1 ; TÆLLEVAR=NUM ? JMP PR┆
0x0ec0…0ee0 4f 43 31 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 20 54 49 4c 20 50 52 4f 43 31 0d 0a 09 7f 49 ┆OC1 ; JA - HOP TIL PROC1 I┆
0x0ee0…0f00 4e 43 09 7f 30 2c 30 09 7f 09 7f 3b 20 4e 45 4a 20 2d 20 54 5b 4c 4c 45 56 41 52 3d 54 5b 4c 4c ┆NC 0,0 ; NEJ - TÆLLEVAR=TÆLL┆
0x0f00…0f20 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@┆
[…0x3…]
0x0f80…0fa0 0d 0a 09 7f 4a 4d 50 09 7f 50 52 4f 43 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 20 54 49 4c 20 ┆ JMP PROC ; JA - HOP TIL ┆
0x0fa0…0fc0 50 52 4f 43 0d 0a 09 7f 53 55 42 5a 4c 09 7f 30 2c 30 09 7f 09 7f 3b 20 4e 45 4a 20 2d 20 53 45 ┆PROC SUBZL 0,0 ; NEJ - SE┆
0x0fc0…0fe0 47 4d 45 4e 54 20 4e 52 3d 31 0d 0a 09 7f 4c 44 41 09 7f 31 2c 55 2e 53 31 38 2c 33 09 7f 3b 20 ┆GMENT NR=1 LDA 1,U.S18,3 ; ┆
0x0fe0…1000 48 45 4e 54 20 43 55 52 20 42 59 54 45 41 44 52 20 41 46 24 0d 0a 09 7f 41 2e 47 42 59 54 45 09 ┆HENT CUR BYTEADR AF$ A.GBYTE ┆
0x1000…1020 7f 09 7f 09 7f 3b 20 48 45 4e 54 20 41 46 24 20 53 5c 47 45 42 59 54 45 20 54 49 4c 20 41 43 30 ┆ ; HENT AF$ SØGEBYTE TIL AC0┆
0x1020…1040 0d 0a 09 7f 4c 44 41 09 7f 32 2c 2e 36 33 09 7f 09 7f 3b 20 41 43 32 3d 36 33 0d 0a 09 7f 41 44 ┆ LDA 2,.63 ; AC2=63 AD┆
0x1040…1060 44 09 7f 32 2c 31 09 7f 09 7f 3b 20 41 43 31 3d 36 33 2b 42 59 54 45 41 44 52 20 41 46 24 0d 0a ┆D 2,1 ; AC1=63+BYTEADR AF$ ┆
0x1060…1080 09 7f 53 54 41 09 7f 31 2c 55 2e 53 31 38 2c 33 09 7f 3b 20 47 45 4d 20 43 55 52 20 42 59 54 45 ┆ STA 1,U.S18,3 ; GEM CUR BYTE┆
0x1080…10a0 41 44 52 20 41 46 24 20 49 20 55 2e 53 31 38 0d 0a 09 7f 4d 4f 56 09 7f 30 2c 30 09 7f 53 4e 52 ┆ADR AF$ I U.S18 MOV 0,0 SNR┆
0x10a0…10c0 09 7f 3b 20 41 46 24 2d 42 59 54 45 3d 43 48 52 28 30 29 20 3f 0d 0a 09 7f 4a 4d 50 09 7f 43 48 ┆ ; AF$-BYTE=CHR(0) ? JMP CH┆
0x10c0…10e0 45 43 4b 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 20 54 49 4c 20 43 48 45 43 4b 0d 0a 09 7f 4c ┆ECK ; JA - HOP TIL CHECK L┆
0x10e0…1100 44 41 09 7f 32 2c 43 55 52 09 7f 09 7f 3b 20 4e 45 4a 20 2d 20 41 43 32 3d 43 55 52 0d 0a 09 7f ┆DA 2,CUR ; NEJ - AC2=CUR ┆
0x1100…1120 4c 44 41 09 7f 31 2c 55 2e 53 31 36 2c 33 09 7f 3b 20 41 43 31 3d 4c 5b 53 54 20 42 59 54 45 20 ┆LDA 1,U.S16,3 ; AC1=LÆST BYTE ┆
0x1120…1140 46 52 41 20 46 49 4c 0d 0a 09 7f 53 4e 45 09 7f 30 2c 31 09 7f 09 7f 3b 20 41 43 24 3c 3e 41 46 ┆FRA FIL SNE 0,1 ; AC$<>AF┆
0x1140…1160 24 20 3f 0d 0a 09 7f 4a 4d 50 09 7f 50 52 4f 43 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 20 54 ┆$ ? JMP PROC ; JA - HOP T┆
0x1160…1180 49 4c 20 50 52 4f 43 0d 0a 09 7f 53 55 42 5a 4c 09 7f 30 2c 30 09 7f 09 7f 3b 20 4e 45 4a 20 2d ┆IL PROC SUBZL 0,0 ; NEJ -┆
0x1180…11a0 20 41 43 30 3d 31 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 31 32 2c 33 09 7f 3b 20 47 45 4d 20 ┆ AC0=1 STA 0,U.S12,3 ; GEM ┆
0x11a0…11c0 49 4e 44 49 4b 41 54 4f 52 3d 31 20 49 20 55 2e 53 31 32 0d 0a 09 7f 4a 4d 50 09 7f 4e 45 58 54 ┆INDIKATOR=1 I U.S12 JMP NEXT┆
0x11c0…11e0 43 09 7f 09 7f 3b 20 48 4f 50 20 54 49 4c 20 4e 45 58 54 43 0d 0a 50 52 4f 43 31 3a 09 7f 4c 44 ┆C ; HOP TIL NEXTC PROC1: LD┆
0x11e0…1200 41 09 7f 30 2c 55 2e 53 31 39 2c 33 09 7f 3b 20 48 45 4e 54 20 43 55 52 20 42 59 54 45 41 44 52 ┆A 0,U.S19,3 ; HENT CUR BYTEADR┆
0x1200…1220 20 41 46 24 0d 0a 09 7f 49 4e 43 09 7f 30 2c 30 09 7f 09 7f 3b 20 42 59 54 45 41 44 52 3d 42 59 ┆ AF$ INC 0,0 ; BYTEADR=BY┆
0x1220…1240 54 45 41 44 52 2b 31 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 31 38 2c 33 09 7f 3b 20 47 45 4d ┆TEADR+1 STA 0,U.S18,3 ; GEM┆
0x1240…1260 20 42 59 54 45 41 44 52 20 41 46 24 20 49 20 55 2e 53 31 38 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 ┆ BYTEADR AF$ I U.S18 STA 0,U┆
0x1260…1280 2e 53 31 39 2c 33 09 7f 3b 20 47 45 4d 20 42 59 54 45 41 44 52 20 41 46 24 20 49 20 55 2e 53 31 ┆.S19,3 ; GEM BYTEADR AF$ I U.S1┆
0x1280…12a0 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@┆
[…0x3…]
0x1300…1320 09 7f 3b 20 41 43 30 3d 42 59 54 45 20 4c 5b 53 54 20 46 52 41 20 46 49 4c 0d 0a 09 7f 41 2e 50 ┆ ; AC0=BYTE LÆST FRA FIL A.P┆
0x1320…1340 42 59 54 45 09 7f 09 7f 09 7f 3b 20 47 45 4d 20 42 59 54 45 20 42 4f 52 54 20 49 0d 0a 09 7f 31 ┆BYTE ; GEM BYTE BORT I 1┆
0x1340…1360 09 7f 09 7f 09 7f 3b 20 44 41 54 41 53 45 47 4d 45 4e 54 3d 31 0d 0a 09 7f 49 4e 43 09 7f 31 2c ┆ ; DATASEGMENT=1 INC 1,┆
0x1360…1380 31 09 7f 09 7f 3b 20 43 55 52 20 42 59 54 45 41 44 52 3d 43 55 52 20 42 59 54 45 41 44 52 2b 31 ┆1 ; CUR BYTEADR=CUR BYTEADR+1┆
0x1380…13a0 0d 0a 09 7f 53 54 41 09 7f 31 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 47 45 4d 20 43 55 52 20 42 59 ┆ STA 1,U.S00,3 ; GEM CUR BY┆
0x13a0…13c0 54 45 41 44 52 20 41 43 24 20 49 20 55 2e 53 30 30 0d 0a 09 7f 4a 4d 50 09 7f 4e 45 58 54 43 0d ┆TEADR AC$ I U.S00 JMP NEXTC ┆
0x13c0…13e0 0a 4e 55 4c 53 54 3a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 31 32 2c 33 09 7f 3b 20 48 45 4e 54 20 ┆ NULST: LDA 0,U.S12,3 ; HENT ┆
0x13e0…1400 41 46 24 3d 2f 3c 3e 41 43 24 20 49 4e 44 49 4b 41 54 4f 52 0d 0a 09 7f 4d 4f 56 09 7f 30 2c 30 ┆AF$=/<>AC$ INDIKATOR MOV 0,0┆
0x1400…1420 09 7f 09 7f 53 5a 52 09 7f 3b 20 49 4e 44 49 4b 41 54 4f 52 3d 31 20 3f 0d 0a 09 7f 4a 4d 50 09 ┆ SZR ; INDIKATOR=1 ? JMP ┆
0x1420…1440 7f 4e 45 58 54 53 09 7f 09 7f 3b 20 4a 41 20 2d 20 48 4f 50 20 54 49 4c 20 4e 45 58 54 53 0d 0a ┆ NEXTS ; JA - HOP TIL NEXTS ┆
0x1440…1460 09 7f 4c 44 41 09 7f 31 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 4e 45 4a 20 2d 20 41 43 31 3d 4e 45 ┆ LDA 1,U.S00,3 ; NEJ - AC1=NE┆
0x1460…1480 58 54 20 4d 41 58 2d 42 59 54 45 41 44 52 20 41 43 24 0d 0a 09 7f 53 55 42 09 7f 30 2c 30 09 7f ┆XT MAX-BYTEADR AC$ SUB 0,0 ┆
0x1480…14a0 09 7f 3b 20 41 43 30 3d 30 0d 0a 09 7f 41 2e 50 42 59 54 45 09 7f 09 7f 09 7f 3b 20 47 45 4d 20 ┆ ; AC0=0 A.PBYTE ; GEM ┆
0x14a0…14c0 3c 30 3e 20 42 59 54 45 20 49 20 44 41 54 41 53 45 47 4d 45 4e 54 0d 0a 09 7f 31 09 7f 09 7f 09 ┆<0> BYTE I DATASEGMENT 1 ┆
0x14c0…14e0 7f 3b 20 53 45 47 4d 45 4e 54 20 4e 52 3d 31 0d 0a 09 7f 4c 44 41 09 7f 30 2c 55 2e 53 30 31 2c ┆ ; SEGMENT NR=1 LDA 0,U.S01,┆
0x14e0…1500 33 09 7f 3b 20 48 45 4e 54 20 4e 45 58 54 20 42 59 54 45 41 44 52 20 41 43 24 0d 0a 09 7f 53 54 ┆3 ; HENT NEXT BYTEADR AC$ ST┆
0x1500…1520 41 09 7f 30 2c 45 28 54 55 11 11 49 01 83 09 21 01 02 86 87 ff ff ff ff ff ff ff ff ff ff ff ff ┆A 0,E(TU I ! ┆
0x1520…1540 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff fd 7f ff ff ff f9 7b 65 ┆ æe┆
0x1540…1560 e0 08 14 ee 14 e0 85 b4 45 00 24 af 30 42 04 52 01 a2 30 0d d0 82 16 10 10 d3 c8 38 56 76 79 f9 ┆ E $ 0B R 0 8Vvy ┆
0x1560…1580 7f ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1580…15a0 20 54 5b 4c 4c 45 56 41 52 3d 37 20 3f 0d 0a 09 7f 4a 4d 50 09 7f 4e 45 58 54 53 09 7f 09 7f 3b ┆ TÆLLEVAR=7 ? JMP NEXTS ;┆
0x15a0…15c0 20 4e 45 4a 20 2d 20 48 4f 50 20 54 49 4c 20 4e 45 58 54 53 0d 0a 09 7f 53 55 42 09 7f 31 2c 31 ┆ NEJ - HOP TIL NEXTS SUB 1,1┆
0x15c0…15e0 09 7f 09 7f 3b 20 4a 41 20 2d 20 41 43 31 3d 30 0d 0a 09 7f 53 54 41 09 7f 31 2c 55 2e 53 31 31 ┆ ; JA - AC1=0 STA 1,U.S11┆
0x15e0…1600 2c 33 09 7f 3b 20 47 45 4d 20 54 5b 4c 4c 45 56 41 52 3d 30 20 49 20 55 2e 53 31 31 0d 0a 09 7f ┆,3 ; GEM TÆLLEVAR=0 I U.S11 ┆
0x1600…1620 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@┆
[…0x2f…]