|
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: 22016 (0x5600)
Names: »CAA45«
└─⟦5946b0824⟧ Bits:30001778 MASTERDISC TIL CO040
└─ ⟦this⟧ »/CAA45«
└─⟦751dc5faa⟧ Bits:30001814 SG0113 Floppy
└─ ⟦this⟧ »/CAA45«
0x0000…0020 3b 20 49 44 41 47 2d 43 41 4c 4c 2d 4d 4f 44 55 4c 0d 0a 3b 20 20 4d 45 44 20 54 4f 52 42 45 4e ┆; IDAG-CALL-MODUL ; MED TORBEN┆ 0x0020…0040 20 54 41 4d 42 4f 27 53 20 43 41 52 44 52 45 41 44 20 49 20 41 4b 54 55 45 4c 20 56 45 52 53 49 ┆ TAMBO'S CARDREAD I AKTUEL VERSI┆ 0x0040…0060 4f 4e 20 2a 4c 49 44 54 20 46 41 52 4c 49 47 2a 0d 0a 3b 20 20 53 49 44 53 54 45 20 52 45 54 54 ┆ON *LIDT FARLIG* ; SIDSTE RETT┆ 0x0060…0080 45 4c 53 45 20 31 2e 31 30 2e 38 31 20 4b 4c 20 31 36 0d 0a 3b 20 20 42 55 46 20 5b 4e 44 52 45 ┆ELSE 1.10.81 KL 16 ; BUF ÆNDRE┆ 0x0080…00a0 54 20 53 5d 20 52 45 53 43 48 2d 4b 4f 4e 54 52 4f 4c 20 55 44 45 4c 41 44 45 53 20 28 3d 3e 20 ┆T SÅ RESCH-KONTROL UDELADES (=> ┆ 0x00a0…00c0 4e 4f 20 4c 4f 4f 50 29 0d 0a 3b 20 20 43 41 52 44 52 45 41 44 20 49 4e 50 55 54 5a 4f 4e 45 20 ┆NO LOOP) ; CARDREAD INPUTZONE ┆ 0x00c0…00e0 5c 47 45 54 20 54 49 4c 20 35 30 20 49 53 54 46 20 34 31 20 28 4b 4f 52 54 4d 41 52 4b 2d 46 45 ┆ØGET TIL 50 ISTF 41 (KORTMARK-FE┆ 0x00e0…0100 4a 4c 2d 52 49 53 49 4b 4f 0d 0a 0d 0a 0d 0a 50 52 44 45 31 20 20 20 20 20 20 20 20 20 20 20 20 ┆JL-RISIKO PRDE1 ┆ 0x0100…0120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 50 52 4f 43 45 53 53 20 48 45 ┆ ; PROCESS HE┆ 0x0120…0140 41 44 20 0d 0a 43 44 52 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AD CDR11 ┆ 0x0140…0160 20 20 20 20 20 20 20 20 20 20 3b 20 41 44 44 52 45 53 53 20 4f 46 20 43 41 52 44 52 45 41 44 20 ┆ ; ADDRESS OF CARDREAD ┆ 0x0160…0180 52 45 56 20 31 2e 30 33 20 0d 0a 2e 54 58 54 20 40 43 41 52 44 52 45 41 44 40 20 20 20 20 20 20 ┆REV 1.03 .TXT @CARDREAD@ ┆ 0x0180…01a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4e 41 4d 45 20 4f 46 20 20 20 20 20 2d 2d ┆ ; NAME OF --┆ 0x01a0…01c0 2d 2d 2d 2d 2d 27 27 2d 2d 2d 2d 2d 2d 2d 20 0d 0a 0d 0a 0d 0a 46 49 4e 44 54 0d 0a 2e 54 58 54 ┆-----''------- FINDT .TXT┆ 0x01c0…01e0 20 22 46 49 4e 44 54 45 47 4e 22 09 7f 09 7f 3b 20 46 52 41 20 43 41 41 34 32 2c 20 41 4c 4c 45 ┆ "FINDTEGN" ; FRA CAA42, ALLE┆ 0x01e0…0200 20 5c 56 52 20 46 52 41 20 43 41 41 43 46 20 50 5d 20 44 49 53 4b 45 54 54 45 0d 0a 09 7f 09 7f ┆ ØVR FRA CAACF PÅ DISKETTE ┆ 0x0200…0220 09 7f 3b 20 4d 45 44 20 46 5b 52 44 49 47 45 20 43 41 4c 4c 2d 52 55 54 49 4e 45 52 0d 0a 0c 3b ┆ ; MED FÆRDIGE CALL-RUTINER ;┆ 0x0220…0240 20 53 55 42 52 55 54 49 4e 45 54 41 42 45 4c 0d 0a 0d 0a 42 55 46 30 30 0d 0a 2e 54 58 54 20 40 ┆ SUBRUTINETABEL BUF00 .TXT @┆ 0x0240…0260 42 55 46 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 40 0d 0a 0d 0a 0d 0a 0d 0a 47 4d 45 30 30 ┆BUF<0><0><0><0><0>@ GME00┆ 0x0260…0280 09 7f 09 7f 09 7f 09 7f 3b 20 47 4d 45 4d 2d 41 44 52 45 53 53 45 0d 0a 2e 54 58 54 20 22 47 4d ┆ ; GMEM-ADRESSE .TXT "GM┆ 0x0280…02a0 45 4d 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 22 09 7f 09 7f 3b 20 4e 41 56 4e 0d 0a 0d 0a 46 4c 4d ┆EM<0><0><0><0>" ; NAVN FLM┆ 0x02a0…02c0 30 30 0d 0a 2e 54 58 54 20 40 46 4c 59 54 4d 41 54 3c 30 3e 40 0d 0a 0d 0a 46 49 4e 30 30 0d 0a ┆00 .TXT @FLYTMAT<0>@ FIN00 ┆ 0x02c0…02e0 2e 54 58 54 20 40 46 49 4e 44 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 40 0d 0a 0d 0a 0d 0a 0d 0a 4b ┆.TXT @FIND<0><0><0><0>@ K┆ 0x02e0…0300 53 50 30 30 0d 0a 2e 54 58 54 20 22 4b 4f 44 45 53 50 45 43 22 0d 0a 0d 0a 53 4d 45 30 30 0d 0a ┆SP00 .TXT "KODESPEC" SME00 ┆ 0x0300…0320 2e 54 58 54 20 22 53 4d 45 4d 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 22 0d 0a 0d 0a 46 49 58 30 30 ┆.TXT "SMEM<0><0><0><0>" FIX00┆ 0x0320…0340 0d 0a 2e 54 58 54 20 22 46 49 58 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 22 0d 0a 0d 0a 46 ┆ .TXT "FIX<0><0><0><0><0>" F┆ 0x0340…0360 4c 4f 30 30 0d 0a 2e 54 58 54 20 22 46 4c 4f 41 54 3c 30 3e 3c 30 3e 3c 30 3e 22 0d 0a 0d 0a 30 ┆LO00 .TXT "FLOAT<0><0><0>" 0┆ 0x0360…0380 0d 0a 0c 47 4d 45 30 30 3a 09 7f 32 0d 0a 09 7f 52 45 41 4c 0d 0a 09 7f 52 45 41 4c 2b 52 45 46 ┆ GME00: 2 REAL REAL+REF┆ 0x0380…03a0 45 52 45 4e 43 45 0d 0a 09 7f 4c 44 41 20 20 09 7f 32 2c 2b 30 2c 32 09 7f 09 7f 3b 20 41 43 31 ┆ERENCE LDA 2,+0,2 ; AC1┆ 0x03a0…03c0 3d 41 2d 41 44 52 45 53 53 45 0d 0a 09 7f 45 58 45 43 55 54 45 0d 0a 09 7f 47 53 4d 30 30 0d 0a ┆=A-ADRESSE EXECUTE GSM00 ┆ 0x03c0…03e0 09 7f 52 45 54 31 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2b 30 2c 32 09 7f 09 7f 3b 20 4a 41 3a 20 41 ┆ RET1 LDA 1,+0,2 ; JA: A┆ 0x03e0…0400 43 31 3d 49 4e 44 48 4f 4c 44 20 41 46 20 41 44 52 45 53 53 45 0d 0a 09 7f 42 43 41 4c 4c 20 46 ┆C1=INDHOLD AF ADRESSE BCALL F┆ 0x0400…0420 4c 4f 41 54 09 7f 09 7f 3b 20 41 43 31 20 2d 3e 20 4b 4f 4d 4d 41 54 41 4c 0d 0a 09 7f 4c 44 41 ┆LOAT ; AC1 -> KOMMATAL LDA┆ 0x0420…0440 09 7f 32 2c 55 2e 53 54 4b 2c 33 0d 0a 09 7f 4c 44 41 20 40 09 7f 32 2c 2b 31 2c 32 09 7f 09 7f ┆ 2,U.STK,3 LDA @ 2,+1,2 ┆ 0x0440…0460 3b 20 41 43 32 3d 42 2d 41 44 52 45 53 53 45 0d 0a 09 7f 53 54 41 09 7f 32 2c 47 4d 45 30 31 09 ┆; AC2=B-ADRESSE STA 2,GME01 ┆ 0x0460…0480 7f 09 7f 3b 20 47 45 4d 20 42 2d 41 44 52 45 53 53 45 0d 0a 09 7f 4c 44 41 09 7f 32 2c 43 55 52 ┆ ; GEM B-ADRESSE LDA 2,CUR┆ 0x0480…04a0 0d 0a 09 7f 41 2e 50 44 4f 55 42 4c 45 09 7f 09 7f 3b 20 47 45 4d 20 41 44 52 45 53 53 45 49 4e ┆ A.PDOUBLE ; GEM ADRESSEIN┆ 0x04a0…04c0 44 48 4f 4c 44 28 41 29 20 49 20 42 0d 0a 09 7f 31 0d 0a 47 4d 45 30 31 3a 09 7f 30 0d 0a 09 7f ┆DHOLD(A) I B 1 GME01: 0 ┆ 0x04c0…04e0 52 45 54 31 09 7f 09 7f 09 7f 3b 20 45 4e 44 20 47 4d 45 4d 0d 0a 0d 0a 0c 47 53 4d 30 30 3a 09 ┆RET1 ; END GMEM GSM00: ┆ 0x04e0…0500 7f 4c 44 41 20 09 7f 30 2c 2b 30 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 41 0d 0a 09 7f 4c 44 41 ┆ LDA 0,+0,2 ; HENT A LDA┆ 0x0500…0520 09 7f 31 2c 2b 31 2c 32 0d 0a 09 7f 42 43 41 4c 4c 20 46 49 58 09 7f 09 7f 3b 20 46 49 58 20 41 ┆ 1,+1,2 BCALL FIX ; FIX A┆ 0x0520…0540 0d 0a 09 7f 41 44 43 5a 52 09 7f 32 2c 32 09 7f 09 7f 3b 20 41 43 32 3d 31 42 30 2d 31 0d 0a 09 ┆ ADCZR 2,2 ; AC2=1B0-1 ┆ 0x0540…0560 7f 4d 4f 56 09 7f 30 2c 30 2c 53 4e 52 09 7f 09 7f 3b 20 30 3c 3d 41 43 31 3c 3d 31 42 30 2d 31 ┆ MOV 0,0,SNR ; 0<=AC1<=1B0-1┆ 0x0560…0580 0d 0a 09 7f 53 4e 47 09 7f 31 2c 32 0d 0a 09 7f 4a 4d 50 20 20 45 52 52 39 30 09 7f 09 7f 3b 20 ┆ SNG 1,2 JMP ERR90 ; ┆ 0x0580…05a0 4e 45 4a 3a 20 45 52 52 4f 52 20 55 44 53 4b 52 49 56 20 4d 45 44 44 2e 0d 0a 09 7f 4d 4f 56 09 ┆NEJ: ERROR UDSKRIV MEDD. MOV ┆ 0x05a0…05c0 7f 31 2c 32 09 7f 09 7f 3b 20 41 43 31 2d 2d 3e 41 43 32 0d 0a 09 7f 52 45 54 31 09 7f 09 7f 09 ┆ 1,2 ; AC1-->AC2 RET1 ┆ 0x05c0…05e0 7f 3b 20 52 45 54 55 52 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ; RETURN ┆ 0x05e0…0600 20 20 20 20 53 55 42 20 20 20 20 30 2c 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 ┆ SUB 0,0 STA┆ 0x0600…0620 20 20 20 20 30 2c 52 45 53 43 48 20 20 20 20 20 3b 20 49 4e 44 46 5c 4a 45 54 20 30 31 2e 31 30 ┆ 0,RESCH ; INDFØJET 01.10┆ 0x0620…0640 2e 38 31 0d 0a 0d 0a 45 52 52 39 30 3a 09 7f 45 52 52 4f 52 0d 0a 09 7f 39 30 0d 0a 0d 0a 45 52 ┆.81 ERR90: ERROR 90 ER┆ 0x0640…0660 52 39 31 3a 09 7f 45 52 52 4f 52 0d 0a 09 7f 39 31 0d 0a 4b 53 50 30 30 3a 09 7f 30 0d 0a 09 7f ┆R91: ERROR 91 KSP00: 0 ┆ 0x0660…0680 52 45 41 44 53 09 7f 30 0d 0a 09 7f 53 54 41 09 7f 30 2c 4b 53 50 30 31 0d 0a 09 7f 52 45 54 31 ┆READS 0 STA 0,KSP01 RET1┆ 0x0680…06a0 0d 0a 4b 53 50 30 31 3a 09 7f 30 0d 0a 0c 53 4d 45 30 30 3a 09 7f 32 09 7f 09 7f 09 7f 3b 20 32 ┆ KSP01: 0 SME00: 2 ; 2┆ 0x06a0…06c0 20 56 41 52 49 41 42 4c 45 0d 0a 09 7f 52 45 41 4c 09 7f 09 7f 3b 20 41 20 28 3d 41 2d 41 44 52 ┆ VARIABLE REAL ; A (=A-ADR┆ 0x06c0…06e0 45 53 53 45 29 0d 0a 09 7f 52 45 41 4c 09 7f 09 7f 3b 20 42 20 28 3d 44 41 54 41 29 0d 0a 09 7f ┆ESSE) REAL ; B (=DATA) ┆ 0x06e0…0700 4c 44 41 09 7f 30 2c 4b 53 50 30 31 09 7f 09 7f 3b 20 53 45 20 47 4d 45 30 30 0d 0a 09 7f 4c 44 ┆LDA 0,KSP01 ; SE GME00 LD┆ 0x0700…0720 41 09 7f 31 2c 4b 53 50 30 32 0d 0a 09 7f 53 55 42 09 7f 31 2c 30 2c 53 5a 52 0d 0a 09 7f 4a 4d ┆A 1,KSP02 SUB 1,0,SZR JM┆ 0x0720…0740 50 20 20 45 52 52 39 30 0d 0a 09 7f 4c 44 41 20 09 7f 32 2c 2b 31 2c 32 09 7f 09 7f 3b 20 41 43 ┆P ERR90 LDA 2,+1,2 ; AC┆ 0x0740…0760 32 28 21 29 3d 42 2d 41 44 52 45 53 53 45 0d 0a 09 7f 4c 44 41 09 7f 30 2c 2b 30 2c 32 09 7f 09 ┆2(!)=B-ADRESSE LDA 0,+0,2 ┆ 0x0760…0780 7f 3b 20 48 45 4e 54 20 52 45 41 4c 28 21 29 20 42 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2b 31 2c 32 ┆ ; HENT REAL(!) B LDA 1,+1,2┆ 0x0780…07a0 0d 0a 09 7f 42 43 41 4c 4c 20 46 49 58 09 7f 09 7f 3b 20 46 49 58 20 42 0d 0a 09 7f 4d 4f 56 09 ┆ BCALL FIX ; FIX B MOV ┆ 0x07a0…07c0 7f 30 2c 30 2c 53 5a 52 09 7f 09 7f 3b 20 30 3c 3d 42 3c 3d 36 35 35 33 35 20 3f 0d 0a 09 7f 4a ┆ 0,0,SZR ; 0<=B<=65535 ? J┆ 0x07c0…07e0 4d 50 20 20 45 52 52 39 31 09 7f 09 7f 3b 20 4e 45 4a 20 45 52 52 4f 52 2d 52 45 54 55 52 4e 0d ┆MP ERR91 ; NEJ ERROR-RETURN ┆ 0x07e0…0800 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 41 43 31 28 42 29 20 ┆ STA 1,U.S00,3 ; GEM AC1(B) ┆ 0x0800…0820 49 20 55 2e 53 30 30 2e 55 53 45 52 0d 0a 09 7f 4c 44 41 40 09 7f 32 2c 55 2e 53 54 4b 2c 33 0d ┆I U.S00.USER LDA@ 2,U.STK,3 ┆ 0x0820…0840 0a 09 7f 45 58 45 43 55 54 45 09 7f 09 7f 09 7f 3b 20 45 58 45 43 20 47 53 4d 30 30 28 41 2d 41 ┆ EXECUTE ; EXEC GSM00(A-A┆ 0x0840…0860 44 52 45 53 53 45 29 0d 0a 09 7f 47 53 4d 30 30 0d 0a 09 7f 52 45 54 31 0d 0a 09 7f 4c 44 41 09 ┆DRESSE) GSM00 RET1 LDA ┆ 0x0860…0880 7f 31 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 41 43 31 3d 46 28 55 44 41 2b 55 2e 53 30 30 29 3d 42 ┆ 1,U.S00,3 ; AC1=F(UDA+U.S00)=B┆ 0x0880…08a0 0d 0a 09 7f 53 54 41 09 7f 31 2c 2b 30 2c 32 09 7f 09 7f 3b 20 41 43 31 2d 2d 3e 41 44 52 2e 41 ┆ STA 1,+0,2 ; AC1-->ADR.A┆ 0x08a0…08c0 43 32 0d 0a 09 7f 52 45 54 31 09 7f 09 7f 09 7f 3b 20 45 4e 44 20 53 54 4f 52 45 4d 45 4d 4f 52 ┆C2 RET1 ; END STOREMEMOR┆ 0x08c0…08e0 59 0d 0a 4b 53 50 30 32 3a 09 7f 34 32 37 39 38 0d 0a 0c 42 55 46 30 30 3a 09 7f 33 09 7f 09 7f ┆Y KSP02: 42798 BUF00: 3 ┆ 0x08e0…0900 09 7f 3b 20 33 20 56 41 52 49 41 42 4c 45 0d 0a 09 7f 52 45 41 4c 09 7f 09 7f 09 7f 3b 20 41 0d ┆ ; 3 VARIABLE REAL ; A ┆ 0x0900…0920 0a 09 7f 52 45 41 4c 09 7f 09 7f 09 7f 3b 20 4f 47 20 42 0d 0a 09 7f 52 45 41 4c 2b 52 45 46 45 ┆ REAL ; OG B REAL+REFE┆ 0x0920…0940 52 45 4e 43 45 09 7f 09 7f 3b 20 4f 47 20 43 0d 0a 09 7f 4c 44 41 09 7f 31 2c 52 45 53 43 48 09 ┆RENCE ; OG C LDA 1,RESCH ┆ 0x0940…0960 7f 09 7f 3b 20 48 45 4e 54 20 52 45 53 45 52 56 41 54 49 4f 4e 53 53 54 41 54 55 53 20 28 52 45 ┆ ; HENT RESERVATIONSSTATUS (RE┆ 0x0960…0980 53 43 48 29 0d 0a 09 7f 53 55 42 5a 4c 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 31 0d 0a 09 ┆SCH) SUBZL 0,0 ; AC0=1 ┆ 0x0980…09a0 7f 53 55 42 23 09 7f 31 2c 30 20 2c 53 4b 50 09 7f 3b 20 52 45 53 43 48 3d 41 43 30 3f 3f 0d 0a ┆ SUB# 1,0 ,SKP ; RESCH=AC0?? ┆ 0x09a0…09c0 09 7f 4a 4d 50 09 7f 2e 2d 33 09 7f 09 7f 3b 20 4a 41 3a 20 50 52 5c 56 20 49 47 45 4e 0d 0a 09 ┆ JMP .-3 ; JA: PRØV IGEN ┆ 0x09c0…09e0 7f 53 54 41 09 7f 30 2c 52 45 53 43 48 09 7f 09 7f 3b 20 4e 45 4a 3a 20 53 5b 54 20 52 45 53 43 ┆ STA 0,RESCH ; NEJ: SÆT RESC┆ 0x09e0…0a00 48 3d 31 0d 0a 09 7f 4c 44 41 20 40 20 20 20 31 2c 2b 32 2c 32 09 7f 09 7f 3b 20 41 43 31 3d 46 ┆H=1 LDA @ 1,+2,2 ; AC1=F┆ 0x0a00…0a20 28 46 28 55 53 45 52 2e 55 2e 53 54 4b 29 2b 31 29 3d 43 2d 41 44 52 45 53 53 45 0d 0a 09 7f 53 ┆(F(USER.U.STK)+1)=C-ADRESSE S┆ 0x0a20…0a40 54 41 09 7f 31 2c 42 41 44 52 45 09 7f 09 7f 3b 20 47 45 4d 20 43 2d 41 44 52 45 53 53 45 0d 0a ┆TA 1,BADRE ; GEM C-ADRESSE ┆ 0x0a40…0a60 09 7f 4c 44 41 09 7f 32 2c 2b 31 2c 32 09 7f 09 7f 3b 20 41 43 32 3d 42 2d 41 44 52 45 53 53 45 ┆ LDA 2,+1,2 ; AC2=B-ADRESSE┆ 0x0a60…0a80 0d 0a 09 7f 4c 44 41 09 7f 30 2c 2b 30 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 42 3d 56 41 52 42 ┆ LDA 0,+0,2 ; HENT B=VARB┆ 0x0a80…0aa0 55 46 4e 52 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2b 31 2c 32 0d 0a 09 7f 42 43 41 4c 4c 20 46 49 58 ┆UFNR LDA 1,+1,2 BCALL FIX┆ 0x0aa0…0ac0 0d 0a 09 7f 53 55 42 43 09 7f 32 2c 32 09 7f 09 7f 3b 20 41 43 32 3d 30 0d 0a 09 7f 49 4e 43 4f ┆ SUBC 2,2 ; AC2=0 INCO┆ 0x0ac0…0ae0 4c 09 7f 32 2c 32 09 7f 09 7f 3b 20 41 43 32 3d 33 0d 0a 09 7f 4d 4f 56 09 7f 30 2c 30 2c 53 4e ┆L 2,2 ; AC2=3 MOV 0,0,SN┆ 0x0ae0…0b00 52 09 7f 09 7f 3b 20 4c 49 47 47 45 52 20 30 3c 3d 56 41 52 42 55 46 4e 52 3c 3d 33 20 3f 0d 0a ┆R ; LIGGER 0<=VARBUFNR<=3 ? ┆ 0x0b00…0b20 09 7f 53 4e 47 09 7f 31 2c 32 0d 0a 09 7f 4a 4d 50 20 45 52 52 39 30 2d 32 09 7f 09 7f 3b 20 4e ┆ SNG 1,2 JMP ERR90-2 ; N┆ 0x0b20…0b40 45 4a 3a 20 52 45 54 55 52 4e 20 4d 45 44 20 45 52 52 4f 52 20 39 30 20 20 2a 2a 20 43 42 20 52 ┆EJ: RETURN MED ERROR 90 ** CB R┆ 0x0b40…0b60 45 54 0d 0a 09 7f 4d 4f 56 5a 4c 09 7f 31 2c 31 09 7f 09 7f 3b 20 41 43 31 3d 31 0d 0a 09 7f 4c ┆ET MOVZL 1,1 ; AC1=1 L┆ 0x0b60…0b80 44 41 09 7f 32 2c 42 55 46 41 44 09 7f 09 7f 3b 20 41 43 32 3d 42 55 46 46 45 52 41 44 52 45 53 ┆DA 2,BUFAD ; AC2=BUFFERADRES┆ 0x0b80…0ba0 53 45 0d 0a 09 7f 41 44 44 09 7f 32 2c 31 09 7f 09 7f 3b 20 41 43 31 3d 41 43 31 2b 41 43 32 0d ┆SE ADD 2,1 ; AC1=AC1+AC2 ┆ 0x0ba0…0bc0 0a 09 7f 53 54 41 09 7f 31 2c 41 44 52 45 53 09 7f 09 7f 3b 20 47 45 4d 20 41 44 52 45 53 53 45 ┆ STA 1,ADRES ; GEM ADRESSE┆ 0x0bc0…0be0 28 56 41 52 4e 52 29 0d 0a 09 7f 53 55 42 5a 4c 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 31 ┆(VARNR) SUBZL 0,0 ; AC0=1┆ 0x0be0…0c00 0d 0a 09 7f 4c 44 41 20 40 09 7f 32 2c 55 2e 53 54 4b 2c 33 0d 0a 09 7f 4c 44 41 09 7f 30 2c 2b ┆ LDA @ 2,U.STK,3 LDA 0,+┆ 0x0c00…0c20 30 2c 32 09 7f 09 7f 3b 20 48 45 4e 54 20 41 28 31 2e 20 4f 52 44 29 0d 0a 09 7f 4c 44 41 09 7f ┆0,2 ; HENT A(1. ORD) LDA ┆ 0x0c20…0c40 32 2c 43 55 52 0d 0a 09 7f 4d 4f 56 09 7f 30 2c 30 2c 53 5a 52 09 7f 09 7f 3b 20 41 3d 30 3f 3f ┆2,CUR MOV 0,0,SZR ; A=0??┆ 0x0c40…0c60 3f 0d 0a 09 7f 4a 4d 50 20 50 41 52 54 32 09 7f 09 7f 3b 0d 0a 09 7f 4c 44 41 09 7f 33 2c 41 44 ┆? JMP PART2 ; LDA 3,AD┆ 0x0c60…0c80 52 45 53 09 7f 09 7f 3b 20 48 45 4e 54 20 42 55 46 41 44 52 45 53 53 45 0d 0a 09 7f 4c 44 41 09 ┆RES ; HENT BUFADRESSE LDA ┆ 0x0c80…0ca0 7f 30 2c 2b 30 2c 33 09 7f 09 7f 3b 20 41 43 30 3d 46 28 41 44 52 45 53 29 0d 0a 09 7f 4c 44 41 ┆ 0,+0,3 ; AC0=F(ADRES) LDA┆ 0x0ca0…0cc0 09 7f 31 2c 2b 31 2c 33 09 7f 09 7f 3b 20 41 43 31 3d 46 28 41 44 52 45 53 2b 31 29 0d 0a 09 7f ┆ 1,+1,3 ; AC1=F(ADRES+1) ┆ 0x0cc0…0ce0 4c 44 41 09 7f 32 2c 43 55 52 0d 0a 09 7f 41 2e 50 44 4f 55 42 4c 45 09 7f 09 7f 3b 09 7f 41 43 ┆LDA 2,CUR A.PDOUBLE ; AC┆ 0x0ce0…0d00 27 53 2d 2d 3e 42 0d 0a 09 7f 31 09 7f 09 7f 09 7f 3b 20 09 7f 53 45 47 4d 45 4e 54 20 4e 55 4d ┆'S-->B 1 ; SEGMENT NUM┆ 0x0d00…0d20 42 45 52 0d 0a 42 41 44 52 45 3a 09 7f 30 09 7f 09 7f 09 7f 3b 09 7f 42 2d 41 44 52 45 53 53 45 ┆BER BADRE: 0 ; B-ADRESSE┆ 0x0d20…0d40 0d 0a 09 7f 4a 4d 50 20 55 44 09 7f 09 7f 3b 0d 0a 50 41 52 54 32 3a 09 7f 53 55 42 5a 4c 09 7f ┆ JMP UD ; PART2: SUBZL ┆ 0x0d40…0d60 30 2c 30 0d 0a 09 7f 4c 44 41 09 7f 31 2c 42 41 44 52 45 09 7f 09 7f 3b 20 4e 45 4a 3a 09 7f 48 ┆0,0 LDA 1,BADRE ; NEJ: H┆ 0x0d60…0d80 45 4e 54 20 42 2d 41 44 52 45 53 53 45 0d 0a 09 7f 41 2e 47 44 4f 55 42 4c 45 09 7f 09 7f 3b 20 ┆ENT B-ADRESSE A.GDOUBLE ; ┆ 0x0d80…0da0 09 7f 48 45 4e 54 20 42 2d 2d 3e 3b 41 43 27 53 0d 0a 09 7f 4c 44 41 09 7f 33 2c 41 44 52 45 53 ┆ HENT B-->;AC'S LDA 3,ADRES┆ 0x0da0…0dc0 09 7f 09 7f 3b 20 41 43 33 3d 42 55 46 41 44 52 45 53 53 45 28 56 41 52 4e 52 29 0d 0a 09 7f 53 ┆ ; AC3=BUFADRESSE(VARNR) S┆ 0x0dc0…0de0 54 41 09 7f 30 2c 2b 30 2c 33 09 7f 09 7f 3b 20 41 43 27 53 2d 2d 3e 42 55 46 28 56 41 52 4e 52 ┆TA 0,+0,3 ; AC'S-->BUF(VARNR┆ 0x0de0…0e00 29 0d 0a 09 7f 53 54 41 09 7f 31 2c 2b 31 2c 33 0d 0a 55 44 3a 09 7f 53 55 42 09 7f 30 2c 30 09 ┆) STA 1,+1,3 UD: SUB 0,0 ┆ 0x0e00…0e20 7f 09 7f 3b 20 41 43 30 3d 30 0d 0a 09 7f 53 54 41 09 7f 30 2c 52 45 53 43 48 09 7f 09 7f 3b 20 ┆ ; AC0=0 STA 0,RESCH ; ┆ 0x0e20…0e40 52 45 53 43 48 3d 30 0d 0a 09 7f 52 45 54 31 09 7f 09 7f 09 7f 3b 20 45 4e 44 20 42 55 46 0d 0a ┆RESCH=0 RET1 ; END BUF ┆ 0x0e40…0e60 09 7f 09 7f 09 7f 09 7f 3b 0d 0a 52 45 53 43 48 3a 09 7f 30 09 7f 09 7f 09 7f 3b 20 52 45 53 45 ┆ ; RESCH: 0 ; RESE┆ 0x0e60…0e80 52 56 45 52 49 4e 47 53 53 54 41 54 55 53 0d 0a 42 55 46 41 44 3a 09 7f 42 55 46 54 42 0d 0a 42 ┆RVERINGSSTATUS BUFAD: BUFTB B┆ 0x0e80…0ea0 55 46 54 42 3a 09 7f 2e 42 4c 4b 20 38 09 7f 09 7f 09 7f 3b 20 56 41 52 42 55 46 20 4f 4d 52 5d ┆UFTB: .BLK 8 ; VARBUF OMRÅ┆ 0x0ea0…0ec0 44 45 0d 0a 41 44 52 45 53 3a 09 7f 30 0d 0a 0c 46 49 58 30 30 3a 09 7f 33 0d 0a 09 7f 52 45 41 ┆DE ADRES: 0 FIX00: 3 REA┆ 0x0ec0…0ee0 4c 2b 52 45 46 45 52 45 4e 43 45 0d 0a 09 7f 52 45 41 4c 2b 52 45 46 45 52 45 4e 43 45 0d 0a 09 ┆L+REFERENCE REAL+REFERENCE ┆ 0x0ee0…0f00 7f 52 45 41 4c 2b 52 45 46 45 52 45 4e 43 45 0d 0a 09 7f 53 55 42 5a 4c 09 7f 30 2c 30 09 7f 09 ┆ REAL+REFERENCE SUBZL 0,0 ┆ 0x0f00…0f20 7f 3b 20 41 43 30 3d 31 0d 0a 09 7f 4c 44 41 20 40 20 09 7f 31 2c 2b 30 2c 32 09 7f 09 7f 3b 20 ┆ ; AC0=1 LDA @ 1,+0,2 ; ┆ 0x0f20…0f40 41 43 31 3d 41 2d 41 44 52 45 53 53 45 0d 0a 09 7f 4c 44 41 09 7f 32 2c 43 55 52 09 7f 09 7f 3b ┆AC1=A-ADRESSE LDA 2,CUR ;┆ 0x0f40…0f60 20 41 43 32 3d 43 55 52 0d 0a 09 7f 41 2e 47 44 4f 55 42 4c 45 09 7f 09 7f 3b 20 48 45 4e 54 20 ┆ AC2=CUR A.GDOUBLE ; HENT ┆ 0x0f60…0f80 41 0d 0a 09 7f 53 54 41 09 7f 30 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 47 45 4d 20 4f 52 44 20 31 ┆A STA 0,U.S00,3 ; GEM ORD 1┆ 0x0f80…0fa0 20 41 46 20 41 0d 0a 09 7f 53 55 42 43 09 7f 30 2c 30 09 7f 09 7f 3b 20 41 43 30 3d 30 0d 0a 09 ┆ AF A SUBC 0,0 ; AC0=0 ┆ 0x0fa0…0fc0 7f 42 43 41 4c 4c 20 46 4c 4f 41 54 09 7f 09 7f 3b 20 46 4c 4f 41 54 20 4f 52 44 32 20 41 46 20 ┆ BCALL FLOAT ; FLOAT ORD2 AF ┆ 0x0fc0…0fe0 41 0d 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 ┆A LDA 2,CUR ; AC2=CUR ┆ 0x0fe0…1000 4c 44 41 09 7f 33 2c 55 2e 53 54 4b 2c 33 09 7f 3b 20 41 43 33 3d 46 28 46 28 55 53 45 52 29 2b ┆LDA 3,U.STK,3 ; AC3=F(F(USER)+┆ 0x1000…1020 55 2e 53 54 4b 29 0d 0a 09 7f 4c 44 41 20 40 09 7f 33 2c 2b 32 2c 33 09 7f 09 7f 3b 20 41 43 33 ┆U.STK) LDA @ 3,+2,3 ; AC3┆ 0x1020…1040 3d 43 2d 41 44 52 45 53 53 45 0d 0a 09 7f 53 54 41 09 7f 33 2c 46 49 58 30 31 09 7f 09 7f 3b 20 ┆=C-ADRESSE STA 3,FIX01 ; ┆ 0x1040…1060 47 45 4d 20 43 2d 41 44 52 45 53 53 45 0d 0a 09 7f 41 2e 50 44 4f 55 42 4c 45 09 7f 09 7f 3b 20 ┆GEM C-ADRESSE A.PDOUBLE ; ┆ 0x1060…1080 47 45 4d 20 46 4c 4f 41 54 20 41 46 20 4f 52 44 32 20 41 46 20 41 20 49 20 42 0d 0a 09 7f 31 0d ┆GEM FLOAT AF ORD2 AF A I B 1 ┆ 0x1080…10a0 0a 46 49 58 30 31 3a 09 7f 30 0d 0a 09 7f 4c 44 41 09 7f 31 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 ┆ FIX01: 0 LDA 1,U.S00,3 ; ┆ 0x10a0…10c0 48 45 4e 54 20 4f 52 44 31 20 41 46 20 41 0d 0a 09 7f 53 55 42 43 09 7f 30 2c 30 09 7f 09 7f 3b ┆HENT ORD1 AF A SUBC 0,0 ;┆ 0x10c0…10e0 20 41 43 30 3d 30 0d 0a 09 7f 42 43 41 4c 4c 20 46 4c 4f 41 54 09 7f 09 7f 3b 20 46 4c 4f 41 54 ┆ AC0=0 BCALL FLOAT ; FLOAT┆ 0x10e0…1100 20 4f 52 44 31 20 41 46 20 41 0d 0a 09 7f 4c 44 41 09 7f 32 2c 43 55 52 09 7f 09 7f 3b 20 41 43 ┆ ORD1 AF A LDA 2,CUR ; AC┆ 0x1100…1120 32 3d 43 55 52 0d 0a 09 7f 4c 44 41 09 7f 33 2c 55 2e 53 54 4b 2c 33 09 7f 0d 0a 09 7f 4c 44 41 ┆2=CUR LDA 3,U.STK,3 LDA┆ 0x1120…1140 20 40 09 7f 33 2c 2b 31 2c 33 09 7f 09 7f 3b 20 41 43 33 3d 42 2d 41 44 52 45 53 53 45 0d 0a 09 ┆ @ 3,+1,3 ; AC3=B-ADRESSE ┆ 0x1140…1160 7f 53 54 41 09 7f 33 2c 46 49 58 30 32 09 7f 09 7f 3b 20 47 45 4d 20 42 2d 41 44 52 45 53 53 45 ┆ STA 3,FIX02 ; GEM B-ADRESSE┆ 0x1160…1180 0d 0a 09 7f 41 2e 50 44 4f 55 42 4c 45 09 7f 09 7f 3b 20 47 45 4d 20 46 4c 4f 41 54 20 41 46 20 ┆ A.PDOUBLE ; GEM FLOAT AF ┆ 0x1180…11a0 4f 52 44 32 20 41 46 20 41 20 49 20 43 0d 0a 09 7f 31 0d 0a 46 49 58 30 32 3a 09 7f 30 0d 0a 09 ┆ORD2 AF A I C 1 FIX02: 0 ┆ 0x11a0…11c0 7f 52 45 54 31 09 7f 09 7f 09 7f 3b 20 45 4e 44 20 46 49 58 0d 0a 0c 46 4c 4f 30 30 3a 09 7f 33 ┆ RET1 ; END FIX FLO00: 3┆ 0x11c0…11e0 0d 0a 09 7f 52 45 41 4c 0d 0a 09 7f 52 45 41 4c 0d 0a 09 7f 52 45 41 4c 2b 52 45 46 45 52 45 4e ┆ REAL REAL REAL+REFEREN┆ 0x11e0…1200 43 45 0d 0a 09 7f 4c 44 41 20 20 09 7f 32 2c 2b 30 2c 32 09 7f 09 7f 3b 20 41 43 31 3d 41 2d 41 ┆CE LDA 2,+0,2 ; AC1=A-A┆ 0x1200…1220 44 52 45 53 53 45 0d 0a 09 7f 45 58 45 43 55 54 45 09 7f 09 7f 09 7f 3b 20 45 58 45 43 20 46 4c ┆DRESSE EXECUTE ; EXEC FL┆ 0x1220…1240 4f 30 32 0d 0a 09 7f 46 4c 4f 30 32 0d 0a 09 7f 52 45 54 30 09 7f 09 7f 09 7f 3b 20 48 56 49 53 ┆O02 FLO02 RET0 ; HVIS┆ 0x1240…1260 20 45 52 52 4f 52 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 ┆ ERROR STA 1,U.S00,3 ; GEM ┆ 0x1260…1280 44 45 4c 20 31 20 41 46 20 43 0d 0a 09 7f 4c 44 41 09 7f 32 2c 55 2e 53 54 4b 2c 33 0d 0a 09 7f ┆DEL 1 AF C LDA 2,U.STK,3 ┆ 0x1280…12a0 4c 44 41 20 20 09 7f 32 2c 2b 31 2c 32 09 7f 09 7f 3b 20 41 43 31 3d 42 2d 41 44 52 45 53 53 45 ┆LDA 2,+1,2 ; AC1=B-ADRESSE┆ 0x12a0…12c0 0d 0a 09 7f 45 58 45 43 55 54 45 0d 0a 09 7f 46 4c 4f 30 32 0d 0a 09 7f 52 45 54 30 0d 0a 09 7f ┆ EXECUTE FLO02 RET0 ┆ 0x12c0…12e0 4c 44 41 09 7f 30 2c 55 2e 53 30 30 2c 33 09 7f 3b 20 48 45 4e 54 20 44 45 4c 20 31 20 41 46 20 ┆LDA 0,U.S00,3 ; HENT DEL 1 AF ┆ 0x12e0…1300 43 0d 0a 09 7f 4c 44 41 09 7f 32 2c 55 2e 53 54 4b 2c 33 0d 0a 09 7f 4c 44 41 20 40 09 7f 32 2c ┆C LDA 2,U.STK,3 LDA @ 2,┆ 0x1300…1320 2b 32 2c 32 09 7f 09 7f 3b 20 41 43 32 3d 43 2d 41 44 52 45 53 53 45 0d 0a 09 7f 53 54 41 09 7f ┆+2,2 ; AC2=C-ADRESSE STA ┆ 0x1320…1340 32 2c 46 4c 4f 30 31 09 7f 09 7f 3b 20 47 45 4d 20 43 2d 41 44 52 45 53 53 45 0d 0a 09 7f 4c 44 ┆2,FLO01 ; GEM C-ADRESSE LD┆ 0x1340…1360 41 09 7f 32 2c 43 55 52 0d 0a 09 7f 41 2e 50 44 4f 55 42 4c 45 09 7f 09 7f 3b 20 41 43 30 2c 41 ┆A 2,CUR A.PDOUBLE ; AC0,A┆ 0x1360…1380 43 31 2d 2d 3e 43 0d 0a 09 7f 31 0d 0a 46 4c 4f 30 31 3a 09 7f 30 0d 0a 09 7f 52 45 54 31 0d 0a ┆C1-->C 1 FLO01: 0 RET1 ┆ 0x1380…13a0 46 4c 4f 30 32 3a 09 7f 4c 44 41 09 7f 30 2c 2b 30 2c 32 0d 0a 09 7f 4c 44 41 09 7f 31 2c 2b 31 ┆FLO02: LDA 0,+0,2 LDA 1,+1┆ 0x13a0…13c0 2c 32 09 7f 09 7f 3b 20 2a 2a 20 43 42 20 52 45 54 20 2a 2a 0d 0a 09 7f 42 43 41 4c 4c 20 46 49 ┆,2 ; ** CB RET ** BCALL FI┆ 0x13c0…13e0 58 09 7f 09 7f 3b 20 4c 41 56 20 4f 4d 20 54 49 4c 20 48 45 4c 54 41 4c 0d 0a 09 7f 4d 4f 56 09 ┆X ; LAV OM TIL HELTAL MOV ┆ 0x13e0…1400 7f 30 2c 30 2c 53 4e 52 09 7f 09 7f 3b 20 30 3d 3c 41 2f 42 3d 3c 33 32 4b 20 3f 3f 3f 0d 0a 09 ┆ 0,0,SNR ; 0=<A/B=<32K ??? ┆ 0x1400…1420 7f 52 45 54 31 09 7f 09 7f 09 7f 3b 20 4a 41 3a 20 52 45 54 55 52 4e 0d 0a 09 7f 45 52 52 4f 52 ┆ RET1 ; JA: RETURN ERROR┆ 0x1420…1440 09 7f 09 7f 09 7f 3b 20 4e 45 4a 3a 20 52 45 54 55 52 4e 20 4d 45 44 20 45 52 52 4f 52 20 39 30 ┆ ; NEJ: RETURN MED ERROR 90┆ 0x1440…1460 0d 0a 09 7f 39 30 2e 0d 0a 0c 43 44 52 31 31 3a 20 20 20 20 32 20 20 20 20 20 20 20 20 20 20 20 ┆ 90. CDR11: 2 ┆ 0x1460…1480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4e 43 4c 55 44 45 20 54 57 4f 20 50 41 52 ┆ ; INCLUDE TWO PAR┆ 0x1480…14a0 41 4d 45 54 45 52 53 20 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 4c 20 20 20 20 20 20 20 20 ┆AMETERS REAL ┆ 0x14a0…14c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4e 46 4f 52 4d 41 54 4f 52 20 0d 0a 20 20 ┆ ; INFORMATOR ┆ 0x14c0…14e0 20 20 20 20 20 20 20 20 52 45 41 4c 2b 41 52 52 41 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ REAL+ARRAY ┆ 0x14e0…1500 20 20 20 3b 20 44 41 54 41 20 53 54 4f 52 41 47 45 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 44 ┆ ; DATA STORAGE LD┆ 0x1500…1520 41 20 20 20 31 2c 52 53 54 41 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4c 4f 41 44 20 ┆A 1,RSTAT ; LOAD ┆ 0x1520…1540 52 45 53 45 52 56 41 54 49 4f 4e 20 53 54 41 54 55 53 20 0d 0a 20 20 20 20 20 20 20 20 20 20 53 ┆RESERVATION STATUS S┆ 0x1540…1560 5a 20 20 20 20 31 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 4b 49 50 ┆Z 1,1 ; SKIP┆ 0x1560…1580 20 4f 4e 20 52 4f 55 54 49 4e 45 20 49 44 4c 45 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4a 4d 50 ┆ ON ROUTINE IDLE JMP┆ 0x1580…15a0 20 20 20 2e 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 42 59 20 52 45 50 ┆ .-2 ; BY REP┆ 0x15a0…15c0 45 41 54 49 4e 47 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 20 20 31 2c 2b 35 2c 32 20 ┆EATING LDA 1,+5,2 ┆ 0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4c 4f 41 44 20 4d 41 58 2e 20 4e 4f 20 4f 46 20 ┆ ; LOAD MAX. NO OF ┆ 0x15e0…1600 52 4f 57 53 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 4f 20 20 20 20 30 2c 30 20 20 20 20 20 20 ┆ROWS LO 0,0 ┆ 0x1600…1620 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 30 3d 31 20 0d 0a 20 20 20 20 20 20 20 20 20 20 53 45 ┆ ; 0=1 SE┆ 0x1620…1640 51 20 20 20 30 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 4b 49 50 20 ┆Q 0,1 ; SKIP ┆ 0x1640…1660 49 46 20 4e 4f 20 4f 46 20 52 4f 57 53 3d 31 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4a 4d 50 20 ┆IF NO OF ROWS=1 JMP ┆ 0x1660…1680 20 20 45 52 52 33 31 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ERR31 ┆ 0x1680…16a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4a 4d 50 20 54 4f 20 27 49 4e 44 45 4b 53 46 ┆ ; JMP TO 'INDEKSF┆ 0x16a0…16c0 45 4a 4c 27 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 44 41 20 20 20 31 2c 44 4d 41 44 52 20 20 ┆EJL' LDA 1,DMADR ┆ 0x16c0…16e0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4c 4f 41 44 20 41 44 44 52 45 53 53 20 4f 46 20 43 4f ┆ ; LOAD ADDRESS OF CO┆ 0x16e0…1700 52 45 20 44 55 4d 50 20 41 52 45 41 20 0d 0a 20 20 20 20 20 20 20 20 20 20 44 4f 42 20 20 20 31 ┆RE DUMP AREA DOB 1┆ 0x1700…1720 2c 2e 43 44 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4e 53 54 52 55 43 54 20 43 ┆,.CDR ; INSTRUCT C┆ 0x1720…1740 44 52 20 43 4f 4e 54 52 4f 4c 4c 45 52 20 0d 0a 20 20 20 20 20 20 20 20 20 20 44 4f 41 53 20 20 ┆DR CONTROLLER DOAS ┆ 0x1740…1760 30 2c 2e 43 44 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 45 41 44 20 41 20 42 49 ┆0,.CDR ; READ A BI┆ 0x1760…1780 4e 41 52 59 20 43 41 52 44 20 0d 0a 20 20 20 20 20 20 20 20 20 20 53 4b 50 42 5a 20 2e 43 44 52 ┆NARY CARD SKPBZ .CDR┆ 0x1780…17a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 57 41 49 54 20 55 4e 54 49 4c 20 42 55 ┆ ; WAIT UNTIL BU┆ 0x17a0…17c0 53 59 3d 30 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 2e 2d 31 20 20 20 20 20 20 ┆SY=0 JMP .-1 ┆ 0x17c0…17e0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 45 50 45 41 54 20 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ; REPEAT ┆ 0x17e0…1800 20 44 49 42 43 20 20 30 2c 2e 43 44 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 30 3d ┆ DIBC 0,.CDR ; 0=┆ 0x1800…1820 4c 41 53 54 20 41 44 44 52 45 53 53 20 41 4e 44 20 43 4c 4f 53 45 20 44 45 56 49 43 45 0d 0a 20 ┆LAST ADDRESS AND CLOSE DEVICE ┆ 0x1820…1840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 20 20 30 2c 55 2e 53 30 35 2c ┆ STA 0,U.S05,┆ 0x1840…1860 33 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 54 4f 52 45 20 4c 41 53 54 20 43 4f 52 45 20 ┆3 ; STORE LAST CORE ┆ 0x1860…1880 41 44 44 52 45 53 53 0d 0a 20 0d 0a 20 20 20 20 20 20 20 20 20 20 53 55 42 20 20 20 31 2c 30 20 ┆ADDRESS SUB 1,0 ┆ 0x1880…18a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 4c ┆ ; NUMBER OF COL┆ 0x18a0…18c0 55 4d 4e 53 20 52 45 41 44 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 5a 20 20 20 20 31 2c 31 20 ┆UMNS READ LZ 1,1 ┆ 0x18c0…18e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 31 3d 30 20 0d 0a 20 20 20 20 20 20 20 ┆ ; 1=0 ┆ 0x18e0…1900 20 20 20 53 4e 5a 20 20 20 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ SNZ 0,0 ; ┆ 0x1900…1920 53 4b 49 50 20 49 46 20 4e 4f 54 20 5a 45 52 4f 20 0d 0a 20 20 20 20 20 20 20 20 20 20 4a 4d 50 ┆SKIP IF NOT ZERO JMP┆ […truncated at 200 lines…]