|
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: 20992 (0x5200)
Names: »PAED4«
└─⟦2d999d709⟧ Bits:30001813 SG0112 Floppy
└─ ⟦this⟧ »/PAED4«
0x0000…0020 3b 20 50 4c 20 41 4c 4d 45 4e 20 46 49 4c 45 44 49 54 4f 52 20 31 2e 30 33 20 2f 37 2d 39 2e 34 ┆; PL ALMEN FILEDITOR 1.03 /7-9.4┆ 0x0020…0040 2e 38 34 2f 20 4d 45 53 54 20 45 4c 45 4d 45 4e 54 5b 52 20 56 45 52 53 49 4f 4e 0d 0a 3b 20 46 ┆.84/ MEST ELEMENTÆR VERSION ; F┆ 0x0040…0060 5c 52 53 54 45 20 4b 5c 52 45 4e 44 45 20 55 44 47 41 56 45 20 28 55 46 55 4c 44 53 54 2e 20 26 ┆ØRSTE KØRENDE UDGAVE (UFULDST. &┆ 0x0060…0080 20 4d 45 44 20 46 45 4a 4c 2e 2e 2e 29 20 31 31 2e 34 2e 38 34 20 4b 4c 20 31 37 0d 0a 3b 20 41 ┆ MED FEJL...) 11.4.84 KL 17 ; A┆ 0x0080…00a0 4e 44 45 4e 20 55 44 47 2e 20 56 45 52 53 2e 20 31 2e 30 33 20 55 4e 44 45 52 20 55 44 56 49 4b ┆NDEN UDG. VERS. 1.03 UNDER UDVIK┆ 0x00a0…00c0 4c 49 4e 47 20 28 46 52 41 20 31 33 2e 34 2e 38 34 29 0d 0a 3b 20 46 4f 52 54 53 41 54 20 55 44 ┆LING (FRA 13.4.84) ; FORTSAT UD┆ 0x00c0…00e0 56 49 4b 4c 20 31 34 2e 34 2e 38 34 20 45 46 54 45 52 4d 0d 0a 3b 20 31 35 2e 34 2e 38 34 20 4d ┆VIKL 14.4.84 EFTERM ; 15.4.84 M┆ 0x00e0…0100 5d 53 53 4b 45 20 49 20 4f 47 20 4b 20 46 5b 52 44 49 47 20 21 20 46 49 4c 4e 41 56 4e 20 4e 55 ┆ÅSSKE I OG K FÆRDIG ! FILNAVN NU┆ 0x0100…0120 20 50 41 45 44 34 20 21 0d 0a 0d 0a 09 7f 2e 54 49 54 4c 20 50 45 44 49 54 20 0d 0a 09 7f 2e 4e ┆ PAED4 ! .TITL PEDIT .N┆ 0x0120…0140 52 45 4c 20 0d 0a 09 7f 2e 52 44 58 4f 20 31 36 20 0d 0a 09 7f 2e 52 44 58 20 31 30 20 0d 0a 09 ┆REL .RDXO 16 .RDX 10 ┆ 0x0140…0160 7f 2e 54 58 54 4d 20 31 20 0d 0a 09 7f 2e 54 58 54 4e 20 31 20 0d 0a 50 47 44 53 3a 09 7f 31 42 ┆ .TXTM 1 .TXTN 1 PGDS: 1B┆ 0x0160…0180 30 2b 31 42 35 2b 31 42 31 35 09 7f 3b 50 52 4f 47 52 41 4d 44 45 53 43 52 49 50 54 4f 52 20 28 ┆0+1B5+1B15 ;PROGRAMDESCRIPTOR (┆ 0x0180…01a0 37 20 57 4f 52 44 53 29 20 0d 0a 09 7f 4c 41 42 30 30 20 0d 0a 09 7f 30 20 0d 0a 09 7f 50 43 44 ┆7 WORDS) LAB00 0 PCD┆ 0x01a0…01c0 53 2d 50 47 44 53 20 0d 0a 09 7f 2e 54 58 54 20 27 46 45 44 49 54 27 20 0d 0a 0d 0a 2e 4e 4f 4c ┆S-PGDS .TXT 'FEDIT' .NOL┆ 0x01c0…01e0 4f 43 20 31 0d 0a 4c 41 42 30 30 3a 09 7f 2e 54 58 54 20 22 3c 31 30 3e 3c 31 30 3e 20 47 45 4e ┆OC 1 LAB00: .TXT "<10><10> GEN┆ 0x01e0…0200 2e 20 46 49 4c 2d 45 44 49 54 4f 52 20 3c 31 33 3e 3c 31 30 3e 20 50 4c 20 41 50 52 49 4c 20 38 ┆. FIL-EDITOR <13><10> PL APRIL 8┆ 0x0200…0220 34 20 2f 20 56 45 52 53 2e 20 31 2e 30 33 3c 31 30 3e 3c 31 30 3e 0d 0a 0d 0a 3c 31 33 3e 3c 31 ┆4 / VERS. 1.03<10><10> <13><1┆ 0x0220…0240 30 3e 20 4f 3a 20 3c 33 34 3e 4f 43 54 41 4c 43 4f 50 59 3c 33 34 3e 20 4b 4f 50 49 45 52 49 4e ┆0> O: <34>OCTALCOPY<34> KOPIERIN┆ 0x0240…0260 47 20 55 44 45 4e 4f 4d 20 42 55 46 46 45 52 0d 0a 3c 31 33 3e 3c 31 30 3e 20 59 3a 20 4c 5b 53 ┆G UDENOM BUFFER <13><10> Y: LÆS┆ 0x0260…0280 20 53 49 44 45 20 54 49 4c 20 42 55 46 46 45 52 0d 0a 3c 31 33 3e 3c 31 30 3e 20 50 3a 20 3c 33 ┆ SIDE TIL BUFFER <13><10> P: <3┆ 0x0280…02a0 34 3e 50 55 54 3c 33 34 3e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 54 49 4c 20 4e 59 20 46 ┆4>PUT<34> OUTPUT BUFFER TIL NY F┆ 0x02a0…02c0 49 4c 0d 0a 3c 31 33 3e 3c 31 30 3e 20 52 3a 20 3c 33 34 3e 52 45 50 45 41 54 3c 33 34 3e 3a 20 ┆IL <13><10> R: <34>REPEAT<34>: ┆ 0x02c0…02e0 31 29 50 20 32 29 59 0d 0a 3c 31 33 3e 3c 31 30 3e 20 54 3a 20 3c 33 34 3e 54 59 50 45 3c 33 34 ┆1)P 2)Y <13><10> T: <34>TYPE<34┆ 0x02e0…0300 3e 20 53 4b 52 49 56 20 53 49 44 45 4e 20 55 44 20 46 52 41 20 42 55 46 46 45 52 20 54 49 4c 20 ┆> SKRIV SIDEN UD FRA BUFFER TIL ┆ 0x0300…0320 53 4b 5b 52 4d 0d 0a 3c 31 33 3e 3c 31 30 3e 20 2e 3a 20 55 44 53 4b 52 49 56 20 31 36 20 54 45 ┆SKÆRM <13><10> .: UDSKRIV 16 TE┆ 0x0320…0340 47 4e 20 46 52 41 20 41 4b 54 55 45 4c 4c 45 20 50 4f 53 49 54 49 4f 4e 0d 0a 3c 31 33 3e 3c 31 ┆GN FRA AKTUELLE POSITION <13><1┆ 0x0340…0360 30 3e 20 4d 3a 20 4d 4f 56 45 20 41 4e 54 41 4c 20 54 45 47 4e 20 2a 20 45 58 3a 20 4d 37 2c 20 ┆0> M: MOVE ANTAL TEGN * EX: M7, ┆ 0x0360…0380 4d 2b 37 2c 20 4d 2d 37 2c 20 4d 47 20 28 4d 4f 56 45 20 31 36 20 50 4c 2e 29 0d 0a 3c 31 33 3e ┆M+7, M-7, MG (MOVE 16 PL.) <13>┆ 0x0380…03a0 3c 31 30 3e 20 4c 3a 20 4c 49 4e 45 4d 4f 56 45 20 20 20 20 20 20 20 20 2a 20 45 58 3a 20 4c 37 ┆<10> L: LINEMOVE * EX: L7┆ 0x03a0…03c0 2c 20 4c 2b 37 2c 20 4c 2d 37 20 28 45 58 41 43 54 20 4c 4f 44 52 45 54 21 29 0d 0a 3c 31 33 3e ┆, L+7, L-7 (EXACT LODRET!) <13>┆ 0x03c0…03e0 3c 31 30 3e 20 49 3a 20 49 4e 53 45 52 54 20 20 20 20 20 20 20 20 20 20 2a 20 45 58 3a 20 49 20 ┆<10> I: INSERT * EX: I ┆ 0x03e0…0400 54 20 45 20 53 20 54 30 44 30 41 0d 0a 3c 31 33 3e 3c 31 30 3e 20 4b 3a 20 4b 49 4c 4c 20 41 4e ┆T E S T0D0A <13><10> K: KILL AN┆ 0x0400…0420 54 41 4c 20 54 45 47 4e 20 2a 20 45 58 3a 20 4b 37 2c 20 4b 2b 37 2c 20 4b 47 0d 0a 3c 31 33 3e ┆TAL TEGN * EX: K7, K+7, KG <13>┆ 0x0420…0440 3c 31 30 3e 20 53 3a 20 53 45 41 52 43 48 20 42 59 54 45 20 20 20 20 20 2a 20 45 58 3a 20 53 30 ┆<10> S: SEARCH BYTE * EX: S0┆ 0x0440…0460 41 2c 20 53 20 41 2c 20 53 34 31 20 20 28 34 31 3d 20 41 29 0d 0a 3c 31 33 3e 3c 31 30 3e 20 43 ┆A, S A, S41 (41= A) <13><10> C┆ 0x0460…0480 3a 20 55 44 53 4b 49 46 54 20 20 20 20 20 20 20 20 20 2a 20 45 58 3a 20 43 20 41 5f 20 42 0d 0a ┆: UDSKIFT * EX: C A_ B ┆ 0x0480…04a0 3c 31 33 3e 3c 31 30 3e 20 48 3a 20 48 4f 4d 45 20 28 26 20 43 4c 4f 53 45 29 0d 0a 3c 31 33 3e ┆<13><10> H: HOME (& CLOSE) <13>┆ 0x04a0…04c0 3c 31 30 3e 3c 31 30 3e 20 4b 4f 4d 4d 41 4e 44 4f 45 52 3a 20 4f 2c 20 59 2c 20 50 2c 20 52 2c ┆<10><10> KOMMANDOER: O, Y, P, R,┆ 0x04c0…04e0 20 54 2c 20 2e 2c 20 4d 2c 20 4c 2c 20 49 2c 20 4b 2c 20 53 2c 20 43 2c 20 48 28 49 4e 43 4c 20 ┆ T, ., M, L, I, K, S, C, H(INCL ┆ 0x04e0…0500 43 4c 4f 53 45 21 29 0d 0a 3c 31 33 3e 3c 31 30 3e 20 49 4d 50 4c 3a 20 20 20 20 20 20 20 4f 2c ┆CLOSE!) <13><10> IMPL: O,┆ 0x0500…0520 20 59 2c 20 50 2c 20 52 2c 20 54 2c 20 2e 2c 20 4d 2c 20 4c 2c 20 49 2c 20 4b 2c 20 20 20 20 20 ┆ Y, P, R, T, ., M, L, I, K, ┆ 0x0520…0540 20 20 48 3c 31 33 3e 3c 31 30 3e 0d 0a 0d 0a 20 55 44 4f 56 45 52 20 4b 4f 4d 4d 41 4e 44 4f 45 ┆ H<13><10> UDOVER KOMMANDOE┆ 0x0540…0560 52 20 45 52 20 49 4e 50 55 54 20 50 52 20 42 59 54 45 3a 20 48 48 20 45 4c 4c 45 52 20 3c 36 30 ┆R ER INPUT PR BYTE: HH ELLER <60┆ 0x0560…0580 3e 53 50 41 43 45 3e 3c 36 30 3e 54 45 47 4e 3e 3c 30 3e 22 0d 0a 0d 0a 46 54 58 54 3a 09 7f 46 ┆>SPACE><60>TEGN><0>" FTXT: F┆ 0x0580…05a0 55 54 30 2a 32 0d 0a 09 7f 46 55 54 31 2a 32 0d 0a 09 7f 46 55 54 32 2a 32 0d 0a 09 7f 46 55 54 ┆UT0*2 FUT1*2 FUT2*2 FUT┆ 0x05a0…05c0 33 2a 32 0d 0a 09 7f 46 55 54 34 2a 32 0d 0a 09 7f 46 55 54 35 2a 32 0d 0a 46 55 54 30 3a 0d 0a ┆3*2 FUT4*2 FUT5*2 FUT0: ┆ 0x05c0…05e0 46 55 54 31 3a 09 7f 2e 54 58 54 09 7f 22 3c 31 33 3e 3c 31 30 3e 20 2a 2a 2a 20 49 4b 4b 45 20 ┆FUT1: .TXT "<13><10> *** IKKE ┆ 0x05e0…0600 49 4d 50 4c 20 2a 2a 2a 3c 31 33 3e 3c 31 30 3e 3c 30 3e 22 0d 0a 46 55 54 32 3a 09 7f 2e 54 58 ┆IMPL ***<13><10><0>" FUT2: .TX┆ 0x0600…0620 54 09 7f 22 3c 31 33 3e 3c 31 30 3e 20 2a 2a 2a 20 42 55 46 46 45 52 20 46 55 4c 44 20 2a 2a 2a ┆T "<13><10> *** BUFFER FULD ***┆ 0x0620…0640 3c 31 33 3e 3c 31 30 3e 3c 30 3e 22 0d 0a 46 55 54 33 3a 0d 0a 46 55 54 34 3a 0d 0a 46 55 54 35 ┆<13><10><0>" FUT3: FUT4: FUT5┆ 0x0640…0660 3a 09 7f 2e 54 58 54 09 7f 22 3c 31 33 3e 3c 31 30 3e 41 4e 44 45 4e 20 46 45 4a 4c 3c 31 33 3e ┆: .TXT "<13><10>ANDEN FEJL<13>┆ 0x0660…0680 3c 31 30 3e 3c 30 3e 22 0d 0a 0d 0a 0d 0a 54 45 4b 53 54 3a 09 7f 4c 41 42 30 30 2a 32 0d 0a 09 ┆<10><0>" TEKST: LAB00*2 ┆ 0x0680…06a0 7f 09 7f 09 7f 2e 4e 4f 4c 4f 43 20 30 0d 0a 20 3b 20 3d 3d 3d 20 46 45 4a 4c 20 3d 3d 3d 0d 0a ┆ .NOLOC 0 ; === FEJL === ┆ 0x06a0…06c0 09 7f 09 7f 3b 20 43 41 4c 4c 3a 20 46 45 4a 4c 4e 52 09 7f 2e 09 7f 2e 09 7f 28 43 55 52 29 0d ┆ ; CALL: FEJLNR . . (CUR) ┆ 0x06c0…06e0 0a 46 45 4a 4c 38 3a 09 7f 46 54 58 54 0d 0a 46 45 4a 4c 39 3a 09 7f 46 54 58 54 0d 0a 46 45 4a ┆ FEJL8: FTXT FEJL9: FTXT FEJ┆ 0x06e0…0700 4c 30 3a 09 7f 30 0d 0a 53 45 41 52 31 3a 0d 0a 43 48 41 4e 31 3a 0d 0a 46 45 4a 4c 31 3a 09 7f ┆L0: 0 SEAR1: CHAN1: FEJL1: ┆ 0x0700…0720 49 4e 43 20 30 2c 31 0d 0a 09 7f 53 54 41 20 31 2c 46 45 4a 4c 30 0d 0a 09 7f 4c 44 41 20 33 2c ┆INC 0,1 STA 1,FEJL0 LDA 3,┆ 0x0720…0740 46 45 4a 4c 38 0d 0a 09 7f 53 54 41 20 33 2c 46 45 4a 4c 39 0d 0a 09 7f 49 53 5a 20 46 45 4a 4c ┆FEJL8 STA 3,FEJL9 ISZ FEJL┆ 0x0740…0760 39 0d 0a 09 7f 44 53 5a 20 46 45 4a 4c 30 0d 0a 09 7f 4a 4d 50 20 2e 2d 32 0d 0a 09 7f 4c 44 41 ┆9 DSZ FEJL0 JMP .-2 LDA┆ 0x0760…0780 20 33 2c 43 55 52 0d 0a 09 7f 4c 44 41 20 30 2c 2e 33 0d 0a 09 7f 47 4f 50 0d 0a 09 7f 4c 44 41 ┆ 3,CUR LDA 0,.3 GOP LDA┆ 0x0780…07a0 20 30 2c 46 45 4a 4c 39 20 40 0d 0a 09 7f 4f 55 54 54 45 58 54 0d 0a 09 7f 4c 44 41 20 31 2c 2e ┆ 0,FEJL9 @ OUTTEXT LDA 1,.┆ 0x07a0…07c0 33 32 0d 0a 09 7f 4f 55 54 45 4e 44 0d 0a 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4f 50 45 ┆32 OUTEND LDA 3,CUR OPE┆ 0x07c0…07e0 52 41 0d 0a 0d 0a 0d 0a 43 4f 55 4e 39 3a 20 43 4f 55 4e 30 0d 0a 42 49 52 54 4b 3a 20 35 38 2a ┆RA COUN9: COUN0 BIRTK: 58*┆ 0x07e0…0800 32 35 36 2b 31 0d 0a 50 41 52 41 44 3a 20 30 0d 0a 42 49 52 54 48 3a 09 7f 09 7f 09 7f 3b 20 48 ┆256+1 PARAD: 0 BIRTH: ; H┆ 0x0800…0820 45 52 20 53 54 41 52 54 45 52 20 50 52 4f 47 52 2e 49 4e 53 54 52 55 4b 54 49 4f 4e 45 52 20 4e ┆ER STARTER PROGR.INSTRUKTIONER N┆ 0x0820…0840 5d 52 20 50 52 4f 47 2e 20 4c 4f 41 44 45 53 3a 0d 0a 09 7f 53 54 41 20 31 2c 50 41 52 41 44 0d ┆ÅR PROG. LOADES: STA 1,PARAD ┆ 0x0840…0860 0a 09 7f 4d 4f 56 20 31 2c 32 09 7f 09 7f 3b 0d 0a 09 7f 4c 44 41 20 30 2c 35 2c 32 0d 0a 09 7f ┆ MOV 1,2 ; LDA 0,5,2 ┆ 0x0860…0880 4d 4f 56 20 30 2c 30 2c 53 4e 52 0d 0a 09 7f 4a 4d 50 20 20 44 45 41 44 31 09 7f 3b 20 48 56 49 ┆MOV 0,0,SNR JMP DEAD1 ; HVI┆ 0x0880…08a0 53 20 44 45 52 20 49 4b 4b 45 20 45 52 20 50 41 52 41 4d 20 49 20 4c 4f 41 44 4b 4f 4d 4d 41 4e ┆S DER IKKE ER PARAM I LOADKOMMAN┆ 0x08a0…08c0 44 4f 45 4e 0d 0a 09 7f 4c 44 41 20 30 2c 37 2c 32 0d 0a 09 7f 4c 44 41 20 33 2c 46 49 41 44 0d ┆DOEN LDA 0,7,2 LDA 3,FIAD ┆ 0x08c0…08e0 0a 09 7f 53 54 41 20 30 2c 30 2c 33 0d 0a 09 7f 4c 44 41 20 30 2c 38 2c 32 0d 0a 09 7f 53 54 41 ┆ STA 0,0,3 LDA 0,8,2 STA┆ 0x08e0…0900 20 30 2c 31 2c 33 0d 0a 09 7f 4c 44 41 20 30 2c 39 2c 32 0d 0a 09 7f 4c 44 41 20 31 2c 31 32 2c ┆ 0,1,3 LDA 0,9,2 LDA 1,12,┆ 0x0900…0920 32 0d 0a 09 7f 41 44 44 20 31 2c 30 0d 0a 09 7f 53 54 41 20 30 2c 32 2c 33 0d 0a 09 7f 0d 0a 09 ┆2 ADD 1,0 STA 0,2,3 ┆ 0x0920…0940 7f 4d 4f 56 20 33 2c 32 20 3b 20 48 55 53 4b 20 41 43 31 3d 44 45 56 49 43 45 0d 0a 09 7f 49 4e ┆ MOV 3,2 ; HUSK AC1=DEVICE IN┆ 0x0940…0960 49 54 43 0d 0a 09 7f 4c 44 41 20 30 2c 2e 31 0d 0a 09 7f 4c 44 41 20 31 2c 2e 30 0d 0a 09 7f 43 ┆ITC LDA 0,.1 LDA 1,.0 C┆ 0x0960…0980 52 45 41 54 0d 0a 09 7f 4c 44 41 20 30 2c 2e 33 0d 0a 09 7f 4f 50 45 4e 0d 0a 09 7f 0d 0a 09 7f ┆REAT LDA 0,.3 OPEN ┆ 0x0980…09a0 4c 44 41 20 33 2c 50 41 52 41 44 0d 0a 09 7f 4c 44 41 20 32 2c 49 4e 41 44 0d 0a 09 7f 4c 44 41 ┆LDA 3,PARAD LDA 2,INAD LDA┆ 0x09a0…09c0 20 30 2c 31 34 2c 33 0d 0a 09 7f 4d 4f 56 20 30 2c 30 2c 53 5a 52 0d 0a 09 7f 4a 4d 50 20 42 49 ┆ 0,14,3 MOV 0,0,SZR JMP BI┆ 0x09c0…09e0 32 0d 0a 09 7f 4c 44 41 20 30 2c 31 35 2c 33 0d 0a 09 7f 53 54 41 20 30 2c 30 2c 32 0d 0a 09 7f ┆2 LDA 0,15,3 STA 0,0,2 ┆ 0x09e0…0a00 4c 44 41 20 30 2c 31 36 2c 33 0d 0a 09 7f 53 54 41 20 30 2c 31 2c 32 0d 0a 09 7f 4c 44 41 20 30 ┆LDA 0,16,3 STA 0,1,2 LDA 0┆ 0x0a00…0a20 2c 31 37 2c 33 0d 0a 09 7f 09 7f 4c 44 41 20 32 2c 42 49 52 54 4b 0d 0a 09 7f 09 7f 4c 44 41 20 ┆,17,3 LDA 2,BIRTK LDA ┆ 0x0a20…0a40 31 2c 31 39 2c 33 0d 0a 09 7f 09 7f 53 55 42 20 31 2c 32 2c 53 5a 52 0d 0a 09 7f 09 7f 4a 4d 50 ┆1,19,3 SUB 1,2,SZR JMP┆ 0x0a40…0a60 20 42 49 32 0d 0a 09 7f 09 7f 4c 44 41 20 31 2c 32 30 2c 33 0d 0a 09 7f 09 7f 41 44 44 20 31 2c ┆ BI2 LDA 1,20,3 ADD 1,┆ 0x0a60…0a80 30 0d 0a 09 7f 09 7f 4c 44 41 20 32 2c 49 4e 41 44 0d 0a 0d 0a 09 7f 4c 44 41 20 31 2c 32 31 2c ┆0 LDA 2,INAD LDA 1,21,┆ 0x0a80…0aa0 33 0d 0a 09 7f 4d 4f 56 20 31 2c 31 2c 53 4e 52 0d 0a 09 7f 4a 4d 50 20 2e 2b 33 0d 0a 09 7f 4c ┆3 MOV 1,1,SNR JMP .+3 L┆ 0x0aa0…0ac0 44 41 20 31 2c 32 33 2c 33 0d 0a 09 7f 53 54 41 20 20 40 20 31 2c 43 4f 55 4e 39 0d 0a 42 49 32 ┆DA 1,23,3 STA @ 1,COUN9 BI2┆ 0x0ac0…0ae0 3a 09 7f 4c 44 41 20 32 2c 49 4e 41 44 0d 0a 09 7f 53 54 41 20 30 2c 32 2c 32 0d 0a 0d 0a 09 7f ┆: LDA 2,INAD STA 0,2,2 ┆ 0x0ae0…0b00 4c 44 41 20 30 2c 2e 31 0d 0a 09 7f 4f 50 45 4e 0d 0a 09 7f 4c 44 41 20 32 2c 4c 50 41 44 20 3b ┆LDA 0,.1 OPEN LDA 2,LPAD ;┆ 0x0b00…0b20 20 4c 50 54 20 4c 4f 47 5a 4f 4e 45 0d 0a 09 7f 4c 44 41 20 30 2c 2e 33 0d 0a 09 7f 4c 44 41 20 ┆ LPT LOGZONE LDA 0,.3 LDA ┆ 0x0b20…0b40 33 2c 43 55 52 0d 0a 09 7f 4c 50 44 0d 0a 09 7f 4f 50 45 4e 0d 0a 09 7f 4c 44 41 20 33 2c 43 55 ┆3,CUR LPD OPEN LDA 3,CU┆ 0x0b40…0b60 52 0d 0a 09 7f 4c 44 41 20 30 2c 54 45 4b 53 54 0d 0a 09 7f 4c 50 44 0d 0a 09 7f 4f 55 54 54 45 ┆R LDA 0,TEKST LPD OUTTE┆ 0x0b60…0b80 58 54 0d 0a 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4c 50 44 57 0d 0a 09 7f 4c 44 41 20 30 ┆XT LDA 3,CUR LPDW LDA 0┆ 0x0b80…0ba0 2c 2e 33 0d 0a 09 7f 47 4f 50 0d 0a 09 7f 4c 44 41 20 30 2c 54 45 4b 53 54 0d 0a 09 7f 4f 55 54 ┆,.3 GOP LDA 0,TEKST OUT┆ 0x0ba0…0bc0 54 45 58 54 0d 0a 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4f 4e 4c 0d 0a 0d 0a 4f 50 45 52 ┆TEXT LDA 3,CUR ONL OPER┆ 0x0bc0…0be0 31 3a 0d 0a 09 7f 49 53 5a 20 4f 50 45 52 34 0d 0a 09 7f 53 54 41 20 33 2c 4f 50 45 52 33 0d 0a ┆1: ISZ OPER4 STA 3,OPER3 ┆ 0x0be0…0c00 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 49 4e 54 4b 0d 0a 4a 4d 50 20 40 20 31 34 2c 31 0d ┆ LDA 3,CUR INTK JMP @ 14,1 ┆ 0x0c00…0c20 0a 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 09 7f 4a 4d 50 ┆ JMP @ 14,1 JMP @ 14,1 JMP┆ 0x0c20…0c40 20 40 20 31 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 20 0d 0a 09 7f 4a 4d 50 20 40 ┆ @ 14,1 JMP @ 14,1 JMP @┆ 0x0c40…0c60 20 31 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 ┆ 14,1 JMP @ 14,1 JMP @ 1┆ 0x0c60…0c80 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c ┆4,1 JMP @ 14,1 JMP @ 14,┆ 0x0c80…0ca0 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d ┆1 JMP @ 14,1 JMP @ 14,1 ┆ 0x0ca0…0cc0 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 20 09 7f 4a 4d 50 20 40 20 31 34 2c 31 0d 0a 4f ┆ JMP @ 14,1 JMP @ 14,1 O┆ 0x0cc0…0ce0 53 49 44 31 0d 0a 59 53 49 44 31 0d 0a 50 53 49 44 31 0d 0a 52 53 49 44 31 0d 0a 54 59 50 45 31 ┆SID1 YSID1 PSID1 RSID1 TYPE1┆ 0x0ce0…0d00 0d 0a 54 46 45 4d 31 0d 0a 4d 4f 56 45 31 0d 0a 4c 4d 4f 56 31 0d 0a 49 4e 53 45 31 0d 0a 4b 49 ┆ TFEM1 MOVE1 LMOV1 INSE1 KI┆ 0x0d00…0d20 4c 4c 31 0d 0a 53 45 41 52 31 0d 0a 43 48 41 4e 31 0d 0a 44 45 41 44 31 0d 0a 46 45 4a 4c 31 0d ┆LL1 SEAR1 CHAN1 DEAD1 FEJL1 ┆ 0x0d20…0d40 0a 46 45 4a 4c 31 0d 0a 2d 31 0d 0a 3b 20 44 45 52 20 4a 4d 50 27 45 53 20 54 49 4c 20 44 49 53 ┆ FEJL1 -1 ; DER JMP'ES TIL DIS┆ 0x0d40…0d60 53 45 20 52 55 54 49 4e 45 52 2c 20 41 4c 4c 45 20 41 43 43 20 55 44 45 46 2c 20 44 45 52 20 52 ┆SE RUTINER, ALLE ACC UDEF, DER R┆ 0x0d60…0d80 45 54 55 52 4e 45 52 45 53 20 54 49 4c 20 4f 50 45 52 31 0d 0a 0d 0a 4f 50 45 52 33 3a 20 30 0d ┆ETURNERES TIL OPER1 OPER3: 0 ┆ 0x0d80…0da0 0a 4f 50 45 52 34 3a 20 30 0d 0a 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ OPER4: 0 ; *******************┆ 0x0da0…0dc0 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 ┆********************************┆ 0x0dc0…0de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2d 33 0d 0a 44 45 41 44 38 3a 20 37 32 0d 0a 44 45 41 ┆************ -3 DEAD8: 72 DEA┆ 0x0de0…0e00 44 39 3a 20 2e 2b 31 2a 32 0d 0a 09 7f 2e 54 58 54 20 22 44 45 41 44 3f 3c 30 3e 22 0d 0a 44 45 ┆D9: .+1*2 .TXT "DEAD?<0>" DE┆ 0x0e00…0e20 41 44 31 3a 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4c 44 41 20 30 2c 2e 33 0d 0a 09 7f 47 ┆AD1: LDA 3,CUR LDA 0,.3 G┆ 0x0e20…0e40 4f 50 0d 0a 09 7f 4c 44 41 20 30 2c 44 45 41 44 39 0d 0a 09 7f 4f 55 54 54 45 58 54 0d 0a 09 7f ┆OP LDA 0,DEAD9 OUTTEXT ┆ 0x0e40…0e60 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4c 44 41 20 30 2c 2e 31 0d 0a 09 7f 47 4f 50 0d 0a 09 7f ┆LDA 3,CUR LDA 0,.1 GOP ┆ 0x0e60…0e80 49 4e 43 48 41 0d 0a 09 7f 4c 44 41 20 30 2c 44 45 41 44 38 0d 0a 09 7f 53 55 42 20 23 20 30 2c ┆INCHA LDA 0,DEAD8 SUB # 0,┆ 0x0e80…0ea0 31 2c 53 5a 52 0d 0a 09 7f 4a 4d 50 20 4f 50 45 52 31 0d 0a 09 7f 20 4a 4d 50 20 44 45 41 44 20 ┆1,SZR JMP OPER1 JMP DEAD ┆ 0x0ea0…0ec0 3b 0d 0a 2d 31 0d 0a 49 4e 41 44 3a 20 49 4e 5a 4f 4e 0d 0a 46 49 41 44 3a 20 46 49 5a 4f 4e 0d ┆; -1 INAD: INZON FIAD: FIZON ┆ 0x0ec0…0ee0 0a 54 54 41 44 3a 20 54 54 5a 4f 4e 0d 0a 4c 50 41 44 3a 20 4c 50 5a 4f 4e 0d 0a 0d 0a 2d 32 0d ┆ TTAD: TTZON LPAD: LPZON -2 ┆ 0x0ee0…0f00 0a 44 45 41 44 3a 09 7f 09 7f 09 7f 3b 20 53 54 41 4e 44 41 52 44 2d 41 46 53 4c 55 54 4e 49 4e ┆ DEAD: ; STANDARD-AFSLUTNIN┆ 0x0f00…0f20 47 53 52 55 54 49 4e 45 0d 0a 09 7f 53 54 41 20 30 2c 44 30 0d 0a 09 7f 53 54 41 20 31 2c 44 31 ┆GSRUTINE STA 0,D0 STA 1,D1┆ 0x0f20…0f40 0d 0a 09 7f 53 54 41 20 32 2c 44 32 0d 0a 09 7f 53 54 41 20 33 2c 44 33 0d 0a 0d 0a 09 7f 4c 44 ┆ STA 2,D2 STA 3,D3 LD┆ 0x0f40…0f60 41 20 32 2c 54 54 41 44 0d 0a 09 7f 43 4c 4f 53 45 0d 0a 09 7f 4c 44 41 20 32 2c 4c 50 41 44 0d ┆A 2,TTAD CLOSE LDA 2,LPAD ┆ 0x0f60…0f80 0a 09 7f 4c 44 41 20 31 2c 2e 31 0d 0a 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4c 50 44 0d ┆ LDA 1,.1 LDA 3,CUR LPD ┆ 0x0f80…0fa0 0a 09 7f 43 4c 4f 53 45 0d 0a 09 7f 0d 0a 44 45 41 44 32 3a 0d 0a 09 7f 4c 44 41 20 31 2c 2e 31 ┆ CLOSE DEAD2: LDA 1,.1┆ 0x0fa0…0fc0 09 7f 3b 20 46 4c 47 20 42 52 55 47 45 53 20 48 56 49 53 20 44 45 52 20 48 41 52 20 56 5b 52 45 ┆ ; FLG BRUGES HVIS DER HAR VÆRE┆ 0x0fc0…0fe0 54 20 5d 42 4e 45 54 20 46 49 4c 45 52 0d 0a 09 7f 4c 44 41 20 32 2c 46 49 41 44 0d 0a 09 7f 43 ┆T ÅBNET FILER LDA 2,FIAD C┆ 0x0fe0…1000 4c 4f 53 45 0d 0a 09 7f 4c 44 41 20 31 2c 2e 31 0d 0a 09 7f 4c 44 41 20 32 2c 49 4e 41 44 0d 0a ┆LOSE LDA 1,.1 LDA 2,INAD ┆ 0x1000…1020 09 7f 43 4c 4f 53 45 0d 0a 44 45 41 44 33 3a 09 7f 4a 4d 50 20 53 4c 55 54 09 7f 3b 20 48 56 49 ┆ CLOSE DEAD3: JMP SLUT ; HVI┆ 0x1020…1040 53 20 50 52 4f 43 45 53 53 45 4e 20 53 4b 41 4c 20 42 4c 49 56 45 20 49 20 43 4f 52 45 0d 0a 0d ┆S PROCESSEN SKAL BLIVE I CORE ┆ 0x1040…1060 0a 09 7f 4c 44 41 20 31 2c 53 4c 55 54 31 0d 0a 09 7f 4c 44 41 20 32 2c 53 4c 55 54 32 0d 0a 09 ┆ LDA 1,SLUT1 LDA 2,SLUT2 ┆ 0x1060…1080 7f 53 45 4e 44 4d 45 53 53 41 47 45 20 09 7f 3b 20 54 49 4c 20 53 20 4f 4d 20 41 54 20 46 4a 45 ┆ SENDMESSAGE ; TIL S OM AT FJE┆ 0x1080…10a0 52 4e 45 20 44 45 4e 4e 45 20 50 52 4f 43 20 46 52 41 20 43 4f 52 45 0d 0a 0d 0a 53 4c 55 54 3a ┆RNE DENNE PROC FRA CORE SLUT:┆ 0x10a0…10c0 09 7f 4c 44 41 20 32 2c 43 55 52 0d 0a 09 7f 53 54 4f 50 50 09 7f 09 7f 3b 20 50 52 4f 43 45 53 ┆ LDA 2,CUR STOPP ; PROCES┆ 0x10c0…10e0 53 45 4e 20 53 54 4f 50 50 45 53 20 4d 45 4e 20 46 4a 45 52 4e 45 53 20 49 4b 4b 45 20 46 52 41 ┆SEN STOPPES MEN FJERNES IKKE FRA┆ 0x10e0…1100 20 43 4f 52 45 0d 0a 09 7f 4a 4d 50 20 2e 2d 31 0d 0a 0d 0a 44 30 3a 09 7f 30 09 7f 3b 20 48 45 ┆ CORE JMP .-1 D0: 0 ; HE┆ 0x1100…1120 52 20 53 49 4b 52 45 53 20 49 4e 46 4f 20 4f 4d 20 44 45 41 44 20 28 41 48 54 20 45 56 54 20 43 ┆R SIKRES INFO OM DEAD (AHT EVT C┆ 0x1120…1140 4f 52 45 2d 44 55 4d 50 29 0d 0a 44 31 3a 09 7f 31 0d 0a 44 32 3a 09 7f 32 0d 0a 44 33 3a 09 7f ┆ORE-DUMP) D1: 1 D2: 2 D3: ┆ 0x1140…1160 33 0d 0a 53 4c 55 54 31 3a 09 7f 2e 2b 31 0d 0a 09 7f 31 42 38 0d 0a 09 7f 30 0d 0a 09 7f 30 0d ┆3 SLUT1: .+1 1B8 0 0 ┆ 0x1160…1180 0a 09 7f 30 0d 0a 53 4c 55 54 32 3a 09 7f 2e 54 58 54 20 27 53 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 ┆ 0 SLUT2: .TXT 'S<0><0><0><0┆ 0x1180…11a0 3e 3c 30 3e 27 0d 0a 0d 0a 3b 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a ┆><0>' ;::::::::::::::::::::::┆ 0x11a0…11c0 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 3a 20 45 44 49 54 4f 52 46 55 4e 4b 54 49 4f 4e 45 52 ┆::::::::::::::: EDITORFUNKTIONER┆ 0x11c0…11e0 3a 0d 0a 0c 3b 20 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 ┆: ; **************************┆ 0x11e0…1200 2a 2a 2a 2a 2a 2a 2a 20 45 44 49 54 4f 52 2d 46 55 4e 4b 54 49 4f 4e 45 52 20 2a 2a 2a 2a 2a 2a ┆******* EDITOR-FUNKTIONER ******┆ 0x1200…1220 2a 2a 2a 2a 0d 0a 3b 20 41 4c 4c 45 20 4b 41 4c 44 20 4d 45 44 20 55 44 45 46 20 41 43 43 20 26 ┆**** ; ALLE KALD MED UDEF ACC &┆ 0x1220…1240 20 44 45 52 46 52 41 20 54 49 4c 42 41 47 45 20 54 49 4c 20 4f 50 45 52 31 20 4d 45 44 20 55 44 ┆ DERFRA TILBAGE TIL OPER1 MED UD┆ 0x1240…1260 45 46 20 41 43 43 0d 0a 0d 0a 20 3b 20 3d 3d 3d 20 59 20 3d 3d 3d 0d 0a 0d 0a 09 7f 2e 4e 4f 4c ┆EF ACC ; === Y === .NOL┆ 0x1260…1280 4f 43 20 31 0d 0a 59 53 49 44 39 3a 20 2e 2b 31 2a 32 0d 0a 09 7f 2e 54 58 54 20 22 3c 31 33 3e ┆OC 1 YSID9: .+1*2 .TXT "<13>┆ 0x1280…12a0 3c 31 30 3e 3c 31 30 3e 49 4e 50 55 54 20 2d 20 2d 20 2d 20 2d 3c 31 33 3e 3c 31 30 3e 3c 31 30 ┆<10><10>INPUT - - - -<13><10><10┆ 0x12a0…12c0 3e 20 3c 30 3e 22 0d 0a 09 7f 09 7f 2e 4e 4f 4c 4f 43 20 30 0d 0a 59 53 49 44 31 3a 09 7f 4a 53 ┆> <0>" .NOLOC 0 YSID1: JS┆ 0x12c0…12e0 52 20 52 45 53 45 31 0d 0a 09 7f 53 54 41 20 30 2c 43 4f 55 4e 31 20 3b 28 4e 45 44 54 5b 4c 4c ┆R RESE1 STA 0,COUN1 ;(NEDTÆLL┆ 0x12e0…1300 20 41 46 20 59 29 0d 0a 09 7f 53 54 41 20 30 2c 43 4f 55 4e 32 20 3b 28 5b 4e 44 52 20 41 46 20 ┆ AF Y) STA 0,COUN2 ;(ÆNDR AF ┆ 0x1300…1320 49 2c 4b 2c 43 20 20 4e 45 44 54 5b 4c 4c 20 41 46 20 50 29 0d 0a 09 7f 53 55 42 20 30 2c 30 0d ┆I,K,C NEDTÆLL AF P) SUB 0,0 ┆ 0x1320…1340 0a 09 7f 53 54 41 20 30 2c 50 43 43 0d 0a 09 7f 53 54 41 20 31 2c 50 43 41 44 52 20 3b 28 5b 4e ┆ STA 0,PCC STA 1,PCADR ;(ÆN┆ 0x1340…1360 44 52 20 41 46 20 49 2c 43 2c 53 20 45 54 43 29 0d 0a 09 7f 4c 44 41 20 31 2c 59 53 49 44 39 0d ┆DR AF I,C,S ETC) LDA 1,YSID9 ┆ 0x1360…1380 0a 09 7f 4a 53 52 20 4f 55 4c 4b 31 0d 0a 09 7f 09 7f 3b 20 4b 4f 4d 4d 41 4e 44 4f 20 55 44 20 ┆ JSR OULK1 ; KOMMANDO UD ┆ 0x1380…13a0 50 5d 20 4c 50 54 20 48 56 49 53 20 54 49 4c 53 4c 55 54 54 45 54 0d 0a 59 53 49 44 32 3a 09 7f ┆PÅ LPT HVIS TILSLUTTET YSID2: ┆ 0x13a0…13c0 49 4e 49 0d 0a 09 7f 4f 55 54 0d 0a 09 7f 4f 55 4c 0d 0a 09 7f 4d 4f 56 20 31 2c 30 0d 0a 09 7f ┆INI OUT OUL MOV 1,0 ┆ 0x13c0…13e0 4c 44 41 20 31 2c 41 52 42 41 31 0d 0a 09 7f 50 55 54 42 59 0d 0a 09 7f 49 53 5a 20 41 52 42 41 ┆LDA 1,ARBA1 PUTBY ISZ ARBA┆ 0x13e0…1400 31 0d 0a 09 7f 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 44 53 5a 20 43 4f 55 4e 31 0d 0a 09 7f 4a ┆1 LDA 3,CUR DSZ COUN1 J┆ 0x1400…1420 4d 50 20 59 53 49 44 32 0d 0a 09 7f 4f 50 45 52 41 0d 0a 0d 0a 0d 0a 20 3b 20 3d 3d 3d 20 50 20 ┆MP YSID2 OPERA ; === P ┆ 0x1420…1440 4f 47 20 52 20 3d 3d 3d 0d 0a 0d 0a 50 53 49 44 31 3a 20 53 55 42 20 33 2c 33 0d 0a 09 7f 4a 4d ┆OG R === PSID1: SUB 3,3 JM┆ 0x1440…1460 50 20 50 53 49 44 33 0d 0a 0d 0a 52 53 49 44 31 3a 09 7f 4a 53 52 20 50 53 49 44 33 0d 0a 09 7f ┆P PSID3 RSID1: JSR PSID3 ┆ 0x1460…1480 4a 4d 50 20 59 53 49 44 31 0d 0a 0d 0a 09 7f 09 7f 2e 4e 4f 4c 4f 43 20 31 0d 0a 0d 0a 50 53 49 ┆JMP YSID1 .NOLOC 1 PSI┆ 0x1480…14a0 44 38 3a 20 31 32 38 20 3b 20 46 52 41 20 43 4f 55 4e 32 20 2d 20 44 4f 57 4e 20 49 20 50 0d 0a ┆D8: 128 ; FRA COUN2 - DOWN I P ┆ 0x14a0…14c0 50 53 49 44 39 3a 20 2e 2b 31 2a 32 0d 0a 09 7f 2e 54 58 54 20 22 3c 31 33 3e 3c 31 30 3e 3c 31 ┆PSID9: .+1*2 .TXT "<13><10><1┆ 0x14c0…14e0 30 3e 4f 55 54 50 55 54 3c 31 33 3e 3c 31 30 3e 3c 31 30 3e 20 3c 30 3e 22 0d 0a 09 7f 09 7f 2e ┆0>OUTPUT<13><10><10> <0>" .┆ 0x14e0…1500 4e 4f 4c 4f 43 20 30 0d 0a 50 53 49 44 30 3a 20 30 0d 0a 50 53 49 44 33 3a 09 7f 53 54 41 20 33 ┆NOLOC 0 PSID0: 0 PSID3: STA 3┆ 0x1500…1520 2c 50 53 49 44 30 0d 0a 09 7f 4c 44 41 20 33 2c 43 4f 55 4e 32 0d 0a 09 7f 53 54 41 20 33 2c 50 ┆,PSID0 LDA 3,COUN2 STA 3,P┆ 0x1520…1540 53 49 44 38 0d 0a 09 7f 4a 53 52 20 52 45 53 45 31 0d 0a 09 7f 4c 44 41 20 31 2c 50 53 49 44 39 ┆SID8 JSR RESE1 LDA 1,PSID9┆ 0x1540…1560 0d 0a 09 7f 4a 53 52 20 4f 55 4c 4b 31 20 09 7f 3b 20 4b 4f 4d 4d 41 4e 44 4f 20 54 49 4c 20 4c ┆ JSR OULK1 ; KOMMANDO TIL L┆ 0x1560…1580 50 54 20 48 56 49 53 20 4f 4b 0d 0a 50 53 49 44 32 3a 09 7f 4c 44 41 20 31 2c 41 52 42 41 31 0d ┆PT HVIS OK PSID2: LDA 1,ARBA1 ┆ 0x1580…15a0 0a 09 7f 47 45 54 42 59 54 45 0d 0a 09 7f 49 53 5a 20 41 52 42 41 31 0d 0a 09 7f 4c 44 41 20 33 ┆ GETBYTE ISZ ARBA1 LDA 3┆ 0x15a0…15c0 2c 43 55 52 0d 0a 09 7f 4d 4f 56 20 30 2c 31 20 0d 0a 09 7f 4f 55 4f 0d 0a 09 7f 4f 55 4c 0d 0a ┆,CUR MOV 0,1 OUO OUL ┆ 0x15c0…15e0 09 7f 4f 55 54 0d 0a 09 7f 44 53 5a 20 50 53 49 44 38 0d 0a 09 7f 4a 4d 50 20 50 53 49 44 32 0d ┆ OUT DSZ PSID8 JMP PSID2 ┆ 0x15e0…1600 0a 0d 0a 09 7f 4c 44 41 20 30 2c 50 53 49 44 30 0d 0a 09 7f 4d 4f 56 20 23 20 30 2c 30 2c 53 5a ┆ LDA 0,PSID0 MOV # 0,0,SZ┆ 0x1600…1620 52 0d 0a 09 7f 4a 4d 50 20 40 20 50 53 49 44 30 0d 0a 09 7f 4f 50 45 52 41 0d 0a 0d 0a 09 7f 3b ┆R JMP @ PSID0 OPERA ;┆ 0x1620…1640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 41 4c 4d 2e 20 53 55 42 52 55 54 49 4e 45 ┆------------------ALM. SUBRUTINE┆ 0x1640…1660 52 20 54 49 4c 20 59 20 4f 47 20 50 3a 0d 0a 0d 0a 3b 20 52 45 53 45 54 20 43 4f 55 4e 54 45 52 ┆R TIL Y OG P: ; RESET COUNTER┆ 0x1660…1680 20 4f 47 20 46 4f 52 42 20 4f 55 54 50 55 54 20 54 49 4c 20 54 54 59 20 28 4d 4f 4e 49 54 4f 52 ┆ OG FORB OUTPUT TIL TTY (MONITOR┆ 0x1680…16a0 49 4e 47 29 0d 0a 3b 20 2a 2a 2a 2a 20 20 09 7f 09 7f 3b 20 43 41 4c 4c 3a 09 7f 2e 09 7f 2e 09 ┆ING) ; **** ; CALL: . . ┆ 0x16a0…16c0 7f 2e 09 7f 43 55 52 0d 0a 09 7f 09 7f 09 7f 3b 20 52 45 54 55 3a 09 7f 43 4f 55 4e 30 09 7f 42 ┆ . CUR ; RETU: COUN0 B┆ 0x16c0…16e0 55 41 44 52 2a 32 09 7f 54 54 5a 4f 4e 09 7f 43 55 52 0d 0a 52 45 53 45 39 3a 09 7f 30 0d 0a 52 ┆UADR*2 TTZON CUR RESE9: 0 R┆ 0x16e0…1700 45 53 45 31 3a 09 7f 4c 44 41 20 31 2c 41 52 42 41 30 0d 0a 09 7f 53 54 41 20 31 2c 41 52 42 41 ┆ESE1: LDA 1,ARBA0 STA 1,ARBA┆ 0x1700…1720 31 0d 0a 09 7f 53 54 41 20 33 2c 52 45 53 45 39 0d 0a 09 7f 4c 44 41 20 30 2c 2e 33 0d 0a 09 7f ┆1 STA 3,RESE9 LDA 0,.3 ┆ 0x1720…1740 4c 44 41 20 33 2c 43 55 52 0d 0a 09 7f 47 4f 50 0d 0a 09 7f 4c 44 41 20 30 2c 43 4f 55 4e 30 0d ┆LDA 3,CUR GOP LDA 0,COUN0 ┆ 0x1740…1760 0a 09 7f 4a 4d 50 20 40 20 52 45 53 45 39 0d 0a 0d 0a 3b 20 4f 55 54 50 55 54 20 54 49 4c 20 4c ┆ JMP @ RESE9 ; OUTPUT TIL L┆ 0x1760…1780 50 54 20 41 46 20 4b 4f 4d 4d 41 4e 44 4f 45 4e 20 28 41 43 43 20 55 44 45 46 20 55 4e 44 54 2e ┆PT AF KOMMANDOEN (ACC UDEF UNDT.┆ 0x1780…17a0 20 41 43 31 20 46 5c 52 20 2b 20 41 43 33 3d 43 55 52 20 45 46 54 45 52 29 0d 0a 3b 20 2a 2a 20 ┆ AC1 FØR + AC3=CUR EFTER) ; ** ┆ 0x17a0…17c0 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 2a 0d 0a 0d 0a 4f 55 4c 4b 30 3a 20 30 0d 0a 4f 55 ┆ * * OULK0: 0 OU┆ 0x17c0…17e0 4c 4b 31 3a 20 53 54 41 20 33 2c 4f 55 4c 4b 30 0d 0a 09 7f 4d 4f 56 20 31 2c 30 0d 0a 09 7f 4c ┆LK1: STA 3,OULK0 MOV 1,0 L┆ 0x17e0…1800 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4c 44 41 20 31 2c 2e 32 34 20 3b 20 4c 49 4e 49 45 4c 47 44 ┆DA 3,CUR LDA 1,.24 ; LINIELGD┆ 0x1800…1820 2c 20 53 45 20 4f 53 53 45 20 4f 4e 4c 0d 0a 09 7f 4c 44 41 20 32 2c 54 54 41 44 0d 0a 09 7f 53 ┆, SE OSSE ONL LDA 2,TTAD S┆ 0x1820…1840 54 41 20 31 2c 2d 32 2c 32 0d 0a 09 7f 4c 44 41 20 32 2c 4c 50 41 44 0d 0a 09 7f 53 54 41 20 31 ┆TA 1,-2,2 LDA 2,LPAD STA 1┆ 0x1840…1860 2c 2d 32 2c 32 0d 0a 09 7f 4c 50 44 09 7f 3b 20 48 56 49 53 20 4d 55 4c 49 47 54 3a 0d 0a 09 7f ┆,-2,2 LPD ; HVIS MULIGT: ┆ 0x1860…1880 4f 55 54 54 45 58 54 09 7f 3b 20 4b 4f 4d 4d 41 4e 44 4f 55 44 53 4b 52 49 46 54 0d 0a 09 7f 4c ┆OUTTEXT ; KOMMANDOUDSKRIFT L┆ 0x1880…18a0 44 41 20 33 2c 43 55 52 0d 0a 09 7f 4c 50 44 57 09 7f 3b 20 52 45 53 45 54 20 4c 50 54 46 45 4a ┆DA 3,CUR LPDW ; RESET LPTFEJ┆ 0x18a0…18c0 4c 52 55 54 49 4e 45 0d 0a 09 7f 4a 4d 50 20 40 20 4f 55 4c 4b 30 0d 0a 0d 0a 3b 3a 3a 3a 3a 3a ┆LRUTINE JMP @ OULK0 ;:::::┆ 0x18c0…18e0 3a 3a 3a 3a 3a 3a 3a 3a 0d 0a 43 4f 55 4e 30 3a 20 31 32 38 20 3b 20 4f 52 49 47 20 44 45 46 20 ┆:::::::: COUN0: 128 ; ORIG DEF ┆ 0x18e0…1900 49 20 49 4e 50 55 54 20 28 45 56 54 29 0d 0a 43 4f 55 4e 31 3a 20 31 32 38 20 3b 20 44 45 46 20 ┆I INPUT (EVT) COUN1: 128 ; DEF ┆ 0x1900…1920 49 20 59 2c 20 20 44 4f 57 4e 20 49 20 59 0d 0a 43 4f 55 4e 32 3a 20 31 32 38 20 3b 20 44 45 46 ┆I Y, DOWN I Y COUN2: 128 ; DEF┆ […truncated at 200 lines…]