|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »KALK.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »KALK.K«
0010 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 0015 TAH$="0+" 0020 PROC CALC(AR3,B1,B2,ES) 0025 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0030 CALL "DDE:REGN" 0035 IF AR3<6 THEN 0040 IF FLAG THEN STOP 0045 ENDIF 0050 ES$=RES$ 0055 ENDPROC
0x000…02e Line {l1=0x2c, l2=»0010 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12)«, l3=0x2c}
0x02e…03e Line {l1=0x0e, l2=»0015 TAH$="0+"«, l3=0x0e}
0x03e…05c Line {l1=0x1c, l2=»0020 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x05c…09b Line {l1=0x3d, l2=»0025 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x09b…0b1 Line {l1=0x14, l2=»0030 CALL "DDE:REGN"«, l3=0x14}
0x0b1…0c6 Line {l1=0x13, l2=»0035 IF AR3<6 THEN «, l3=0x13}
0x0c6…0df Line {l1=0x17, l2=»0040 IF FLAG THEN STOP «, l3=0x17}
0x0df…0ec Line {l1=0x0b, l2=»0045 ENDIF «, l3=0x0b}
0x0ec…0fb Line {l1=0x0d, l2=»0050 ES$=RES$«, l3=0x0d}
0x0fb…10a Line {l1=0x0d, l2=»0055 ENDPROC «, l3=0x0d}
0x10a…120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x120…140 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 ┆ ┆
[…0x45…]