DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦20eebd0be⟧ TextFile

    Length: 727 (0x2d7)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦af4668f9e⟧ 
            └─⟦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