|
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: 4608 (0x1200)
Types: TextFile
Names: »P4ALK«
└─⟦99bc78d90⟧ Bits:30001771 CALL-RUTINER under DP4-DOMAC
└─⟦this⟧
└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
└─⟦this⟧
; CARD READING CALL ROUTINES
; TORBEN TAMBO 07.09.81
; RETTET AF PL (EFTER AT GMEM,SMEM,KODESPEC ER TILFØJET)
; IDET DMADR SKAL INDEH ADR (DMOMR) PÅ INPUTBUFFEROMR, ENDV ER 2 FEJLLINIER I GM00 FJERNET
PRDE1
CDR01
.TXT "CARDREA1"
CDR10
.TXT "CARDREA2"
GME00
.TXT "GMEM<0><0><0><0>"
SME00
.TXT "SMEM<0><0><0><0>"
KSP00
.TXT "KODESPEC"
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: DMOMR
DMOMR: .BLK 40
.EJEC
«ff»
GME00: 2
REAL
REAL+REFERENCE
LDA 2,+0,2 ; AC1=A-ADRESSE
EXECUTE
GSM00
RET1
LDA 1,+0,2 ; JA: AC1=INDHOLD AF ADRESSE
BCALL FLOAT ; AC1 -> KOMMATAL
LDA 2,U.STK,3
LDA @ 2,+1,2 ; AC2=B-ADRESSE
STA 2,GME01 ; GEM B-ADRESSE
LDA 2,CUR
A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B
1
GME01: 0
RET1 ; END GMEM
«ff»
GSM00: LDA 0,+0,2 ; HENT A
LDA 1,+1,2
BCALL FIX ; FIX A
ADCZR 2,2 ; AC2=1B0-1
MOV 0,0,SNR ; 0<=AC1<=1B0-1
SNG 1,2
JMP ERR90 ; NEJ: ERROR UDSKRIV MEDD.
MOV 1,2 ; AC1-->AC2
RET1 ; RETURN
ERR90: ERROR
90
ERR91: ERROR
91
KSP00: 0
READS 0
STA 0,KSP01
RET1
KSP01: 0
«ff»
SME00: 2 ; 2 VARIABLE
REAL ; A (=A-ADRESSE)
REAL ; B (=DATA)
LDA 0,KSP01 ; SE GME00
LDA 1,KSP02
SUB 1,0,SZR
JMP ERR90
LDA 2,+1,2 ; AC2(!)=B-ADRESSE
LDA 0,+0,2 ; HENT REAL(!) B
LDA 1,+1,2
BCALL FIX ; FIX B
MOV 0,0,SZR ; 0<=B<=65535 ?
JMP ERR91 ; NEJ ERROR-RETURN
STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER
LDA@ 2,U.STK,3
EXECUTE ; EXEC GSM00(A-ADRESSE)
GSM00
RET1
LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B
STA 1,+0,2 ; AC1-->ADR.AC2
RET1 ; END STOREMEMORY
KSP02: 42798
«ff»
PRDE2
; SAMLET UDGAVE AD KORTLÆRERUTINER FRA LKCA4
; OG GMEM SMEM KODESPEC FRA CAA25 (FRA ULT AUG 81)
; LK=TORBEN TAMBO, ENDV KAMP & PL
«ff»
«nul»