|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 21632 (0x5480)
Names: »FILEX.A86«
└─⟦a6ed5458e⟧ Bits:30004537/disk1.imd SW1400 Piccoline Distributions system 2.2
└─⟦this⟧ »FILEX.A86«
0x0000…0400 (0,) 0x00[0x400]
0x0400…0420 (1,) 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 ┆ ┆
[…0x10…]
0x0620…0640 40 1b 00 00 ff ff 40 1b 00 00 00 00 00 00 00 00 3c 3e 2e 2c 3d 3a 7c 5b 5d 2a 0a 0d 00 00 00 00 ┆@ @ <>.,=:øÆÅ* ┆
0x0640…0660 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…]
0x0680…06a0 11 0f 00 0a 00 ff ff 75 06 b8 ff ff e9 bc 00 56 e8 18 ff 44 44 b8 fe 0f 50 8b c6 bb b4 00 f7 e3 ┆ u V DD P ┆
0x06a0…06c0 93 58 03 c3 89 c7 83 7e 06 00 75 04 81 0d 08 00 83 7e 08 00 75 04 81 0d 10 00 b8 c0 0f 50 ff 76 ┆ X ü u ü u P v┆
0x06c0…06e0 04 e8 55 2b 83 c4 04 0b c0 75 0b 81 0d 03 00 8b c6 e9 77 00 eb 19 b8 c6 0f 50 ff 76 04 e8 39 2b ┆ U+ u w P v 9+┆
0x06e0…0700 83 c4 04 0b c0 75 08 81 0d 05 00 8b c6 eb 5c b8 0f 00 50 ff 76 04 56 e8 2c 12 83 c4 06 0b c0 74 ┆ u Ø P v V , t┆
0x0700…0720 72 72 65 6e 74 20 43 50 2f 4d 2d 38 36 24 4e 6f 20 77 69 6c 64 63 61 72 64 73 20 61 6c 6c 6f 77 ┆rrent CP/M-86$No wildcards allow┆
0x0720…0740 65 64 2e 24 46 69 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 2e 24 49 6e 76 61 6c 69 64 20 46 69 6c 65 ┆ed.$File not found.$Invalid File┆
0x0740…0760 73 70 65 63 2e 24 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 ┆spec.$ ┆
0x0760…0780 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 ┆ ┆
0x0780…07a0 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 ┆U U U U UU U U U U UU U U U U┆
0x07a0…07c0 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa ┆ UU U U U U UU U U U U UU U U ┆
0x07c0…07e0 aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 aa 55 55 aa ┆ U U UU U U U U UU U U U U UU ┆
0x07e0…0800 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 aa 55 55 aa 55 aa 55 aa aa 55 aa 55 ┆U U U U UU U U U U UU U U U U┆
0x0800…0820 (2,) 09 09 3b 0d 0a 6d 6d 3a 09 4d 4f 56 09 44 58 2c 30 30 38 30 48 09 3b 0d 0a 09 4d 4f 56 09 53 49 ┆ ; mm: MOV DX,0080H ; MOV SI┆
0x0820…0840 2c 44 58 0d 0a 09 4c 4f 44 53 42 09 09 09 3b 0d 0a 09 43 4d 50 09 41 4c 2c 30 09 09 3b 0d 0a 09 ┆,DX LODSB ; CMP AL,0 ; ┆
0x0840…0860 4a 4e 5a 09 6d 32 09 09 3b 20 72 64 63 6f 6e 73 3a 3d 6e 6f 20 70 61 72 61 6d 65 74 65 72 73 20 ┆JNZ m2 ; rdcons:=no parameters ┆
0x0860…0880 73 70 65 63 69 66 69 65 64 0d 0a 09 4d 4f 56 09 42 59 54 45 20 50 54 52 20 72 64 63 6f 6e 73 2c ┆specified MOV BYTE PTR rdcons,┆
0x0880…08a0 74 72 75 65 0d 0a 09 09 09 09 3b 20 61 66 74 65 72 20 70 72 6f 67 72 61 6d 20 6e 61 6d 65 0d 0a ┆true ; after program name ┆
0x08a0…08c0 6d 32 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 74 74 65 78 74 3b 20 77 72 69 74 65 28 ┆m2: MOV DX,OFFSET sttext; write(┆
0x08c0…08e0 27 46 49 4c 45 58 20 2d 20 76 65 72 20 78 2e 78 27 29 3b 0d 0a 09 4d 4f 56 09 43 4c 2c 70 72 69 ┆'FILEX - ver x.x'); MOV CL,pri┆
0x08e0…0900 6e 74 09 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 0d 0a 09 09 09 09 3b 0d 0a 61 63 74 3a 0d 0a ┆nt ; INT 224 ; ; act: ┆
0x0900…0920 09 43 41 4c 4c 09 67 65 74 6e 65 78 74 69 74 65 6d 09 3b 20 67 65 74 6e 65 78 74 69 74 65 6d 3b ┆ CALL getnextitem ; getnextitem;┆
0x0920…0940 0d 0a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 69 74 65 6d 6c 65 6e 0d 0a 09 4d 4f 56 09 44 ┆ MOV BX,OFFSET itemlen MOV D┆
0x0940…0960 58 2c 4f 46 46 53 45 54 20 72 65 63 65 69 76 65 0d 0a 09 43 41 4c 4c 09 63 6f 6d 70 09 09 3b 0d ┆X,OFFSET receive CALL comp ; ┆
0x0960…0980 0a 09 4a 4e 5a 09 6c 30 30 30 30 09 09 3b 0d 0a 09 4a 4d 50 09 73 6c 65 65 70 09 09 3b 20 69 66 ┆ JNZ l0000 ; JMP sleep ; if┆
0x0980…09a0 20 69 74 65 6d 3d 27 72 65 6d 6f 74 65 27 20 74 68 65 6e 20 67 6f 74 6f 20 73 6c 65 65 70 3b 0d ┆ item='remote' then goto sleep; ┆
0x09a0…09c0 0a 6c 30 30 30 30 3a 09 4d 4f 56 09 41 4c 2c 69 74 65 6d 6c 65 6e 09 3b 0d 0a 09 43 4d 50 09 41 ┆ l0000: MOV AL,itemlen ; CMP A┆
0x09c0…09e0 4c 2c 30 09 09 3b 0d 0a 09 4a 4e 5a 09 6c 30 30 30 31 09 09 3b 0d 0a 09 4a 4d 50 09 65 6e 64 70 ┆L,0 ; JNZ l0001 ; JMP endp┆
0x09e0…0a00 72 6f 67 09 09 3b 20 69 66 20 69 74 65 6d 3d 27 27 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 70 ┆rog ; if item='' then goto endp┆
0x0a00…0a20 72 6f 67 3b 0d 0a 6c 30 30 30 31 3a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 69 74 65 6d 6c ┆rog; l0001: MOV BX,OFFSET iteml┆
0x0a20…0a40 65 6e 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 6e 6f 65 6e 64 09 3b 0d 0a 09 43 41 4c ┆en MOV DX,OFFSET noend ; CAL┆
0x0a40…0a60 4c 09 63 6f 6d 70 09 09 3b 0d 0a 09 4a 4e 5a 09 61 63 74 32 09 09 3b 0d 0a 09 4a 4d 50 09 62 6f ┆L comp ; JNZ act2 ; JMP bo┆
0x0a60…0a80 6f 74 09 09 3b 20 69 66 20 69 74 65 6d 3d 27 4e 4f 45 4e 44 27 20 74 68 65 6e 20 67 6f 74 6f 20 ┆ot ; if item='NOEND' then goto ┆
0x0a80…0aa0 62 6f 6f 74 3b 0d 0a 61 63 74 32 3a 09 43 41 4c 4c 09 62 75 69 6c 64 6e 61 6d 65 09 3b 20 6e 61 ┆boot; act2: CALL buildname ; na┆
0x0aa0…0ac0 6d 65 3a 3d 62 75 69 6c 64 6e 61 6d 65 28 69 74 65 6d 29 20 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 ┆me:=buildname(item) MOV DX,OF┆
0x0ac0…0ae0 46 53 45 54 20 75 6e 69 74 6e 72 3b 0d 0a 09 4d 4f 56 09 41 4c 2c 72 65 6d 6f 74 65 09 3b 0d 0a ┆FSET unitnr; MOV AL,remote ; ┆
0x0ae0…0b00 09 4d 4f 56 09 6c 68 61 6e 64 73 69 64 65 2c 41 4c 09 3b 20 6c 68 61 6e 64 73 69 64 65 3a 3d 20 ┆ MOV lhandside,AL ; lhandside:= ┆
0x0b00…0b20 28 52 78 3a 20 73 70 65 63 69 66 69 65 64 29 0d 0a 09 43 4d 50 09 41 4c 2c 74 72 75 65 09 09 3b ┆(Rx: specified) CMP AL,true ;┆
0x0b20…0b40 0d 0a 09 4a 5a 09 61 63 74 33 09 09 3b 20 69 66 20 6e 6f 74 20 52 78 3a 20 73 70 65 63 69 66 69 ┆ JZ act3 ; if not Rx: specifi┆
0x0b40…0b60 65 64 20 74 68 65 6e 20 20 0d 0a 09 58 4f 52 09 41 4c 2c 41 4c 09 09 3b 20 62 65 67 69 6e 0d 0a ┆ed then XOR AL,AL ; begin ┆
0x0b60…0b80 09 4d 4f 56 09 73 66 63 62 63 72 2c 41 4c 09 3b 20 20 20 73 66 63 62 72 63 3a 3d 30 3b 0d 0a 09 ┆ MOV sfcbcr,AL ; sfcbrc:=0; ┆
0x0b80…0ba0 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 20 20 20 73 66 63 62 6e 61 6d 65 3a ┆MOV BX,OFFSET sfcb ; sfcbname:┆
0x0ba0…0bc0 3d 6e 61 6d 65 0d 0a 09 4a 4d 50 09 61 63 74 34 09 09 3b 20 65 6e 64 0d 0a 61 63 74 33 3a 09 4d ┆=name JMP act4 ; end act3: M┆
0x0bc0…0be0 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 62 75 66 6e 61 6d 65 0d 0a 09 09 09 09 3b 20 65 6c 73 65 ┆OV BX,OFFSET bufname ; else┆
0x0be0…0c00 0d 0a 61 63 74 34 3a 09 43 41 4c 4c 09 6d 6f 76 65 6e 61 6d 65 09 3b 20 62 65 67 69 6e 0d 0a 09 ┆ act4: CALL movename ; begin ┆
0x0c00…0c20 (3,) 56 09 41 4c 2c 32 09 09 3b 0d 0a 09 4d 4f 56 09 62 75 66 6f 70 2c 41 4c 09 3b 20 62 75 66 2e 6f ┆V AL,2 ; MOV bufop,AL ; buf.o┆
0x0c20…0c40 70 65 72 61 74 69 6f 6e 3a 3d 32 3b 20 28 2a 6d 61 6b 65 2a 29 0d 0a 09 4d 4f 56 09 57 4f 52 44 ┆peration:=2; (*make*) MOV WORD┆
0x0c40…0c60 20 50 54 52 20 61 6e 74 61 6c 2c 31 39 09 3b 20 61 6e 74 61 6c 3a 3d 31 39 3b 0d 0a 09 43 41 4c ┆ PTR antal,19 ; antal:=19; CAL┆
0x0c60…0c80 4c 09 6f 75 74 61 6e 64 69 6e 09 3b 20 6f 75 74 6c 69 6e 65 28 62 75 66 2c 61 6e 74 61 6c 29 3b ┆L outandin ; outline(buf,antal);┆
0x0c80…0ca0 0d 0a 09 09 09 09 3b 20 69 6e 6c 69 6e 65 28 62 75 66 2c 61 6e 74 61 6c 29 3b 0d 0a 09 4d 4f 56 ┆ ; inline(buf,antal); MOV┆
0x0ca0…0cc0 09 41 4c 2c 62 75 66 73 74 09 3b 0d 0a 09 43 4d 50 09 41 4c 2c 74 72 61 6e 73 6d 09 3b 20 69 66 ┆ AL,bufst ; CMP AL,transm ; if┆
0x0cc0…0ce0 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 20 65 72 72 6f 72 20 74 68 65 6e 20 61 62 6f 72 74 0d 0a ┆ transmission error then abort ┆
0x0ce0…0d00 09 4a 4e 5a 09 6c 30 30 34 09 09 3b 0d 0a 09 4a 4d 50 09 74 72 78 65 72 72 09 09 3b 0d 0a 6c 30 ┆ JNZ l004 ; JMP trxerr ; l0┆
0x0d00…0d20 30 34 3a 09 43 4d 50 09 41 4c 2c 6f 6b 09 09 3b 20 69 66 20 6d 61 6b 65 2d 65 72 72 6f 72 20 74 ┆04: CMP AL,ok ; if make-error t┆
0x0d20…0d40 68 65 6e 20 61 62 6f 72 74 0d 0a 09 4a 5a 09 6c 30 30 35 09 09 3b 0d 0a 09 4a 4d 50 09 6d 61 6b ┆hen abort JZ l005 ; JMP mak┆
0x0d40…0d60 65 65 72 72 09 09 3b 0d 0a 6c 30 30 35 3a 09 4d 4f 56 09 43 4c 2c 64 6d 61 6f 66 66 09 3b 0d 0a ┆eerr ; l005: MOV CL,dmaoff ; ┆
0x0d60…0d80 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 62 75 66 61 72 65 61 0d 0a 09 49 4e 54 09 32 32 34 ┆ MOV DX,OFFSET bufarea INT 224┆
0x0d80…0da0 09 09 3b 20 73 65 74 64 6d 61 6f 66 66 73 65 74 28 62 75 66 2e 61 72 65 61 29 3b 0d 0a 09 4d 4f ┆ ; setdmaoffset(buf.area); MO┆
0x0da0…0dc0 56 09 43 4c 2c 64 6d 61 73 65 67 09 3b 0d 0a 09 4d 4f 56 09 44 58 2c 44 53 09 09 3b 0d 0a 09 49 ┆V CL,dmaseg ; MOV DX,DS ; I┆
0x0dc0…0de0 4e 54 09 32 32 34 09 09 3b 20 73 65 74 64 6d 61 73 65 67 28 62 75 66 2e 61 72 65 61 29 3b 0d 0a ┆NT 224 ; setdmaseg(buf.area); ┆
0x0de0…0e00 09 4d 4f 56 09 41 4c 2c 34 09 09 3b 0d 0a 09 4d 4f 56 09 62 75 66 6f 70 2c 41 4c 09 3b 20 62 75 ┆ MOV AL,4 ; MOV bufop,AL ; bu┆
0x0e00…0e20 66 2e 6f 70 65 72 61 74 69 6f 6e 3a 3d 34 3b 20 28 2a 20 77 72 69 74 65 20 2a 29 0d 0a 6c 74 6f ┆f.operation:=4; (* write *) lto┆
0x0e20…0e40 72 32 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 20 77 68 69 6c 65 20 6e ┆r2: MOV DX,OFFSET sfcb ; while n┆
0x0e40…0e60 6f 74 20 65 6f 66 28 73 6f 75 72 63 65 29 20 64 6f 0d 0a 09 09 09 09 3b 20 62 65 67 69 6e 0d 0a ┆ot eof(source) do ; begin ┆
0x0e60…0e80 09 4d 4f 56 09 43 4c 2c 72 65 61 64 09 09 3b 20 20 20 72 65 61 64 28 73 6f 75 72 63 65 29 3b 0d ┆ MOV CL,read ; read(source); ┆
0x0e80…0ea0 0a 09 49 4e 54 09 32 32 34 09 09 3b 0d 0a 09 4f 52 09 41 4c 2c 41 4c 09 09 3b 0d 0a 09 4a 5a 09 ┆ INT 224 ; OR AL,AL ; JZ ┆
0x0ea0…0ec0 6c 30 30 36 09 09 3b 0d 0a 09 4a 4d 50 09 63 6c 6f 73 66 69 6c 65 73 09 3b 0d 0a 6c 30 30 36 3a ┆l006 ; JMP closfiles ; l006:┆
0x0ec0…0ee0 09 4d 4f 56 09 57 4f 52 44 20 50 54 52 20 61 6e 74 61 6c 2c 31 33 31 3b 20 61 6e 74 61 6c 20 3a ┆ MOV WORD PTR antal,131; antal :┆
0x0ee0…0f00 3d 20 31 33 31 3b 0d 0a 09 43 41 4c 4c 09 6f 75 74 61 6e 64 69 6e 09 3b 20 20 20 6f 75 74 6c 69 ┆= 131; CALL outandin ; outli┆
0x0f00…0f20 6e 65 28 62 75 66 2c 61 6e 74 61 6c 29 3b 0d 0a 09 09 09 09 3b 20 20 20 69 6e 6c 69 6e 65 28 62 ┆ne(buf,antal); ; inline(b┆
0x0f20…0f40 75 66 2c 61 6e 74 61 6c 29 3b 0d 0a 09 4d 4f 56 09 41 4c 2c 62 75 66 73 74 09 3b 0d 0a 09 43 4d ┆uf,antal); MOV AL,bufst ; CM┆
0x0f40…0f60 50 09 41 4c 2c 74 72 61 6e 73 6d 09 3b 20 20 20 69 66 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 2d ┆P AL,transm ; if transmission-┆
0x0f60…0f80 65 72 72 6f 72 20 74 68 65 6e 20 61 62 6f 72 74 0d 0a 09 4a 4e 5a 09 6c 30 30 37 09 09 3b 0d 0a ┆error then abort JNZ l007 ; ┆
0x0f80…0fa0 09 4a 4d 50 09 74 72 78 65 72 72 09 09 3b 20 0d 0a 6c 30 30 37 3a 09 43 4d 50 09 41 4c 2c 6f 6b ┆ JMP trxerr ; l007: CMP AL,ok┆
0x0fa0…0fc0 09 09 3b 20 20 20 69 66 20 77 72 69 74 65 2d 65 72 72 6f 72 20 74 68 65 6e 20 61 62 6f 72 74 0d ┆ ; if write-error then abort ┆
0x0fc0…0fe0 0a 09 4a 5a 09 6c 30 30 38 09 09 3b 0d 0a 09 4a 4d 50 09 77 72 69 74 65 65 72 72 09 3b 0d 0a 6c ┆ JZ l008 ; JMP writeerr ; l┆
0x0fe0…1000 30 30 38 3a 09 4a 4d 50 09 6c 74 6f 72 32 09 09 3b 20 65 6e 64 3b 0d 0a 09 09 09 09 3b 0d 0a 09 ┆008: JMP ltor2 ; end; ; ┆
0x1000…1020 (4,) 09 09 09 3b 0d 0a 09 09 09 09 3b 20 72 65 6d 6f 74 65 20 2d 3e 20 4c 4f 43 41 4c 0d 0a 72 74 6f ┆ ; ; remote -> LOCAL rto┆
0x1020…1040 6c 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 75 6e 69 74 6e 72 3b 20 62 75 66 2e 6e 61 6d ┆l: MOV DX,OFFSET unitnr; buf.nam┆
0x1040…1060 65 3a 3d 6e 61 6d 65 0d 0a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 62 75 66 6e 61 6d 65 0d ┆e:=name MOV BX,OFFSET bufname ┆
0x1060…1080 0a 09 43 41 4c 4c 09 6d 6f 76 65 6e 61 6d 65 09 3b 0d 0a 09 58 4f 52 09 41 4c 2c 41 4c 09 09 3b ┆ CALL movename ; XOR AL,AL ;┆
0x1080…10a0 0d 0a 09 4d 4f 56 09 73 66 63 62 63 72 2c 41 4c 09 3b 20 73 66 63 62 63 72 3a 3d 30 3b 0d 0a 09 ┆ MOV sfcbcr,AL ; sfcbcr:=0; ┆
0x10a0…10c0 4d 4f 56 09 41 4c 2c 73 66 63 62 2b 31 09 3b 20 69 66 20 64 65 73 74 6e 61 6d 65 3d 27 27 20 74 ┆MOV AL,sfcb+1 ; if destname='' t┆
0x10c0…10e0 68 65 6e 0d 0a 09 43 4d 50 09 41 4c 2c 27 20 27 09 09 3b 20 62 65 67 69 6e 0d 0a 09 4a 4e 5a 09 ┆hen CMP AL,' ' ; begin JNZ ┆
0x10e0…1100 72 74 6f 6c 31 09 09 3b 20 20 20 73 66 63 62 6e 61 6d 65 3a 3d 6e 61 6d 65 3b 0d 0a 09 4d 4f 56 ┆rtol1 ; sfcbname:=name; MOV┆
0x1100…1120 09 44 58 2c 4f 46 46 53 45 54 20 6e 61 6d 65 09 3b 0d 0a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 ┆ DX,OFFSET name ; MOV BX,OFFSE┆
0x1120…1140 54 20 73 66 63 62 2b 31 3b 20 0d 0a 09 43 41 4c 4c 09 6d 6f 76 65 6f 6e 6c 79 6e 61 6d 65 09 3b ┆T sfcb+1; CALL moveonlyname ;┆
0x1140…1160 20 65 6e 64 3b 0d 0a 72 74 6f 6c 31 3a 09 4d 4f 56 09 41 4c 2c 31 09 09 3b 0d 0a 09 4d 4f 56 09 ┆ end; rtol1: MOV AL,1 ; MOV ┆
0x1160…1180 62 75 66 6f 70 2c 41 4c 09 3b 20 62 75 66 2e 6f 70 65 72 61 74 69 6f 6e 3a 3d 31 3b 20 28 2a 6f ┆bufop,AL ; buf.operation:=1; (*o┆
0x1180…11a0 70 65 6e 2a 29 0d 0a 09 4d 4f 56 09 57 4f 52 44 20 50 54 52 20 61 6e 74 61 6c 2c 31 39 3b 20 61 ┆pen*) MOV WORD PTR antal,19; a┆
0x11a0…11c0 6e 74 61 6c 20 3a 3d 20 31 39 3b 0d 0a 09 43 41 4c 4c 09 6f 75 74 61 6e 64 69 6e 09 3b 20 6f 75 ┆ntal := 19; CALL outandin ; ou┆
0x11c0…11e0 74 6c 69 6e 65 28 62 75 66 2c 61 6e 74 61 6c 29 3b 0d 0a 09 09 09 09 3b 20 69 6e 6c 69 6e 65 28 ┆tline(buf,antal); ; inline(┆
0x11e0…1200 62 75 66 2c 61 6e 74 61 6c 29 09 3b 0d 0a 09 4d 4f 56 09 41 4c 2c 62 75 66 73 74 09 3b 0d 0a 09 ┆buf,antal) ; MOV AL,bufst ; ┆
0x1200…1220 43 4d 50 09 41 4c 2c 74 72 61 6e 73 6d 09 3b 20 69 66 20 74 72 61 6e 73 6d 69 73 73 69 6f 6e 2d ┆CMP AL,transm ; if transmission-┆
0x1220…1240 65 72 72 6f 72 20 74 68 65 6e 20 61 62 6f 72 74 0d 0a 09 4a 4e 5a 09 6c 30 30 39 09 09 3b 0d 0a ┆error then abort JNZ l009 ; ┆
0x1240…1260 09 4a 4d 50 09 74 72 78 65 72 72 09 09 3b 0d 0a 6c 30 30 39 3a 09 43 4d 50 09 41 4c 2c 6f 6b 09 ┆ JMP trxerr ; l009: CMP AL,ok ┆
0x1260…1280 09 3b 20 69 66 20 6f 70 65 6e 2d 65 72 72 6f 72 20 74 68 65 6e 20 61 62 6f 72 74 0d 0a 09 4a 5a ┆ ; if open-error then abort JZ┆
0x1280…12a0 09 6c 30 31 30 09 09 3b 0d 0a 09 4a 4d 50 09 6f 70 65 6e 65 72 72 09 09 3b 0d 0a 6c 30 31 30 3a ┆ l010 ; JMP openerr ; l010:┆
0x12a0…12c0 09 4d 4f 56 09 43 4c 2c 64 65 6c 65 74 65 09 3b 20 64 65 6c 65 74 65 28 64 65 73 74 69 6e 61 74 ┆ MOV CL,delete ; delete(destinat┆
0x12c0…12e0 69 6f 6e 29 3b 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 0d 0a 09 49 ┆ion); MOV DX,OFFSET sfcb ; I┆
0x12e0…1300 4e 54 09 32 32 34 09 09 3b 0d 0a 09 4d 4f 56 09 43 4c 2c 6d 61 6b 65 09 09 3b 20 6d 61 6b 65 28 ┆NT 224 ; MOV CL,make ; make(┆
0x1300…1320 64 65 73 74 69 6e 61 74 69 6f 6e 29 3b 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 ┆destination); MOV DX,OFFSET sf┆
0x1320…1340 63 62 09 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 0d 0a 09 43 4d 50 09 41 4c 2c 30 46 46 48 09 ┆cb ; INT 224 ; CMP AL,0FFH ┆
0x1340…1360 09 3b 20 69 66 20 6d 61 6b 65 2d 65 72 72 6f 72 20 74 68 65 6e 20 61 62 6f 72 74 0d 0a 09 4a 4e ┆ ; if make-error then abort JN┆
0x1360…1380 5a 09 6c 30 31 31 09 09 3b 0d 0a 09 4a 4d 50 09 6d 61 6b 65 65 72 72 09 09 3b 0d 0a 6c 30 31 31 ┆Z l011 ; JMP makeerr ; l011┆
0x1380…13a0 3a 09 4d 4f 56 09 43 4c 2c 64 6d 61 6f 66 66 09 3b 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 ┆: MOV CL,dmaoff ; MOV DX,OFFSE┆
0x13a0…13c0 54 20 62 75 66 61 72 65 61 0d 0a 09 09 09 09 3b 20 73 65 74 64 6d 61 28 62 75 66 2e 61 72 65 61 ┆T bufarea ; setdma(buf.area┆
0x13c0…13e0 29 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 0d 0a 09 4d 4f 56 09 44 58 2c 44 53 09 09 3b 0d 0a ┆); INT 224 ; MOV DX,DS ; ┆
0x13e0…1400 09 4d 4f 56 09 43 4c 2c 64 6d 61 73 65 67 09 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 20 73 65 ┆ MOV CL,dmaseg ; INT 224 ; se┆
0x1400…1420 (5,) 6e 20 61 62 6f 72 74 0d 0a 6c 30 31 37 3a 09 4d 4f 56 09 43 4c 2c 63 6c 6f 73 65 09 3b 0d 0a 09 ┆n abort l017: MOV CL,close ; ┆
0x1420…1440 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 ┆MOV DX,OFFSET sfcb ; INT 224 ┆
0x1440…1460 3b 20 63 6c 6f 73 65 28 73 6f 75 72 63 65 2f 64 65 73 74 69 6e 61 74 69 6f 6e 29 3b 0d 0a 09 43 ┆; close(source/destination); C┆
0x1460…1480 4d 50 09 41 4c 2c 30 46 46 48 09 09 3b 0d 0a 09 4a 4e 5a 09 6c 30 31 38 09 09 3b 0d 0a 09 4a 4d ┆MP AL,0FFH ; JNZ l018 ; JM┆
0x1480…14a0 50 09 63 6c 73 6c 65 72 72 09 09 3b 20 69 66 20 63 6c 6f 73 65 2d 65 72 72 6f 72 20 6f 6e 20 6c ┆P clslerr ; if close-error on l┆
0x14a0…14c0 6f 63 61 6c 20 74 68 65 6e 20 61 62 6f 72 74 0d 0a 6c 30 31 38 3a 09 4a 4d 50 09 61 63 74 09 09 ┆ocal then abort l018: JMP act ┆
0x14c0…14e0 3b 20 67 6f 74 6f 20 73 74 61 72 74 3a 0d 0a 09 09 09 09 3b 0d 0a 65 6e 64 70 72 6f 67 3a 09 09 ┆; goto start: ; endprog: ┆
0x14e0…1500 09 3b 0d 0a 09 4d 4f 56 09 41 4c 2c 36 09 09 3b 0d 0a 09 4d 4f 56 09 62 75 66 6f 70 2c 41 4c 09 ┆ ; MOV AL,6 ; MOV bufop,AL ┆
0x1500…1520 3b 20 62 75 66 2e 6f 70 65 72 61 74 69 6f 6e 3a 3d 36 20 28 2a 20 65 6e 64 20 2a 29 0d 0a 09 4d ┆; buf.operation:=6 (* end *) M┆
0x1520…1540 4f 56 09 57 4f 52 44 20 50 54 52 20 61 6e 74 61 6c 2c 33 09 3b 20 61 6e 74 61 6c 3a 3d 33 3b 0d ┆OV WORD PTR antal,3 ; antal:=3; ┆
0x1540…1560 0a 09 43 41 4c 4c 09 6f 75 74 61 6e 64 69 6e 09 3b 20 6f 75 74 6c 69 6e 65 28 62 75 66 2c 61 6e ┆ CALL outandin ; outline(buf,an┆
0x1560…1580 74 61 6c 29 3b 0d 0a 09 09 09 09 3b 20 69 6e 6c 69 6e 65 28 62 75 66 2c 61 6e 74 61 6c 29 3b 0d ┆tal); ; inline(buf,antal); ┆
0x1580…15a0 0a 09 4a 4d 50 09 62 6f 6f 74 09 09 3b 20 77 61 72 6d 62 6f 6f 74 3b 0d 0a 09 09 09 09 3b 65 6e ┆ JMP boot ; warmboot; ;en┆
0x15a0…15c0 64 2e 0d 0a 09 09 09 09 3b 0d 0a 0d 0a 0d 0a 09 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆d. ; ; **************┆
0x15c0…15e0 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 0d 0a 09 3b 20 2a ┆************************** ; *┆
0x15e0…1600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1600…1620 20 20 20 20 20 20 2a 0d 0a 09 3b 20 2a 20 20 20 20 20 20 73 6c 65 65 70 69 6e 67 20 70 61 72 74 ┆ * ; * sleeping part┆
0x1620…1640 6e 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 09 3b 20 2a 20 20 20 20 20 20 ┆ner * ; * ┆
0x1640…1660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1660…1680 2a 0d 0a 09 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 ┆* ; **************************┆
0x1680…16a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 09 09 09 09 3b 20 73 6c 65 65 70 3a 0d 0a 73 6c ┆************** ; sleep: sl┆
0x16a0…16c0 65 65 70 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 6f 6b 74 65 78 74 3b 20 77 72 69 74 65 ┆eep: MOV DX,OFFSET oktext; write┆
0x16c0…16e0 28 27 72 65 6d 6f 74 65 20 4f 50 45 52 41 54 49 4f 4e 27 29 3b 0d 0a 09 4d 4f 56 09 43 4c 2c 70 ┆('remote OPERATION'); MOV CL,p┆
0x16e0…1700 72 69 6e 74 09 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 0d 0a 73 6c 65 65 70 31 3a 09 4d 4f 56 ┆rint ; INT 224 ; sleep1: MOV┆
0x1700…1720 09 42 58 2c 4f 46 46 53 45 54 20 72 65 73 75 6c 74 3b 0d 0a 09 4d 4f 56 09 42 59 54 45 20 50 54 ┆ BX,OFFSET result; MOV BYTE PT┆
0x1720…1740 52 20 5b 42 58 5d 2c 6f 6b 3b 0d 0a 09 43 41 4c 4c 09 69 6e 6c 69 6e 65 09 09 3b 20 72 65 70 65 ┆R ÆBXÅ,ok; CALL inline ; repe┆
0x1740…1760 61 74 0d 0a 09 4d 4f 56 09 41 4c 2c 73 74 61 74 75 73 09 3b 20 20 20 69 6e 6c 69 6e 65 28 62 75 ┆at MOV AL,status ; inline(bu┆
0x1760…1780 66 66 65 72 2c 61 6e 74 61 6c 29 0d 0a 09 43 4d 50 09 41 4c 2c 6f 6b 09 09 3b 20 20 20 69 66 20 ┆ffer,antal) CMP AL,ok ; if ┆
0x1780…17a0 6f 6b 20 74 68 65 6e 0d 0a 09 4a 5a 09 6c 30 31 39 09 09 3b 0d 0a 09 4a 4d 50 09 74 72 61 6e 73 ┆ok then JZ l019 ; JMP trans┆
0x17a0…17c0 65 72 72 09 3b 20 20 20 62 65 67 69 6e 0d 0a 6c 30 31 39 3a 09 4d 4f 56 09 41 4c 2c 62 75 66 6f ┆err ; begin l019: MOV AL,bufo┆
0x17c0…17e0 70 09 3b 20 20 20 20 20 63 61 73 65 20 62 75 66 2e 6f 70 65 72 61 74 69 6f 6e 20 6f 66 0d 0a 09 ┆p ; case buf.operation of ┆
0x17e0…1800 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 6a 70 74 61 62 6c 65 2d 33 0d 0a 09 4d 4f 56 09 43 48 ┆MOV BX,OFFSET jptable-3 MOV CH┆
0x1800…1820 (6,) 3a 20 62 65 67 69 6e 20 28 2a 20 6d 61 6b 65 20 2a 29 0d 0a 09 53 55 42 09 41 4c 2c 41 4c 09 09 ┆: begin (* make *) SUB AL,AL ┆
0x1820…1840 3b 0d 0a 09 4d 4f 56 09 73 66 63 62 63 72 2c 41 4c 09 3b 0d 0a 09 4d 4f 56 09 43 4c 2c 64 65 6c ┆; MOV sfcbcr,AL ; MOV CL,del┆
0x1840…1860 65 74 65 09 3b 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 6e 61 6d 65 3b 0d 0a 09 4d 4f 56 09 44 ┆ete ; movename; MOV D┆
0x1860…1880 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 20 20 20 20 ┆X,OFFSET sfcb ; INT 224 ; ┆
0x1880…18a0 20 20 20 20 20 20 64 65 6c 65 74 65 28 62 75 66 2e 6e 61 6d 65 29 3b 0d 0a 09 4d 4f 56 09 43 4c ┆ delete(buf.name); MOV CL┆
0x18a0…18c0 2c 6d 61 6b 65 09 09 3b 20 20 20 20 20 20 20 20 20 20 6d 61 6b 65 28 62 75 66 2e 6e 61 6d 65 29 ┆,make ; make(buf.name)┆
0x18c0…18e0 3b 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 0d 0a 09 49 4e 54 09 32 ┆; MOV DX,OFFSET sfcb ; INT 2┆
0x18e0…1900 32 34 09 09 3b 0d 0a 09 49 4e 43 09 41 4c 09 09 3b 0d 0a 09 4a 4e 5a 09 6d 61 6b 65 31 09 09 3b ┆24 ; INC AL ; JNZ make1 ;┆
0x1900…1920 0d 0a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 72 65 73 75 6c 74 3b 0d 0a 09 4d 4f 56 09 42 ┆ MOV BX,OFFSET result; MOV B┆
0x1920…1940 59 54 45 20 50 54 52 20 5b 42 58 5d 2c 66 75 6c 6c 0d 0a 09 4a 4d 50 09 73 65 6e 64 61 33 09 09 ┆YTE PTR ÆBXÅ,full JMP senda3 ┆
0x1940…1960 3b 0d 0a 6d 61 6b 65 31 3a 09 4d 4f 56 09 43 4c 2c 64 6d 61 6f 66 66 09 3b 20 20 20 20 20 20 20 ┆; make1: MOV CL,dmaoff ; ┆
0x1960…1980 20 20 20 73 65 74 64 6d 61 28 62 75 66 2e 61 72 65 61 29 3b 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 ┆ setdma(buf.area); MOV DX,OF┆
0x1980…19a0 46 53 45 54 20 62 75 66 61 72 65 61 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b 0d 0a 09 4d 4f 56 09 ┆FSET bufarea INT 224 ; MOV ┆
0x19a0…19c0 43 4c 2c 64 6d 61 73 65 67 09 3b 0d 0a 09 4d 4f 56 09 44 58 2c 44 53 09 09 3b 0d 0a 09 49 4e 54 ┆CL,dmaseg ; MOV DX,DS ; INT┆
0x19c0…19e0 09 32 32 34 09 09 3b 20 20 20 20 20 20 20 20 20 20 73 65 74 64 6d 61 73 65 67 28 62 75 66 2e 61 ┆ 224 ; setdmaseg(buf.a┆
0x19e0…1a00 72 65 61 29 3b 0d 0a 09 4a 4d 50 09 73 65 6e 64 61 33 09 09 3b 20 20 20 20 20 20 20 20 65 6e 64 ┆rea); JMP senda3 ; end┆
0x1a00…1a20 3b 0d 0a 09 09 09 09 3b 0d 0a 72 65 61 64 66 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 ┆; ; readf: MOV DX,OFFSET s┆
0x1a20…1a40 66 63 62 09 3b 20 20 20 20 20 33 3a 20 62 65 67 69 6e 20 28 2a 20 72 65 61 64 20 2a 29 0d 0a 09 ┆fcb ; 3: begin (* read *) ┆
0x1a40…1a60 4d 4f 56 09 43 4c 2c 72 65 61 64 09 09 3b 20 20 20 20 20 20 20 20 20 20 72 65 61 64 3b 0d 0a 09 ┆MOV CL,read ; read; ┆
0x1a60…1a80 49 4e 54 09 32 32 34 09 09 3b 0d 0a 09 4f 52 09 41 4c 2c 41 4c 09 09 3b 0d 0a 09 4a 5a 09 73 65 ┆INT 224 ; OR AL,AL ; JZ se┆
0x1a80…1aa0 6e 64 61 31 33 31 09 3b 0d 0a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 54 20 72 65 73 75 6c 74 3b ┆nda131 ; MOV BX,OFFSET result;┆
0x1aa0…1ac0 0d 0a 09 4d 4f 56 09 42 59 54 45 20 50 54 52 20 5b 42 58 5d 2c 65 6f 66 0d 0a 09 4a 4d 50 09 73 ┆ MOV BYTE PTR ÆBXÅ,eof JMP s┆
0x1ac0…1ae0 65 6e 64 61 33 09 09 3b 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 09 09 09 09 3b 0d 0a 77 72 69 ┆enda3 ; end; ; wri┆
0x1ae0…1b00 74 65 66 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 63 62 09 3b 20 20 20 20 20 34 3a ┆tef: MOV DX,OFFSET sfcb ; 4:┆
0x1b00…1b20 20 62 65 67 69 6e 20 28 2a 20 77 72 69 74 65 20 2a 29 0d 0a 09 4d 4f 56 09 43 4c 2c 77 72 69 74 ┆ begin (* write *) MOV CL,writ┆
0x1b20…1b40 65 09 3b 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 3b 0d 0a 09 49 4e 54 09 32 32 34 09 09 3b ┆e ; write; INT 224 ;┆
0x1b40…1b60 0d 0a 09 4f 52 09 41 4c 2c 41 4c 09 09 3b 0d 0a 09 4a 4e 5a 09 6c 30 32 30 09 09 3b 0d 0a 09 4a ┆ OR AL,AL ; JNZ l020 ; J┆
0x1b60…1b80 4d 50 09 73 65 6e 64 61 33 09 09 3b 0d 0a 6c 30 32 30 3a 09 4d 4f 56 09 42 58 2c 4f 46 46 53 45 ┆MP senda3 ; l020: MOV BX,OFFSE┆
0x1b80…1ba0 54 20 72 65 73 75 6c 74 3b 0d 0a 09 4d 4f 56 09 42 59 54 45 20 50 54 52 20 5b 42 58 5d 2c 66 75 ┆T result; MOV BYTE PTR ÆBXÅ,fu┆
0x1ba0…1bc0 6c 6c 0d 0a 09 4a 4d 50 09 73 65 6e 64 61 33 09 09 3b 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a ┆ll JMP senda3 ; end; ┆
0x1bc0…1be0 09 09 09 09 3b 0d 0a 63 6c 6f 73 66 3a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 73 66 63 62 ┆ ; closf: MOV DX,OFFSET sfcb┆
0x1be0…1c00 09 3b 20 20 20 20 20 35 3a 20 62 65 67 69 6e 20 28 2a 20 63 6c 6f 73 65 20 2a 29 0d 0a 09 4d 4f ┆ ; 5: begin (* close *) MO┆
0x1c00…1c20 (7,) 09 4a 4d 50 09 70 72 69 6e 74 65 72 72 09 3b 0d 0a 09 09 09 09 3b 0d 0a 70 61 72 6d 65 72 72 3a ┆ JMP printerr ; ; parmerr:┆
0x1c20…1c40 09 09 09 3b 0d 0a 09 4d 4f 56 09 44 58 2c 4f 46 46 53 45 54 20 6d 70 61 72 6d 65 72 72 0d 0a 09 ┆ ; MOV DX,OFFSET mparmerr ┆
0x1c40…1c60 4a 4d 50 09 70 72 69 6e 74 65 72 72 09 3b 0d 0a 09 09 09 09 3b 0d 0a 09 09 09 09 3b 0d 0a 70 72 ┆JMP printerr ; ; ; pr┆
0x1c60…1c80 69 6e 74 65 72 72 3a 09 09 09 3b 0d 0a 09 4d 4f 56 09 43 4c 2c 70 72 69 6e 74 09 3b 0d 0a 09 49 ┆interr: ; MOV CL,print ; I┆
0x1c80…1ca0 4e 54 09 32 32 34 09 09 3b 20 77 72 69 74 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 74 6f ┆NT 224 ; write error message to┆
0x1ca0…1cc0 20 63 6f 6e 73 6f 6c 65 0d 0a 09 4d 4f 56 09 41 4c 2c 72 64 63 6f 6e 73 09 3b 20 69 66 20 72 65 ┆ console MOV AL,rdcons ; if re┆
0x1cc0…1ce0 61 64 2d 66 72 6f 6d 2d 63 6f 6e 73 6f 6c 65 3d 66 61 6c 73 65 0d 0a 09 43 4d 50 09 41 4c 2c 66 ┆ad-from-console=false CMP AL,f┆
0x1ce0…1d00 61 6c 73 65 09 3b 20 20 74 68 65 6e 20 67 6f 74 6f 20 63 70 6d 0d 0a 09 4a 4e 5a 09 6c 30 32 33 ┆alse ; then goto cpm JNZ l023┆
0x1d00…1d20 09 09 3b 0d 0a 09 4a 4d 50 09 62 6f 6f 74 09 09 3b 20 20 65 6c 73 65 20 0d 0a 6c 30 32 33 3a 09 ┆ ; JMP boot ; else l023: ┆
0x1d20…1d40 58 4f 52 09 41 4c 2c 41 4c 09 09 3b 20 20 20 62 65 67 69 6e 0d 0a 09 4d 4f 56 09 63 6f 6e 73 6c ┆XOR AL,AL ; begin MOV consl┆
0x1d40…1d60 65 6e 2c 41 4c 09 3b 20 20 20 20 20 6c 65 6e 28 63 6f 6e 73 29 3a 3d 30 20 20 20 0d 0a 09 4a 4d ┆en,AL ; len(cons):=0 JM┆
0x1d60…1d80 50 09 61 63 74 09 09 3b 20 20 20 65 6e 64 3b 20 20 0d 0a 09 09 09 09 3b 20 67 6f 74 6f 20 73 74 ┆P act ; end; ; goto st┆
0x1d80…1da0 61 72 74 3b 0d 0a 09 09 09 09 3b 0d 0a 09 09 09 09 3b 0d 0a 67 65 74 6e 65 78 74 69 74 65 6d 3a ┆art; ; ; getnextitem:┆
0x1da0…1dc0 09 09 09 3b 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 6e 65 78 74 69 74 65 6d 0d 0a 09 4d 4f 56 ┆ ; procedure getnextitem MOV┆
0x1dc0…1de0 09 42 58 2c 4f 46 46 53 45 54 20 63 6f 6e 73 70 69 6c 0d 0a 09 09 09 09 3b 20 62 65 67 69 6e 0d ┆ BX,OFFSET conspil ; begin ┆
0x1de0…1e00 0a 09 4d 4f 56 09 43 48 2c 30 09 09 3b 20 20 20 77 68 69 6c 65 20 63 6f 6e 73 70 69 6c 3c 3d 6c ┆ MOV CH,0 ; while conspil<=l┆
0x1e00…1e20 65 6e 28 63 6f 6e 73 29 20 61 6e 64 0d 0a 09 4d 4f 56 09 43 4c 2c 5b 42 58 5d 09 09 3b 20 20 20 ┆en(cons) and MOV CL,ÆBXÅ ; ┆
0x1e20…1e40 20 20 20 20 20 20 63 6f 6e 73 28 63 6f 6e 73 70 69 6c 29 3d 27 20 27 20 64 6f 20 0d 0a 09 4d 4f ┆ cons(conspil)=' ' do MO┆
0x1e40…1e60 56 09 42 58 2c 4f 46 46 53 45 54 20 63 6f 6e 73 09 3b 20 20 20 62 65 67 69 6e 0d 0a 09 44 45 43 ┆V BX,OFFSET cons ; begin DEC┆
0x1e60…1e80 09 42 58 0d 0a 09 41 44 44 09 42 58 2c 43 58 0d 0a 09 52 43 52 09 53 49 2c 31 0d 0a 09 52 43 4c ┆ BX ADD BX,CX RCR SI,1 RCL┆
0x1e80…1ea0 09 53 49 2c 31 09 09 3b 20 20 20 20 20 63 6f 6e 73 70 69 6c 3a 3d 63 6f 6e 73 70 69 6c 2b 31 3b ┆ SI,1 ; conspil:=conspil+1;┆
0x1ea0…1ec0 20 20 20 20 20 20 20 20 20 20 0d 0a 67 65 74 6e 32 3a 09 4d 4f 56 09 41 4c 2c 63 6f 6e 73 6c 65 ┆ getn2: MOV AL,consle┆
0x1ec0…1ee0 6e 09 3b 20 20 20 65 6e 64 3b 0d 0a 09 43 4d 50 09 41 4c 2c 43 4c 09 09 3b 0d 0a 09 4a 53 09 67 ┆n ; end; CMP AL,CL ; JS g┆
[…truncated at 200 lines…]