|
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: 5632 (0x1600)
Types: TextFile
Names: »LKCDR«
└─⟦99bc78d90⟧ Bits:30001771 CALL-RUTINER under DP4-DOMAC
└─⟦this⟧
PRDE1 ; PROCESS HEAD
CDR11 ; ADDRESS OF CARDREAD REV 1.03
.TXT @CARDREAD@ ; NAME OF -------''-------
0 ; TERMINATE TABLE
CDR11: 2 ; INCLUDE TWO PARAMETERS
REAL ; INFORMATOR
REAL+ARRAY ; DATA STORAGE
LDA 1,RSTAT ; LOAD RESERVATION STATUS
SZ 1,1 ; SKIP ON ROUTINE IDLE
JMP .-2 ; BY REPEATING
LDA 1,+5,2 ; LOAD MAX. NO OF ROWS
LO 0,0 ; 0=1
SEQ 0,1 ; SKIP IF NO OF ROWS=1
JMP ERR31
; JMP TO 'INDEKSFEJL'
LDA 1,DMADR ; LOAD ADDRESS OF CORE DUMP AREA
DOB 1,.CDR ; INSTRUCT CDR CONTROLLER
DOAS 0,.CDR ; READ A BINARY CARD
SKPBZ .CDR ; WAIT UNTIL BUSY=0
JMP .-1 ; REPEAT
DIBC 0,.CDR ; 0=LAST ADDRESS AND CLOSE DEVICE
STA 0,U.S05,3 ; STORE LAST CORE ADDRESS
SUB 1,0 ; NUMBER OF COLUMNS READ
LZ 1,1 ; 1=0
SNZ 0,0 ; SKIP IF NOT ZERO
JMP ERR10 ; IF ZERO JMP TO 'KORTLÆSNINGSFEJL'
LZ 0,0 ; 0=0
DOA 0,.CDR ; READ STATUS WORD
DIA 0,.CDR ; INPUT STATUS WORD
STA 0,ERRCODE ; SAVE ERROR CODE
SZ 0,0 ; SKIP IF 0=0
JMP ERR10 ; JUMP TO 'KORTLÆSNINGSFEJL'
;«ff»
; ***** READY FOR CONVERTING & TRANSFER ******
LDA 2,0,2 ; 2=ADDRESS OF REAL
LDA 0,0,2 ; 0= 1. WORD OF REAL
LDA 1,1,2 ; 1= 2. WORD OF REAL
BCALL FIX ; FIX REAL
SNZ 1,1 ; SKIP IF
SNZ 1,1 ; SKIP IF NOT ZERO
JMP ASCII ; JUMP TO ASCII CONVERSION
LO 0,0 ; 0=1
SNE 1,0 ; SKIP IF 0 NOT EQUAL TO 1
JMP NUMBER ; JUMP TO NUMBER CONVERSION
SNART: LDA 2,U.STK,3 ; LOAD STACKPOINTER
LDA 2,4,2 ; LOAD ADDRESS OF FIRST VECTOR ELEMENT
STA 2,APD03 ; STORE VECTOR ADDRESS IN APD03
LOOPE: LDA 0,DMADR ; LOAD CURRENT CORE ADDRESS
LDA 1,0,0 ; LOAD CONTENTS OF CORE ADDRESS
INC 0,0 ; INCREMENT ADDRESS BY ONE
STA 0,DMADR ; SAVE DMADR
LZ 0,0 ; 0=0
BCALL FLOAT ; CONVERT COLUMN DATA TO FLOATING POINT
LDA 2,CUR ; LOAD ZONE ADDRESS
A.PDOUBLE ; PUT CARD DATA INTO VECTOR ELEMENTS
1 ; SEGMENT NO. 1=DATA SEGMENT
APD03: 0 ; ADDRESS OF REAL(INDEX)
LDA 1,U.S05 ; LOAD LAST DUMP ADDRESS
LDA 0,DMADR ; LOAD CURRENT DATA LOCATION IN CORE
SNE 1,0 ; SKIP IF NOT EQUAL
JMP OUT00 ; EXIT FROM ROUTINE
LDA 2,APD03 ; LOAD VECTOR ELEMENT ADDRESS
INC 2,2 ; INCREMENT
INC 2,2 ; INCREMENT 2. TIME
STA 2,APD03 ; STORE VECTOR ELEMENT ADDRESS AGAIN
JMP LOOPE ; CONTINUE TO LOOPE
.EJEC
; **** FINISH CARDREAD PROGRAM ****
OUT00: LDA 1,DMOMR ; LOAD FIRST CORE ADDRESS
STA 1,DMADR ; RESTORE DMADR
LZ 1,1 ; 1=1
STA 1,RSTAT ; RESTORE RESERVATION STATUS
RET1 ; ORDINARY RETURN TO COMAL
;
; **«so»KORTLÆSNINGSFEJL
ERR10: STA 1,RSTAT ; RESTORE RESERVATION STATUS
ERROR
10 ; ERRORNOUS RETURN
;
; **«so»INDEKSFEJL
ERR31: STA 1,RSTAT ; RESTORE RESERVATION STATUS
ERROR
31 ; ERRORNOUS RETURN
;
; **L
; **«so»LABEL DECLARATION
;
RSTAT: 0 ; RESERVATION STATUS
ERRCO: 0 ; SAVED ERROR CODE FROM CDR CONTROLLER
«ff»
DMADR: DMOMR ; ADDRESS OF CORE DUMP AREA
.CDR= 14 ; CARDREADER NUMBER
; ** AT THE MOMENT DUMMIES
NUMBE: JMP SNART ; NUMBER CONVERSION
ASCII: JMP SNART ; ASCII CONVERSION
DMOMR: DMADD ; ADDRESS OF CORE DUMP AREA AGAIN
DMADD: .BLK 41 ; CORE DUMP AREA
;
;
; 1. INDTASTNING AFSLUTTET DEN 14.09.81 KL. CA 14.30 VED Torben Tambo
;
.EJEC
PRDE2 ; END PROCESS DESCRIBTOR
«ff»
«ff»
«nul»