DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦fa4dfe61a⟧ TextFile

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »ARRAYO.K«

Derivation

└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
    └─⟦this⟧ »ARRAYO.K«

Mikados K File

;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

Full view