|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: TextFile
Names: »LKCA4«
└─⟦99bc78d90⟧ Bits:30001771 CALL-RUTINER under DP4-DOMAC
└─ ⟦this⟧ »/LKCA4«
; CARD READING CALL ROUTINES
; TORBEN TAMBO 07.09.81
PRDE1
CDR01
.TXT "CARDRE1"
CDR10
.TXT "CARDREA2"
0
; REV 01.01 CONSISTS OF A REMOTE TESTING
; REV 01.02 CONSISTS OF A TOTAL READING COMPLEX WITCH DUMPS DATA IN CORE
.EJEC
; CARDREAD REV 01.01
CDR01: 0
LDA 1,DMADR
DOBS 1,14
LO 0,0
DOA 0,14
SKPBZ 14
JMP .-1
DIBC 0,14
RET1 ; END OF REMOTE TEST
.EJEC
; CARDREAD REV 01.02
; Read a card, and place :
; Columns in resident core
; First data address in 1. variable
; Columns transferred in 2. variable
; Controller status word in 3. variable
;
CDR10: 3
REAL+REFERENCE
REAL+REFERENCE
REAL+REFERENCE
LDA 1,DMADR
DOB 1,14
LDA 2,+0,2
EXECUTE
FLAPD
RET1
LO 1,1
DOAS 1,14
SKPBZ 14
JMP .-1
DIB 1,14
LDA 0,DMADR
SUB 0,1
LDA 2,U.STK,3
LDA 2,+1,2
EXECUTE
FLAPD
RET1
LDA 2,U.STK,3
LDA 2,+2,2
LZ 0,0
DOA 0,14
DIAC 1,14
EXECUTE
FLAPD
RET1
RET1
RET0
.EJEC
; Float and store integer in a COMAL variable
; AC ! CALL ! RET !
;---------------------------------------------------------------
; 1 ! var. pt. from u.stk! 2. word of var. !
; 2 ! 16 bit integer ! undef'd !
;---------------------------------------------------------------
;
FLAPD:
LZ 0,0
LDA 2,+0,2
STA 2,APD00
BCALL FLOAT
LDA 2,CUR
A.PDOUBLE
1
APD00: 0
RET1
;
; CORE DUMP AREA DECLARATION
;
DMADR:
.BLK 40
.EJEC
PRDE2
«nul»