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 ┃

⟦b5fe6d734⟧ TextFile

    Length: 728 (0x2d8)
    Types: TextFile
    Names: »ACIT1_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

;
;ACIA memory mapped to CPU
;        
        OPTIONS	CONVERT

IT      EQU     38H
ROM	EQU	2000H
STACK	EQU	4500H

Aim1    EQU     27F4H
ACIA	EQU	3018H
Status	EQU	ACIA
Ctrl    EQU     ACIA
Port    EQU     ACIA+1
TDRE    EQU     02
RDRF    EQU     01 
Reset   EQU     03 
Mode    EQU     95H
Fin     EQU     0AH

        ORG     IT
        JP      recoi

	ORG	ROM
        LD      SP,STACK
        IM1
        LD      A,Reset
        LD      (Ctrl),A
        LD      A,Mode
        LD      (Ctrl),A
        EI
        LD      C,0
loop:   INC     C
        JP      loop

        ORG     Aim1 
recoi:  PUSH    AF
        PUSH    BC
        LD      A,(Port)
        POP     BC
        POP     AF
        EI
        RET
        
	END