|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Notes: Mikados_R
Names: »COASM«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─⟦this⟧ »COASM«
0x000…020 (0,) 13 02 43 4f 41 53 4d 20 20 20 02 1e 00 01 00 00 00 76 76 76 13 0d 04 43 4f 41 53 4d 20 20 20 02 ┆ COASM vvv COASM ┆
0x020…040 00 00 08 0d 0d 04 44 4f 49 54 20 20 20 20 02 04 00 08 0d 0d 04 44 4f 45 4e 44 20 20 20 02 1e 00 ┆ DOIT DOEND ┆
0x040…060 08 0d 02 08 22 02 04 0a 02 1c 00 04 03 08 c9 22 03 04 0a 02 1a 00 04 05 08 d5 16 00 2a 05 04 0a ┆ " " * ┆
0x060…080 02 1c 00 04 0b 08 5f 19 19 5e 23 56 e1 eb e5 2a 0b 04 0a 02 1a 00 04 02 08 c9 02 03 09 04 00 03 ┆ _ ^#V * ┆
0x080…0a0 02 0f 00 02 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 ┆ ┆
0x0a0…0c0 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…]
0x0e0…100 20 20 41 4e 49 20 20 20 20 20 31 30 20 20 20 20 20 20 3b 44 4d 41 20 52 45 51 55 45 53 54 20 46 ┆ ANI 10 ;DMA REQUEST F┆
0x100…120 52 41 20 49 50 4c 2c 15 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 44 49 53 4b 46 15 31 20 ┆RA IPL, JNZ DISKF 1 ┆
0x120…140 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 54 45 52 4d 20 20 20 20 3b 44 45 52 20 56 45 4e 54 ┆ LDA TERM ;DER VENT┆
0x140…160 45 53 20 50 41 41 20 54 45 52 4d 49 4e 41 54 45 31 11 20 20 20 20 20 20 20 20 41 4e 41 20 20 20 ┆ES PAA TERMINATE1 ANA ┆
0x160…180 20 20 41 11 15 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 53 54 52 44 34 15 27 20 20 20 20 ┆ A JZ STRD4 ' ┆
0x180…1a0 20 20 20 20 4a 4d 50 20 20 20 20 20 54 45 52 34 20 20 20 20 3b 54 45 52 4d 4e 49 41 54 45 20 52 ┆ JMP TER4 ;TERMNIATE R┆
0x1a0…1c0 45 41 44 27 01 20 01 4e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EAD' N;***********************┆
0x1c0…1e0 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 ┆********************************┆
0x1e0…200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 4e 01 20 01 22 3b 20 20 20 20 ┆**********************N "; ┆
0x200…220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4b 52 49 56 4e 49 4e 47 22 01 20 ┆ SKRIVNING" ┆
0x220…240 01 4d 3b 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 ┆ M;*****************************┆
0x240…260 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 ┆********************************┆
0x260…280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 4d 01 20 01 34 53 54 57 3a 20 20 20 20 43 41 4c 4c ┆***************M 4STW: CALL┆
0x280…2a0 20 20 20 20 44 49 4e 49 20 20 20 20 3b 49 4e 49 54 49 41 4c 49 53 45 52 20 44 49 53 4b 20 43 4f ┆ DINI ;INITIALISER DISK CO┆
0x2a0…2c0 4e 54 52 4f 4c 4c 45 52 34 15 20 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 42 55 46 15 ┆NTROLLER4 LXI H,BUF ┆
0x2c0…2e0 30 20 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 44 49 53 4b 41 20 20 20 3b 41 44 52 45 53 53 ┆0 SHLD DISKA ;ADRESS┆
0x2e0…300 45 20 54 49 4c 20 44 49 53 4b 20 42 55 46 46 45 52 30 2f 20 20 20 20 20 20 20 20 53 48 4c 44 20 ┆E TIL DISK BUFFER0/ SHLD ┆
0x300…320 20 20 20 49 50 4c 41 20 20 20 20 3b 41 44 52 45 53 53 45 20 54 49 4c 20 49 50 4c 20 42 55 46 46 ┆ IPLA ;ADRESSE TIL IPL BUFF┆
0x320…340 45 52 2f 2f 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 49 50 4c 20 20 20 20 20 3b 53 54 41 ┆ER// CALL IPL ;STA┆
0x340…360 52 54 20 4c 41 45 53 4e 49 4e 47 20 46 52 41 20 49 50 4c 2f 3a 20 20 20 20 20 20 20 20 43 41 4c ┆RT LAESNING FRA IPL/: CAL┆
0x360…380 4c 20 20 20 20 49 42 53 59 20 20 20 20 3b 56 45 4e 54 20 50 41 41 20 49 50 4c 20 4b 4c 41 52 20 ┆L IBSY ;VENT PAA IPL KLAR ┆
0x380…3a0 45 4c 4c 45 52 20 54 45 52 4d 49 4e 41 54 45 3a 31 53 54 57 31 3a 20 20 20 43 41 4c 4c 20 20 20 ┆ELLER TERMINATE:1STW1: CALL ┆
0x3a0…3c0 20 44 49 53 4b 20 20 20 20 3b 53 54 41 52 54 20 53 4b 52 49 56 4e 49 4e 47 20 50 41 41 20 44 49 ┆ DISK ;START SKRIVNING PAA DI┆
0x3c0…3e0 53 4b 31 32 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 49 50 4c 20 20 20 20 20 3b 53 54 41 ┆SK12 CALL IPL ;STA┆
0x3e0…400 52 54 20 4e 59 20 4c 41 45 53 4e 49 4e 47 20 46 52 41 20 49 50 4c 32 2b 20 20 20 20 20 20 20 20 ┆RT NY LAESNING FRA IPL2+ ┆
0x400…420 43 41 4c 4c 20 20 20 20 56 44 42 53 59 20 20 20 3b 56 45 4e 54 20 50 41 41 20 44 49 53 4b 20 4b ┆CALL VDBSY ;VENT PAA DISK K┆
0x420…440 4c 41 52 2b 24 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 53 54 41 32 20 20 20 3b 54 45 ┆LAR+$ CALL DSTA2 ;TE┆
0x440…460 53 54 20 53 54 41 54 55 53 24 2a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 49 42 53 59 20 ┆ST STATUS$* CALL IBSY ┆
0x460…480 20 20 20 3b 56 45 4e 54 20 50 41 41 20 49 50 4c 20 4b 4c 41 52 2a 14 20 20 20 20 20 20 20 20 43 ┆ ;VENT PAA IPL KLAR* C┆
0x480…4a0 41 4c 4c 20 20 20 20 54 53 45 4b 14 3f 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 53 54 57 ┆ALL TSEK ? JMP STW┆
0x4a0…4c0 31 20 20 20 20 3b 44 45 52 20 46 4f 52 54 53 41 45 54 54 45 53 20 54 49 4c 20 54 45 52 4d 49 4e ┆1 ;DER FORTSAETTES TIL TERMIN┆
0x4c0…4e0 41 54 45 20 4b 4f 4d 4d 41 4e 44 4f 3f 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆ATE KOMMANDO?B c┆