DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

Index: ┃ A T ┃

⟦9f5aa2974⟧ TextFile

    Length: 685 (0x2ad)
    Types: TextFile
    Names: »ACIA_S«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

	OPTIONS	CONVERT

IT      EQU     30H
ROM	EQU	2000H
STACK	EQU     4500H
Aim1    EQU     27F4H

ACIA	EQU	18H
Status	EQU	ACIA
Ctrl    EQU     ACIA
Port    EQU     ACIA+1	

Reset   EQU     03
Mode    EQU     95H
Fin     EQU     0AH

	ORG     IT
        DEFB    0C3H
        DEFB    0F4H
        DEFB    27H
  
        ORG	ROM
        LD      SP,STACK
        LD      C,ACIA
        LD      A,Reset
        OUT     (C),A
        LD      A,Mode
        OUT     (C),A
        EI
        LD      C,0
loop:   INC     C
        JP      loop
 
        ORG     Aim1
        PUSH    AF
        PUSH    BC
        IN      A,(Port)
        POP     BC
        POP     AF
        EI
        RET

	END