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: ┃ P T

⟦36eaed9a5⟧ TextFile

    Length: 1879 (0x757)
    Types: TextFile
    Names: »PTM_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

;
;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