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 ┃

⟦c3493f477⟧ TextFile

    Length: 611 (0x263)
    Types: TextFile
    Names: »ACOUT_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

;
;CPU to ACIA memory mapped
;        
        OPTIONS	CONVERT

ROM	EQU	2000H
STACK	EQU	2600H

ACIA	EQU	3018H
Status	EQU	ACIA
Ctrl    EQU     ACIA
Port    EQU     ACIA+1
TDRE    EQU     02
RDRF    EQU     01 
Reset   EQU     03 
Mode    EQU     15H
Fin     EQU     10H

	ORG	ROM
        LD      A,Reset
        LD      (Ctrl),A
        LD      A,Mode
        LD      (Ctrl),A
        LD      C,0

emet:   INC     C        

emet1:  LD      A,(Status)
        AND     TDRE
        JR      Z,emet1
        LD      A,C
        LD      (Port),A
        CP      Fin 
        JR      NZ,emet                   

	END