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

⟦3eec816a4⟧ TextFile

    Length: 684 (0x2ac)
    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« 
        └─⟦310280db5⟧ 
            └─⟦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