|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ P T ┃
Length: 1879 (0x757)
Types: TextFile
Names: »PTM_S«
└─⟦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⟧
;
;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