|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »ARRAYO.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »ARRAYO.K«
;ARRAYO--ARRAY OVERFøRSEL TIL EN COMAL NUMERICAL ARRAY 23.09.80 - PNM
;
BAS11
ARRAYO::
CALL COASM ;GEM PIL
LXI H,NUMET ;HL==>LAGRINSSTED TIL FLYDENDE ET TAL
LXI D,1 ;DE=HELTAL ET
MVI A,FIXFL ;A=OPKODE KONVERTER HELTAL TIL FLYDENDE
CALL DOIT ;DOIT
LHLD NUMET ;HENT 1. 16 BITS AF FLYDENDE ET
MOV A,L ;BYTTE HØJ MED LAV BYTE
MOV L,H ;
MOV H,A ;
SHLD INDEX+2 ;INTERN REPRESENTATION AF EN KONSTANT
;ER IKKE SÆRLIGE FIKS
LHLD NUMET+2 ;GØR DEN
MOV A,L ;ANDEN 16 BITS
MOV L,H ;
MOV H,A ;
SHLD INDEX ;SÆT OOP INTERN REPRESENTATION AF EN
;FLYDENDE KONSTANT
LXI D,AARRAY;DE==>ADRESSE AF VARIABLE 'A'
LXI H,NUMET ;HL==>FLYDENDE ET TAL
MVI A,PUTNM ;A=OPKODE, PUT NUMERISK
CALL DOIT ;OVERFØR ET TIL A(1)
CNZ 0F008 ;FEJL KALD DEBUG
;NU HAR VI OVERFØRT DET FØRSTE ELEMENT ADRESSE AF NÆSTE ELEMENT
;STÅR I DE
LXI H,2 ;HL HAR NÆSTE HELTAL
XCHG ;HL==>SLUT AF NÆSTE DATA ELEMENT, DE=TAL
ARRAY1:
PUSH D ;GEM HELTAL
PUSH H ;GEM SLUT AF DENNE DATA ELEMENT
LXI H,NUMET ;HL==>MODTAGE ADRESSE AF FLYDENDE TAL
PUSH H ;GEM DET
MVI A,FIXFL ;A=OPKODE
CALL DOIT ;OVERFØR HELTAL TIL ARRAY I FLYDENDE
POP B ;BC==>NUMET
POP H ;HL==>DATAADRESSE
MVI E,4 ;FLYT 4 BYTES
ARRAY2:
LDAX B ;
MOV M,A ;
DCX H ;DATA FLYTTES NEDAD!!!!!!!
INX B ;
DCR E ;
JNZ ARRAY2 ;FLYT FLYDENDE TAL
POP D ;HENT TAL
INX D ;INKREMENTER TAL
MVI A,#11 ;GØR DET
CMP E ;9 GANGE FOR I ALT 10 TAL
JNZ ARRAY1 ;
RET ;UDGANG
;
AARRAY:DB 'A',VPAR,'1',NUKNS
INDEX: DB 0,0,0,0,HPAR,DELIM
NUMET: DB 0,0,0,0 ;MODTAGER 1 I FLYDENDE REPRESENTATION
END ARRAYO
0x000…047 Line {l1=0x45, l2=»;ARRAYO--ARRAY OVERFøRSEL TIL EN COMAL NUMERICAL ARRAY 23.09.80 - PNM«, l3=0x45}
0x047…04a Line {l1=0x01, l2=»;«, l3=0x01}
0x04a…058 Line {l1=0x0c, l2=» BAS11«, l3=0x0c}
0x058…062 Line {l1=0x08, l2=»ARRAYO::«, l3=0x08}
0x062…083 Line {l1=0x1f, l2=» CALL COASM ;GEM PIL«, l3=0x1f}
0x083…0c1 Line {l1=0x3c, l2=» LXI H,NUMET ;HL==>LAGRINSSTED TIL FLYDENDE ET TAL«, l3=0x3c}
0x0c1…0e7 Line {l1=0x24, l2=» LXI D,1 ;DE=HELTAL ET«, l3=0x24}
0x0e7…127 Line {l1=0x3e, l2=» MVI A,FIXFL ;A=OPKODE KONVERTER HELTAL TIL FLYDENDE«, l3=0x3e}
0x127…145 Line {l1=0x1c, l2=» CALL DOIT ;DOIT«, l3=0x1c}
0x145…17d Line {l1=0x36, l2=» LHLD NUMET ;HENT 1. 16 BITS AF FLYDENDE ET«, l3=0x36}
0x17d…1ad Line {l1=0x2e, l2=» MOV A,L ;BYTTE HØJ MED LAV BYTE«, l3=0x2e}
0x1ad…1c7 Line {l1=0x18, l2=» MOV L,H ;«, l3=0x18}
0x1c7…1e1 Line {l1=0x18, l2=» MOV H,A ;«, l3=0x18}
0x1e1…21f Line {l1=0x3c, l2=» SHLD INDEX+2 ;INTERN REPRESENTATION AF EN KONSTANT«, l3=0x3c}
0x21f…24d Line {l1=0x2c, l2=» ;ER IKKE SÆRLIGE FIKS«, l3=0x2c}
0x24d…26e Line {l1=0x1f, l2=» LHLD NUMET+2 ;GØR DEN«, l3=0x1f}
0x26e…295 Line {l1=0x25, l2=» MOV A,L ;ANDEN 16 BITS«, l3=0x25}
0x295…2af Line {l1=0x18, l2=» MOV L,H ;«, l3=0x18}
0x2af…2c9 Line {l1=0x18, l2=» MOV H,A ;«, l3=0x18}
0x2c9…306 Line {l1=0x3b, l2=» SHLD INDEX ;SÆT OOP INTERN REPRESENTATION AF EN«, l3=0x3b}
0x306…331 Line {l1=0x29, l2=» ;FLYDENDE KONSTANT«, l3=0x29}
0x331…367 Line {l1=0x34, l2=» LXI D,AARRAY;DE==>ADRESSE AF VARIABLE 'A'«, l3=0x34}
0x367…395 Line {l1=0x2c, l2=» LXI H,NUMET ;HL==>FLYDENDE ET TAL«, l3=0x2c}
0x395…3c5 Line {l1=0x2e, l2=» MVI A,PUTNM ;A=OPKODE, PUT NUMERISK«, l3=0x2e}
0x3c5…3f2 Line {l1=0x2b, l2=» CALL DOIT ;OVERFØR ET TIL A(1)«, l3=0x2b}
0x3f2…41b Line {l1=0x27, l2=» CNZ 0F008 ;FEJL KALD DEBUG«, l3=0x27}
0x41b…45c Line {l1=0x3f, l2=»;NU HAR VI OVERFØRT DET FØRSTE ELEMENT ADRESSE AF NÆSTE ELEMENT«, l3=0x3f}
0x45c…468 Line {l1=0x0a, l2=»;STÅR I DE«, l3=0x0a}
0x468…495 Line {l1=0x2b, l2=» LXI H,2 ;HL HAR NÆSTE HELTAL«, l3=0x2b}
0x495…4d6 Line {l1=0x3f, l2=» XCHG ;HL==>SLUT AF NÆSTE DATA ELEMENT, DE=TAL«, l3=0x3f}
0x4d6…4df Line {l1=0x07, l2=»ARRAY1:«, l3=0x07}
0x4df…503 Line {l1=0x22, l2=» PUSH D ;GEM HELTAL«, l3=0x22}
0x503…53b Line {l1=0x36, l2=» PUSH H ;GEM SLUT AF DENNE DATA ELEMENT«, l3=0x36}
0x53b…579 Line {l1=0x3c, l2=» LXI H,NUMET ;HL==>MODTAGE ADRESSE AF FLYDENDE TAL«, l3=0x3c}
0x579…59a Line {l1=0x1f, l2=» PUSH H ;GEM DET«, l3=0x1f}
0x59a…5bc Line {l1=0x20, l2=» MVI A,FIXFL ;A=OPKODE«, l3=0x20}
0x5bc…5f9 Line {l1=0x3b, l2=» CALL DOIT ;OVERFØR HELTAL TIL ARRAY I FLYDENDE«, l3=0x3b}
0x5f9…61d Line {l1=0x22, l2=» POP B ;BC==>NUMET«, l3=0x22}
0x61d…647 Line {l1=0x28, l2=» POP H ;HL==>DATAADRESSE«, l3=0x28}
0x647…66d Line {l1=0x24, l2=» MVI E,4 ;FLYT 4 BYTES«, l3=0x24}
0x66d…676 Line {l1=0x07, l2=»ARRAY2:«, l3=0x07}
0x676…690 Line {l1=0x18, l2=» LDAX B ;«, l3=0x18}
0x690…6aa Line {l1=0x18, l2=» MOV M,A ;«, l3=0x18}
0x6aa…6dd Line {l1=0x31, l2=» DCX H ;DATA FLYTTES NEDAD!!!!!!!«, l3=0x31}
0x6dd…6f7 Line {l1=0x18, l2=» INX B ;«, l3=0x18}
0x6f7…711 Line {l1=0x18, l2=» DCR E ;«, l3=0x18}
0x711…73c Line {l1=0x29, l2=» JNZ ARRAY2 ;FLYT FLYDENDE TAL«, l3=0x29}
0x73c…75e Line {l1=0x20, l2=» POP D ;HENT TAL«, l3=0x20}
0x75e…787 Line {l1=0x27, l2=» INX D ;INKREMENTER TAL«, l3=0x27}
0x787…7a8 Line {l1=0x1f, l2=» MVI A,#11 ;GØR DET«, l3=0x1f}
0x7a8…7da Line {l1=0x30, l2=» CMP E ;9 GANGE FOR I ALT 10 TAL«, l3=0x30}
0x7da…7f4 Line {l1=0x18, l2=» JNZ ARRAY1 ;«, l3=0x18}
0x7f4…814 Line {l1=0x1e, l2=» RET ;UDGANG«, l3=0x1e}
0x814…817 Line {l1=0x01, l2=»;«, l3=0x01}
0x817…83a Line {l1=0x21, l2=»AARRAY:DB 'A',VPAR,'1',NUKNS«, l3=0x21}
0x83a…85d Line {l1=0x21, l2=»INDEX: DB 0,0,0,0,HPAR,DELIM«, l3=0x21}
0x85d…89b Line {l1=0x3c, l2=»NUMET: DB 0,0,0,0 ;MODTAGER 1 I FLYDENDE REPRESENTATION«, l3=0x3c}
0x89b…8b2 Line {l1=0x15, l2=» END ARRAYO«, l3=0x15}
0x8b2…8c0 00 00 20 20 20 20 20 52 45 54 20 20 20 20 ┆ RET ┆
0x8c0…8e0 20 20 20 20 20 20 20 20 20 3b 55 44 47 41 4e 47 1e 01 3b 01 21 41 41 52 52 41 59 3a 44 42 20 20 ┆ ;UDGANG ; !AARRAY:DB ┆
0x8e0…900 20 20 20 20 27 41 27 2c 56 50 41 52 2c 27 31 27 2c 4e 55 4b 4e 53 21 21 49 4e 44 45 58 3a 20 44 ┆ 'A',VPAR,'1',NUKNS!!INDEX: D┆
0x900…920 42 20 20 20 20 20 20 30 2c 30 2c 30 2c 30 2c 48 50 41 52 2c 44 45 4c 49 4d 21 3c 4e 55 4d 45 54 ┆B 0,0,0,0,HPAR,DELIM!<NUMET┆
0x920…940 3a 20 44 42 20 20 20 20 20 20 30 2c 30 2c 30 2c 30 20 3b 4d 4f 44 54 41 47 45 52 20 31 20 49 20 ┆: DB 0,0,0,0 ;MODTAGER 1 I ┆
0x940…960 46 4c 59 44 45 4e 44 45 20 52 45 50 52 45 53 45 4e 54 41 54 49 4f 4e 3c 15 20 20 20 20 20 20 20 ┆FLYDENDE REPRESENTATION< ┆
0x960…980 45 4e 44 20 20 20 20 20 41 52 52 41 59 4f 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆END ARRAYO ┆
0x980…9a0 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 ┆ ┆
0x9a0…9c0 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 63 ┆ c┆