|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1878 (0x756)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦6ff036f6e⟧
└─⟦this⟧
;
;PPI memory mapped to CPU with IT
;
OPTIONS CONVERT
ROM EQU 2000H
STACK EQU 4500H
Aim1 EQU 27F7H
It EQU 2700H
PTM EQU 3018H
Ctrl3 EQU PTM
Ctrl2 EQU PTM+1
T1Msb EQU PTM+2
T1Lsb EQU PTM+3
T2Msb EQU PTM+4
T2Lsb EQU PTM+5
T3Msb EQU PTM+6
T3Lsb EQU PTM+7
Etat EQU PTM+1
Cr1 EQU 40H ; continu + 16 + non IT
Cr2 EQU 11H ; continu + 16 + non IT
Cr3 EQU 61H ; monocoup + 16 + non IT
Init EQU 21H ; Init compteur
val1 EQU 08H
val2 EQU 10H
val3 EQU 16H
zero EQU 00H
ORG ROM
LD SP,Stack
LD A,27H
LD I,A
IM2
LD A,Cr3
LD (Ctrl3),A
LD A,Cr2
LD (Ctrl2),A
LD A,Cr1
INC A
LD (Ctrl3),A
LD A,zero
LD (t1Msb),A
LD A,val1
LD (t1Lsb),A
LD A,zero
LD (t2Msb),A
LD A,val2
LD (t2Lsb),A
LD A,zero
LD (t3Msb),A
LD A,val3
LD (t3Lsb),A
LD A,Cr1
LD (Ctrl3),A
EI
LD C,0
loop: INC C
JP loop
ORG It
PUSH AF
PUSH BC
LD A,(Etat)
AND 1
JP cpt1
AND 2
JP cpt2
AND 4
JP cpt3
JP fin
cpt1: LD A,(t1Msb)
LD A,(t1Lsb)
JP fin
cpt2: LD A,(t2Msb)
LD A,(t2Lsb)
JP fin
cpt3: LD A,(t3Msb)
LD A,(t3Lsb)
JP fin
fin: POP BC
POP AF
EI
RET
ORG Aim1
DEFB 00H
DEFB 27H
END