|
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: 5120 (0x1400)
Names: »ASPLI«
└─⟦1423d85c7⟧ Bits:30001820 SG0119 Floppy
└─ ⟦this⟧ »/ASPLI«
0x0000…0020 09 7f 09 7f 3b 46 4c 45 4d 4d 49 4e 47 20 4a 41 43 4f 42 53 45 4e 20 41 50 52 2d 4d 41 4a 20 27 ┆ ;FLEMMING JACOBSEN APR-MAJ '┆
0x0020…0040 38 34 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 4f 50 53 50 4c 49 54 4e 49 4e 47 53 50 52 4f 47 ┆84 ; ;OPSPLITNINGSPROG┆
0x0040…0060 52 41 4d 20 54 49 4c 20 46 49 4c 45 52 20 0d 0a 09 7f 09 7f 3b 42 45 53 54 5d 45 4e 44 45 20 41 ┆RAM TIL FILER ;BESTÅENDE A┆
0x0060…0080 46 20 53 41 4d 4d 45 4e 41 50 50 45 4e 44 45 44 45 0d 0a 09 7f 09 7f 3b 50 52 4f 47 52 41 4d 4d ┆F SAMMENAPPENDEDE ;PROGRAMM┆
0x0080…00a0 45 52 20 28 45 58 2e 20 46 44 4d 55 53 2c 43 4f 50 53 31 20 29 2e 20 20 20 52 45 56 20 32 2e 30 ┆ER (EX. FDMUS,COPS1 ). REV 2.0┆
0x00a0…00c0 31 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 44 45 4e 20 42 49 4e 5b 52 45 ┆1 ; ; ;DEN BINÆRE┆
0x00c0…00e0 20 56 45 52 53 49 4f 4e 20 4c 4f 41 44 45 53 20 4d 45 44 20 31 20 41 46 20 46 4c 47 2e 0d 0a 09 ┆ VERSION LOADES MED 1 AF FLG. ┆
0x00e0…0100 7f 09 7f 3b 50 41 52 4d 2e 4b 4f 4d 42 2e 20 3a 0d 0a 09 7f 09 7f 3b 09 7f 31 3a 20 20 3c 53 4f ┆ ;PARM.KOMB. : ; 1: <SO┆
0x0100…0120 55 52 53 45 46 49 4c 4e 41 56 4e 3e 0d 0a 09 7f 09 7f 3b 09 7f 32 3a 20 20 3c 20 20 20 20 20 20 ┆URSEFILNAVN> ; 2: < ┆
0x0120…0140 2d 20 20 20 20 20 20 3e 3c 55 44 46 49 4c 4e 41 56 4e 3e 0d 0a 09 7f 09 7f 3b 09 7f 33 3a 20 20 ┆- ><UDFILNAVN> ; 3: ┆
0x0140…0160 3c 20 20 20 20 20 20 2d 20 20 20 20 20 20 3e 3c 20 20 20 20 2d 20 20 20 20 3e 3c 55 44 44 45 56 ┆< - >< - ><UDDEV┆
0x0160…0180 49 43 45 3e 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 09 7f 55 44 46 49 4c 4e 41 56 4e 3a 20 20 ┆ICE> ; ; UDFILNAVN: ┆
0x0180…01a0 34 20 43 48 52 2e 20 2d 20 44 45 4e 20 35 2e 20 42 52 55 47 45 53 20 54 49 4c 20 4e 55 4d 45 52 ┆4 CHR. - DEN 5. BRUGES TIL NUMER┆
0x01a0…01c0 45 52 49 4e 47 28 41 2c 42 2c 43 2e 2e 2e 2e 29 0d 0a 09 7f 09 7f 3b 09 7f 55 44 44 45 56 49 43 ┆ERING(A,B,C....) ; UDDEVIC┆
0x01c0…01e0 45 20 3a 20 20 30 2c 31 20 45 4c 4c 45 52 20 33 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 09 7f ┆E : 0,1 ELLER 3 ; ; ┆
0x01e0…0200 09 7f 44 45 46 41 55 4c 54 20 20 3a 20 20 55 44 46 49 4c 4e 41 56 4e 3d 20 46 49 4c 45 0d 0a 09 ┆ DEFAULT : UDFILNAVN= FILE ┆
0x0200…0220 7f 09 7f 3b 09 7f 09 7f 20 20 20 20 20 20 20 20 20 20 20 20 55 44 44 45 56 49 43 45 20 3d 20 30 ┆ ; UDDEVICE = 0┆
0x0220…0240 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 20 20 53 54 ┆ ; ; ; ; ST┆
0x0240…0260 52 55 4b 54 55 52 3f 20 2c 20 56 45 44 20 44 45 54 20 20 2d 20 20 4d 45 4e 20 44 45 54 20 56 49 ┆RUKTUR? , VED DET - MEN DET VI┆
0x0260…0280 52 4b 45 52 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 09 7f 09 7f 09 7f 46 ┆RKER ; ; ; F┆
0x0280…02a0 2e 4a 2e 20 32 35 2f 35 2d 38 34 0d 0a 09 7f 09 7f 3b 0d 0a 09 7f 09 7f 3b 0d 0a 0d 0a 0d 0a 0d ┆.J. 25/5-84 ; ; ┆
0x02a0…02c0 0a 0d 0a 09 7f 2e 54 49 54 4c 20 46 4a 4f 53 50 0d 0a 09 7f 2e 4e 52 45 4c 0d 0a 09 7f 2e 52 44 ┆ .TITL FJOSP .NREL .RD┆
0x02c0…02e0 58 4f 20 31 36 0d 0a 09 7f 2e 52 44 58 20 31 30 0d 0a 09 7f 2e 54 58 54 4d 20 31 0d 0a 09 7f 2e ┆XO 16 .RDX 10 .TXTM 1 .┆
0x02e0…0300 54 58 54 4e 20 31 0d 0a 09 7f 2e 4e 4f 4c 4f 43 20 31 0d 0a 50 47 44 3a 09 7f 31 42 30 2b 31 42 ┆TXTN 1 .NOLOC 1 PGD: 1B0+1B┆
0x0300…0320 35 2b 31 42 31 35 0d 0a 09 7f 50 47 44 30 0d 0a 09 7f 30 0d 0a 09 7f 50 43 44 2d 50 47 44 0d 0a ┆5+1B15 PGD0 0 PCD-PGD ┆
0x0320…0340 09 7f 2e 54 58 54 20 40 46 4a 4f 53 50 40 0d 0a 50 47 44 30 3a 0d 0a 09 7f 2e 4d 41 43 52 4f 20 ┆ .TXT @FJOSP@ PGD0: .MACRO ┆
0x0340…0360 53 59 4d 42 0d 0a 09 7f 4c 41 24 3d 2e 0d 0a 09 7f 5e 31 0d 0a 09 7f 2e 54 58 54 20 40 5e 31 40 ┆SYMB LA$=. ^1 .TXT @^1@┆
0x0360…0380 0d 0a 09 7f 2e 44 4f 20 4c 41 24 2b 34 2d 2e 0d 0a 09 7f 30 0d 0a 09 7f 2e 45 4e 44 43 0d 0a 09 ┆ .DO LA$+4-. 0 .ENDC ┆
0x0380…03a0 7f 25 0d 0a 42 55 46 46 3a 09 7f 2e 2b 30 0d 0a 09 7f 2e 2d 31 0d 0a 09 7f 42 55 46 30 0d 0a 09 ┆ % BUFF: .+0 .-1 BUF0 ┆
0x03a0…03c0 7f 31 30 0d 0a 09 7f 50 43 44 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a ┆ 10 PCD 0 0 0 0 ┆
0x03c0…03e0 09 7f 30 0d 0a 42 55 46 30 3a 09 7f 2e 2b 30 0d 0a 09 7f 2e 2d 31 0d 0a 09 7f 42 55 46 31 0d 0a ┆ 0 BUF0: .+0 .-1 BUF1 ┆
0x03e0…0400 09 7f 31 30 0d 0a 09 7f 50 43 44 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d ┆ 10 PCD 0 0 0 0 ┆
0x0400…0420 0a 09 7f 30 0d 0a 42 55 46 31 3a 09 7f 2e 2b 30 0d 0a 09 7f 2e 2d 31 0d 0a 09 7f 30 0d 0a 09 7f ┆ 0 BUF1: .+0 .-1 0 ┆
0x0420…0440 31 30 0d 0a 09 7f 50 43 44 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 ┆10 PCD 0 0 0 0 ┆
0x0440…0460 7f 30 0c 46 5a 4f 3a 09 7f 2e 54 58 54 20 40 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 40 0d ┆ 0 FZO: .TXT @<0><0><0><0><0>@ ┆
0x0460…0480 0a 09 7f 5a 0d 0a 09 7f 30 0d 0a 09 7f 31 42 31 34 2b 31 42 31 33 2b 31 42 31 32 2b 31 42 31 31 ┆ Z 0 1B14+1B13+1B12+1B11┆
0x0480…04a0 0d 0a 09 7f 36 35 35 33 35 0d 0a 09 7f 45 4e 44 0d 0a 09 7f 31 0d 0a 09 7f 31 0d 0a 09 7f 30 0d ┆ 65535 END 1 1 0 ┆
0x04a0…04c0 0a 09 7f 46 5a 4f 30 0d 0a 09 7f 32 36 33 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 46 5a 4f 31 ┆ FZO0 263 0 0 FZO1┆
0x04c0…04e0 2a 32 0d 0a 09 7f 46 5a 4f 31 2a 32 0d 0a 09 7f 46 5a 4f 30 0d 0a 09 7f 35 31 32 0d 0a 09 7f 30 ┆*2 FZO1*2 FZO0 512 0┆
0x04e0…0500 0d 0a 09 7f 2e 42 4c 4b 20 5a 41 55 58 0d 0a 46 5a 4f 30 3a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f ┆ .BLK ZAUX FZO0: 0 0 ┆
0x0500…0520 30 0d 0a 09 7f 30 0d 0a 09 7f 46 5a 4f 30 0d 0a 09 7f 30 0d 0a 09 7f 46 5a 4f 31 2a 32 0d 0a 46 ┆0 0 FZO0 0 FZO1*2 F┆
0x0520…0540 5a 4f 31 3a 09 7f 2e 42 4c 4b 20 32 35 36 0d 0a 0d 0a 0d 0a 50 55 54 31 3a 09 7f 30 0d 0a 50 55 ┆ZO1: .BLK 256 PUT1: 0 PU┆
0x0540…0560 54 42 3a 09 7f 53 54 41 20 33 2c 50 55 54 31 09 7f 3b 20 20 43 41 4c 4c 20 3a 20 42 4f 47 53 54 ┆TB: STA 3,PUT1 ; CALL : BOGST┆
0x0560…0580 2e 20 20 3f 20 20 3f 20 20 28 29 0d 0a 09 7f 4c 44 41 20 31 2c 4c 5a 4e 41 09 7f 3b 20 20 52 45 ┆. ? ? () LDA 1,LZNA ; RE┆
0x0580…05a0 54 55 20 3a 20 20 20 3d 20 20 20 20 20 2d 20 20 2d 20 20 2d 0d 0a 09 7f 50 55 54 42 59 54 45 0d ┆TU : = - - - PUTBYTE ┆
0x05a0…05c0 0a 09 7f 4a 4d 50 20 40 20 50 55 54 31 0d 0a 4c 5a 4e 41 3a 2e 2b 32 2a 32 2b 32 0d 0a 4c 5a 4f ┆ JMP @ PUT1 LZNA:.+2*2+2 LZO┆
0x05c0…05e0 3a 09 7f 2e 54 58 54 20 40 46 49 4c 45 3c 30 3e 3c 30 3e 40 0d 0a 09 7f 5a 0d 0a 09 7f 30 0d 0a ┆: .TXT @FILE<0><0>@ Z 0 ┆
0x05e0…0600 09 7f 31 42 31 34 2b 31 42 31 33 2b 31 42 31 32 2b 31 42 31 31 0d 0a 09 7f 36 35 35 33 35 0d 0a ┆ 1B14+1B13+1B12+1B11 65535 ┆
0x0600…0620 09 7f 45 4e 44 0d 0a 09 7f 31 0d 0a 09 7f 31 0d 0a 09 7f 30 0d 0a 09 7f 4c 5a 4f 30 0d 0a 09 7f ┆ END 1 1 0 LZO0 ┆
0x0620…0640 32 36 33 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 4c 5a 4f 31 2a 32 0d 0a 09 7f 4c 5a 4f 31 2a ┆263 0 0 LZO1*2 LZO1*┆
0x0640…0660 32 0d 0a 09 7f 4c 5a 4f 30 0d 0a 09 7f 35 31 32 0d 0a 09 7f 30 0d 0a 09 7f 2e 42 4c 4b 20 5a 41 ┆2 LZO0 512 0 .BLK ZA┆
0x0660…0680 55 58 0d 0a 4c 5a 4f 30 3a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 4c ┆UX LZO0: 0 0 0 0 L┆
0x0680…06a0 5a 4f 30 0d 0a 09 7f 30 0d 0a 09 7f 4c 5a 4f 31 2a 32 0d 0a 4c 5a 4f 31 3a 09 7f 2e 42 4c 4b 20 ┆ZO0 0 LZO1*2 LZO1: .BLK ┆
0x06a0…06c0 32 35 36 0c 42 45 47 30 3a 09 7f 4c 5a 4f 0d 0a 42 45 47 31 3a 09 7f 46 5a 4f 0d 0a 42 45 47 32 ┆256 BEG0: LZO BEG1: FZO BEG2┆
0x06c0…06e0 3a 09 7f 30 09 7f 09 7f 09 7f 3b 4c 4f 41 44 20 50 41 52 4d 2e 20 41 44 52 2e 20 42 45 47 2e 0d ┆: 0 ;LOAD PARM. ADR. BEG. ┆
0x06e0…0700 0a 42 45 47 3a 09 7f 53 54 41 20 31 2c 42 45 47 32 0d 0a 09 7f 4d 4f 56 20 31 2c 32 0d 0a 09 7f ┆ BEG: STA 1,BEG2 MOV 1,2 ┆
0x0700…0720 4c 44 41 20 30 2c 36 2c 32 0d 0a 09 7f 4c 44 41 20 32 2c 43 55 52 0d 0a 09 7f 4d 4f 56 20 30 2c ┆LDA 0,6,2 LDA 2,CUR MOV 0,┆
0x0720…0740 30 2c 53 5a 52 09 7f 3b 49 4e 47 45 4e 20 53 4f 55 52 43 45 46 49 4c 20 3f 0d 0a 09 7f 54 45 52 ┆0,SZR ;INGEN SOURCEFIL ? TER┆
0x0740…0760 4d 09 7f 09 7f 3b 44 45 41 44 0d 0a 09 7f 4c 44 41 20 32 2c 42 45 47 32 0d 0a 09 7f 4c 44 41 20 ┆M ;DEAD LDA 2,BEG2 LDA ┆
0x0760…0780 33 2c 42 45 47 31 0d 0a 09 7f 4c 44 41 20 30 2c 37 2c 32 0d 0a 09 7f 53 54 41 20 30 2c 30 2c 33 ┆3,BEG1 LDA 0,7,2 STA 0,0,3┆
0x0780…07a0 0d 0a 09 7f 4c 44 41 20 30 2c 38 2c 32 0d 0a 09 7f 53 54 41 20 30 2c 31 2c 33 0d 0a 09 7f 4c 44 ┆ LDA 0,8,2 STA 0,1,3 LD┆
0x07a0…07c0 41 20 30 2c 39 2c 32 0d 0a 09 7f 53 54 41 20 30 2c 32 2c 33 0d 0a 09 7f 4c 44 41 20 33 2c 42 45 ┆A 0,9,2 STA 0,2,3 LDA 3,BE┆
0x07c0…07e0 47 30 0d 0a 09 7f 4c 44 41 20 30 2c 31 30 2c 32 0d 0a 09 7f 4c 44 41 20 31 2c 2e 31 30 0d 0a 09 ┆G0 LDA 0,10,2 LDA 1,.10 ┆
0x07e0…0800 7f 53 45 51 20 31 2c 30 0d 0a 09 7f 4a 4d 50 20 42 45 47 33 09 7f 09 7f 3b 49 4e 54 45 54 20 53 ┆ SEQ 1,0 JMP BEG3 ;INTET S┆
0x0800…0820 50 45 43 2e 20 46 49 4c 4e 41 56 4e 20 3f 0d 0a 09 7f 4c 44 41 20 30 2c 31 32 2c 32 0d 0a 09 7f ┆PEC. FILNAVN ? LDA 0,12,2 ┆
0x0820…0840 53 54 41 20 30 2c 30 2c 33 0d 0a 09 7f 4c 44 41 20 30 2c 31 33 2c 32 09 7f 3b 46 4c 59 54 20 55 ┆STA 0,0,3 LDA 0,13,2 ;FLYT U┆
0x0840…0860 44 46 49 4c 4e 41 56 4e 0d 0a 09 7f 53 54 41 20 30 2c 31 2c 33 0d 0a 09 7f 4c 44 41 20 31 2c 2e ┆DFILNAVN STA 0,1,3 LDA 1,.┆
0x0860…0880 36 0d 0a 09 7f 4c 44 41 20 30 2c 31 35 2c 32 0d 0a 09 7f 53 45 51 20 31 2c 30 0d 0a 09 7f 4a 4d ┆6 LDA 0,15,2 SEQ 1,0 JM┆
0x0880…08a0 50 20 42 45 47 33 09 7f 09 7f 3b 49 4e 47 45 4e 20 53 50 45 43 20 55 44 44 45 56 20 3f 0d 0a 09 ┆P BEG3 ;INGEN SPEC UDDEV ? ┆
0x08a0…08c0 7f 4c 44 41 20 30 2c 31 37 2c 32 09 7f 3b 46 4c 59 54 20 55 44 44 45 56 2e 0d 0a 09 7f 53 54 41 ┆ LDA 0,17,2 ;FLYT UDDEV. STA┆
0x08c0…08e0 20 30 2c 32 2c 33 0d 0a 42 45 47 33 3a 09 7f 4c 44 41 20 30 2c 2e 31 0d 0a 09 7f 4c 44 41 20 32 ┆ 0,2,3 BEG3: LDA 0,.1 LDA 2┆
0x08e0…0900 2c 42 45 47 31 0d 0a 09 7f 4f 50 45 4e 0d 0a 09 7f 4c 44 41 20 30 2c 2e 30 09 7f 09 7f 3b 20 44 ┆,BEG1 OPEN LDA 0,.0 ; D┆
0x0900…0920 45 4e 4e 45 20 4f 47 20 32 20 46 4c 47 2e 20 49 4e 44 53 41 54 20 50 48 4b 38 34 30 35 30 33 30 ┆ENNE OG 2 FLG. INDSAT PHK8405030┆
0x0920…0940 39 33 31 0d 0a 09 7f 4c 44 41 20 31 2c 2e 31 0d 0a 09 7f 53 45 54 50 4f 09 7f 0d 0a 09 7f 4a 4d ┆931 LDA 1,.1 SETPO JM┆
0x0940…0960 50 20 4e 59 46 49 31 0d 0a 52 45 54 55 3a 30 0d 0a 46 49 42 4f 47 3a 36 33 0d 0a 4e 59 46 49 3a ┆P NYFI1 RETU:0 FIBOG:63 NYFI:┆
0x0960…0980 09 7f 53 54 41 20 33 2c 52 45 54 55 0d 0a 09 7f 4c 44 41 20 32 2c 42 45 47 30 0d 0a 09 7f 4c 44 ┆ STA 3,RETU LDA 2,BEG0 LD┆
0x0980…09a0 41 20 31 2c 2e 30 0d 0a 09 7f 4f 55 54 43 48 0d 0a 09 7f 4f 55 54 43 48 0d 0a 09 7f 4c 44 41 20 ┆A 1,.0 OUTCH OUTCH LDA ┆
0x09a0…09c0 31 2c 2e 31 0d 0a 09 7f 43 4c 4f 53 45 0d 0a 4e 59 46 49 31 3a 09 7f 49 53 5a 20 46 49 42 4f 47 ┆1,.1 CLOSE NYFI1: ISZ FIBOG┆
0x09c0…09e0 0d 0a 09 7f 4c 44 41 20 32 2c 43 55 52 0d 0a 09 7f 4c 44 41 20 30 2c 46 49 42 4f 47 0d 0a 09 7f ┆ LDA 2,CUR LDA 0,FIBOG ┆
0x09e0…0a00 50 55 42 59 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 ┆PUBY LDA 0,.1 LDA 1,.0 ┆
0x0a00…0a20 4c 44 41 20 32 2c 42 45 47 30 0d 0a 09 7f 43 52 45 41 54 45 0d 0a 09 7f 4c 44 41 20 30 2c 2e 33 ┆LDA 2,BEG0 CREATE LDA 0,.3┆
0x0a20…0a40 0d 0a 09 7f 4f 50 45 4e 0d 0a 09 7f 4c 44 41 20 30 2c 52 45 54 55 0d 0a 09 7f 4d 4f 56 20 30 2c ┆ OPEN LDA 0,RETU MOV 0,┆
0x0a40…0a60 30 20 53 5a 52 0d 0a 09 7f 4a 4d 50 20 40 20 52 45 54 55 0d 0a 09 7f 4c 44 41 20 32 2c 43 55 52 ┆0 SZR JMP @ RETU LDA 2,CUR┆
0x0a60…0a80 0d 0a 09 7f 48 4f 56 45 44 0d 0a 0c 52 45 53 54 3a 09 7f 30 0d 0a 52 45 31 3a 09 7f 30 09 7f 09 ┆ HOVED REST: 0 RE1: 0 ┆
0x0a80…0aa0 7f 09 7f 09 7f 3b 46 4c 41 47 20 49 4e 44 49 4b 45 52 45 52 20 4f 4d 20 4e 59 20 52 45 53 54 20 ┆ ;FLAG INDIKERER OM NY REST ┆
0x0aa0…0ac0 53 4b 41 4c 20 42 45 52 45 47 4e 45 53 20 31 3d 4a 41 0d 0a 52 45 32 3a 09 7f 30 0d 0a 52 45 33 ┆SKAL BEREGNES 1=JA RE2: 0 RE3┆
0x0ac0…0ae0 3a 09 7f 4c 5a 4f 0d 0a 49 48 30 3a 09 7f 30 0d 0a 49 48 31 3a 09 7f 30 0d 0a 49 48 32 3a 09 7f ┆: LZO IH0: 0 IH1: 0 IH2: ┆
0x0ae0…0b00 30 0d 0a 4d 41 49 4e 3a 0d 0a 09 7f 4c 44 41 20 32 2c 43 55 52 0d 0a 09 7f 49 57 44 09 7f 09 7f ┆0 MAIN: LDA 2,CUR IWD ┆
0x0b00…0b20 09 7f 09 7f 3b 48 45 4e 54 20 57 4f 52 44 0d 0a 09 7f 53 54 41 20 30 2c 49 48 30 0d 0a 09 7f 53 ┆ ;HENT WORD STA 0,IH0 S┆
0x0b20…0b40 54 41 20 31 2c 49 48 31 0d 0a 09 7f 53 54 41 20 32 2c 49 48 32 0d 0a 09 7f 4c 44 41 20 31 2c 52 ┆TA 1,IH1 STA 2,IH2 LDA 1,R┆
0x0b40…0b60 45 31 09 7f 09 7f 3b 49 46 20 46 4c 41 47 3d 31 20 54 48 45 4e 0d 0a 09 7f 4c 44 41 20 32 2c 2e ┆E1 ;IF FLAG=1 THEN LDA 2,.┆
0x0b60…0b80 31 0d 0a 09 7f 53 45 51 20 31 2c 32 0d 0a 09 7f 4a 4d 50 20 58 58 58 0d 0a 09 7f 4c 44 41 20 31 ┆1 SEQ 1,2 JMP XXX LDA 1┆
0x0b80…0ba0 2c 49 48 31 0d 0a 09 7f 4c 44 41 20 32 2c 49 48 32 09 7f 09 7f 3b 42 45 52 45 47 4e 20 52 45 53 ┆,IH1 LDA 2,IH2 ;BEREGN RES┆
0x0ba0…0bc0 54 20 41 46 20 42 4c 4f 4b 20 4f 47 20 4c 5b 47 20 49 20 52 45 53 54 0d 0a 09 7f 53 55 42 20 32 ┆T AF BLOK OG LÆG I REST SUB 2┆
0x0bc0…0be0 2c 31 0d 0a 09 7f 4c 44 41 20 32 2c 2e 37 0d 0a 09 7f 53 55 42 20 32 2c 31 0d 0a 09 7f 53 54 41 ┆,1 LDA 2,.7 SUB 2,1 STA┆
0x0be0…0c00 20 31 2c 52 45 53 54 0d 0a 09 7f 4c 44 41 20 31 2c 2e 30 09 7f 09 7f 3b 53 5b 54 20 46 4c 41 47 ┆ 1,REST LDA 1,.0 ;SÆT FLAG┆
0x0c00…0c20 3d 30 0d 0a 09 7f 53 54 41 20 31 2c 52 45 31 09 7f 09 7f 0d 0a 09 7f 49 53 5a 20 52 45 53 54 09 ┆=0 STA 1,RE1 ISZ REST ┆
0x0c20…0c40 7f 09 7f 3b 45 4e 44 49 46 0d 0a 58 58 58 3a 09 7f 4c 44 41 20 31 2c 52 45 53 54 0d 0a 09 7f 4d ┆ ;ENDIF XXX: LDA 1,REST M┆
0x0c40…0c60 4f 56 20 31 2c 31 2c 53 4e 52 0d 0a 09 7f 4a 53 52 20 43 48 43 4b 09 7f 09 7f 3b 55 4e 44 45 52 ┆OV 1,1,SNR JSR CHCK ;UNDER┆
0x0c60…0c80 53 5c 47 20 4f 4d 20 37 2d 42 4c 4f 4b 0d 0a 09 7f 4c 44 41 20 32 2c 52 45 33 0d 0a 09 7f 4c 44 ┆SØG OM 7-BLOK LDA 2,RE3 LD┆
0x0c80…0ca0 41 20 31 2c 49 48 31 0d 0a 09 7f 4f 55 54 43 48 41 52 09 7f 09 7f 09 7f 09 7f 3b 53 4b 52 49 56 ┆A 1,IH1 OUTCHAR ;SKRIV┆
0x0ca0…0cc0 20 57 4f 52 44 20 55 44 20 50 5d 20 46 49 4c 0d 0a 09 7f 4c 44 41 20 31 2c 49 48 32 0d 0a 09 7f ┆ WORD UD PÅ FIL LDA 1,IH2 ┆
0x0cc0…0ce0 4f 55 54 43 48 41 52 0d 0a 09 7f 49 53 5a 20 52 45 53 54 0d 0a 09 7f 4a 4d 50 20 4d 41 49 4e 0d ┆OUTCHAR ISZ REST JMP MAIN ┆
0x0ce0…0d00 0a 09 7f 4a 4d 50 20 4d 41 49 4e 0d 0a 43 48 43 4b 3a 09 7f 53 54 41 20 33 2c 52 45 32 0d 0a 09 ┆ JMP MAIN CHCK: STA 3,RE2 ┆
0x0d00…0d20 7f 4c 44 41 20 30 2c 49 48 30 0d 0a 09 7f 4c 44 41 20 31 2c 2e 30 09 7f 09 7f 3b 53 4c 55 54 20 ┆ LDA 0,IH0 LDA 1,.0 ;SLUT ┆
0x0d20…0d40 50 5d 20 46 49 4c 3f 0d 0a 09 7f 4c 44 41 20 32 2c 43 55 52 0d 0a 09 7f 53 4e 45 20 31 2c 30 0d ┆PÅ FIL? LDA 2,CUR SNE 1,0 ┆
0x0d40…0d60 0a 09 7f 54 45 52 4d 43 0d 0a 09 7f 4c 44 41 20 31 2c 2e 37 0d 0a 09 7f 53 4e 45 20 31 2c 30 0d ┆ TERMC LDA 1,.7 SNE 1,0 ┆
0x0d60…0d80 0a 09 7f 4e 59 46 49 4c 09 7f 09 7f 09 7f 09 7f 3b 4c 55 4b 20 47 4c 20 46 49 4c 20 5d 42 45 4e ┆ NYFIL ;LUK GL FIL ÅBEN┆
0x0d80…0da0 20 4e 59 0d 0a 09 7f 4c 44 41 20 31 2c 2e 31 0d 0a 09 7f 53 54 41 20 31 2c 52 45 31 09 7f 09 7f ┆ NY LDA 1,.1 STA 1,RE1 ┆
0x0da0…0dc0 3b 53 5b 54 20 46 4c 41 47 3d 31 0d 0a 09 7f 4a 4d 50 20 40 20 52 45 32 0d 0a 0c 45 4e 44 30 3a ┆;SÆT FLAG=1 JMP @ RE2 END0:┆
0x0dc0…0de0 09 7f 2e 2b 31 0d 0a 09 7f 31 42 38 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 ┆ .+1 1B8 0 0 0 0┆
0x0de0…0e00 0d 0a 45 4e 44 31 3a 09 7f 2e 2b 31 0d 0a 09 7f 2e 54 58 54 20 40 53 3c 30 3e 3c 30 3e 3c 30 3e ┆ END1: .+1 .TXT @S<0><0><0>┆
0x0e00…0e20 3c 30 3e 40 0d 0a 45 4e 44 32 3a 09 7f 46 5a 4f 0d 0a 45 4e 44 33 3a 09 7f 4c 5a 4f 0d 0a 45 4e ┆<0>@ END2: FZO END3: LZO EN┆
0x0e20…0e40 44 43 3a 09 7f 4c 44 41 20 32 2c 45 4e 44 32 0d 0a 09 7f 4c 44 41 20 b3 24 d8 53 13 66 0a 4e f2 ┆DC: LDA 2,END2 LDA $ S f N ┆
0x0e40…0e60 10 c0 c2 80 0a b2 1a 87 d2 81 1d c4 37 88 28 46 90 4f b0 78 56 a5 72 2d 0b 61 80 50 68 64 a2 e0 ┆ 7 (F O xV r- a Phd ┆
0x0e60…0e80 20 30 f0 aa 3e 49 4b 32 a1 70 96 02 59 55 73 2e ec 04 d2 9d 28 2d e8 91 6c 5a 95 20 00 23 20 2a ┆ 0 >IK2 p YUs. (- lZ # *┆
0x0e80…0ea0 0a 09 7f 4c 44 41 20 31 2c 2e 31 0d 0a 09 7f 43 4c 4f 53 45 0d 0a 09 7f 4c 44 41 20 32 2c 43 55 ┆ LDA 1,.1 CLOSE LDA 2,CU┆
0x0ea0…0ec0 52 0d 0a 09 7f 4c 44 41 20 30 2c 2e 36 34 0d 0a 09 7f 50 55 42 59 0d 0a 09 7f 4c 44 41 20 32 2c ┆R LDA 0,.64 PUBY LDA 2,┆
0x0ec0…0ee0 45 4e 44 33 0d 0a 09 7f 52 45 4d 4f 56 45 45 4e 54 52 59 0d 0a 45 4e 44 3a 09 7f 4c 44 41 20 31 ┆END3 REMOVEENTRY END: LDA 1┆
0x0ee0…0f00 2c 45 4e 44 30 0d 0a 09 7f 4c 44 41 20 32 2c 45 4e 44 31 0d 0a 09 7f 53 45 4e 44 4d 0d 0a 09 7f ┆,END0 LDA 2,END1 SENDM ┆
0x0f00…0f20 4c 44 41 20 32 2c 43 55 52 0d 0a 09 7f 53 54 4f 50 50 0d 0a 09 7f 4a 4d 50 20 45 4e 44 0d 0a 0d ┆LDA 2,CUR STOPP JMP END ┆
0x0f20…0f40 0a 0d 0a 0d 0a 0d 0a 0d 0a 47 57 44 30 3a 09 7f 30 0d 0a 47 57 44 31 3a 09 7f 30 0d 0a 47 57 44 ┆ GWD0: 0 GWD1: 0 GWD┆
0x0f40…0f60 32 3a 09 7f 30 0d 0a 47 57 44 33 3a 09 7f 46 5a 4f 0d 0a 47 57 44 34 3a 09 7f 30 0d 0a 47 57 44 ┆2: 0 GWD3: FZO GWD4: 0 GWD┆
0x0f60…0f80 3a 09 7f 53 54 41 20 31 2c 47 57 44 30 0d 0a 09 7f 53 54 41 20 33 2c 47 57 44 31 0d 0a 09 7f 4c ┆: STA 1,GWD0 STA 3,GWD1 L┆
0x0f80…0fa0 44 41 20 32 2c 47 57 44 33 0d 0a 09 7f 49 4e 43 48 41 0d 0a 09 7f 53 54 41 20 31 2c 47 57 44 32 ┆DA 2,GWD3 INCHA STA 1,GWD2┆
0x0fa0…0fc0 0d 0a 09 7f 49 4e 43 48 41 0d 0a 09 7f 53 54 41 20 31 2c 47 57 44 34 0d 0a 09 7f 4d 4f 56 5a 53 ┆ INCHA STA 1,GWD4 MOVZS┆
0x0fc0…0fe0 20 31 2c 31 0d 0a 09 7f 4c 44 41 20 30 2c 47 57 44 32 0d 0a 09 7f 41 44 44 20 31 2c 30 0d 0a 09 ┆ 1,1 LDA 0,GWD2 ADD 1,0 ┆
0x0fe0…1000 7f 4c 44 41 20 31 2c 47 57 44 32 0d 0a 09 7f 4c 44 41 20 32 2c 47 57 44 34 0d 0a 09 7f 4a 4d 50 ┆ LDA 1,GWD2 LDA 2,GWD4 JMP┆
0x1000…1020 20 40 20 47 57 44 31 0d 0a 0c 09 7f 4e 59 46 49 0d 0a 09 7f 4d 41 49 4e 09 7f 0d 0a 09 7f 45 4e ┆ @ GWD1 NYFI MAIN EN┆
0x1020…1040 44 0d 0a 09 7f 45 4e 44 43 0d 0a 09 7f 47 57 44 0d 0a 09 7f 50 55 54 42 0d 0a 0d 0a 0d 0a 0d 0a ┆D ENDC GWD PUTB ┆
0x1040…1060 0d 0a 0d 0a 2e 44 55 53 52 09 7f 50 55 42 59 09 7f 3d 4a 53 52 20 40 20 2d 31 2c 32 0d 0a 2e 44 ┆ .DUSR PUBY =JSR @ -1,2 .D┆
0x1060…1080 55 53 52 09 7f 49 57 44 09 7f 3d 4a 53 52 20 40 20 2d 32 2c 32 0d 0a 2e 44 55 53 52 09 7f 54 45 ┆USR IWD =JSR @ -2,2 .DUSR TE┆
0x1080…10a0 52 4d 43 09 7f 3d 4a 4d 50 20 40 20 2d 33 2c 32 0d 0a 2e 44 55 53 52 09 7f 54 45 52 4d 09 7f 3d ┆RMC =JMP @ -3,2 .DUSR TERM =┆
0x10a0…10c0 4a 4d 50 20 40 20 2d 34 2c 32 0d 0a 2e 44 55 53 52 09 7f 48 4f 56 45 44 09 7f 3d 4a 4d 50 20 40 ┆JMP @ -4,2 .DUSR HOVED =JMP @┆
0x10c0…10e0 20 2d 35 2c 32 0d 0a 2e 44 55 53 52 09 7f 4e 59 46 49 4c 09 7f 3d 4a 53 52 20 40 20 2d 36 2c 32 ┆ -5,2 .DUSR NYFIL =JSR @ -6,2┆
0x10e0…1100 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 50 43 44 3a 09 7f 2e 2b 30 0d 0a 09 7f 2e 2d 31 0d 0a 09 7f ┆ PCD: .+0 .-1 ┆
0x1100…1120 30 0d 0a 09 7f 30 0d 0a 09 7f 2e 54 58 54 20 40 46 4a 4f 53 50 40 0d 0a 09 7f 2e 2b 30 0d 0a 09 ┆0 0 .TXT @FJOSP@ .+0 ┆
0x1120…1140 7f 2e 2d 31 0d 0a 09 7f 42 55 46 46 0d 0a 09 7f 50 47 44 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 ┆ .-1 BUFF PGD 0 0 ┆
0x1140…1160 7f 34 7f 86 05 79 4f b6 00 57 00 97 cb 6c 84 ef 20 d0 8a 9f 4a a2 03 21 01 2b e2 01 81 41 2f e6 ┆ 4 yO W l J ! + A/ ┆
0x1160…1180 00 a1 41 2f e8 48 a8 e5 3f ff ff ff fe ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ A/ H ? ┆
0x1180…11a0 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 0d 0a 09 7f 30 ┆ 0 0 0 0 0 0 0┆
0x11a0…11c0 0d 0a 09 7f 2e 45 4e 44 20 50 43 44 0d 0a 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ .END PCD ┆
0x11c0…11e0 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 ┆ ┆
[…0x11…]