|
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: 20992 (0x5200)
Types: TextFile
Names: »LKLPL«
└─⟦92491b7d7⟧ Bits:30001772 UDVIKLING AF CALLRUTINER ETC NR 2
└─ ⟦this⟧ »/LKLPL«
└─⟦ee9e554ad⟧ Bits:30001809 SG0107 Floppy
└─ ⟦this⟧ »/LKLPL«
«ff»
0001 UCA01 DOMUS MACRO ASSEMBLER REV 02.00
01 PRDE1 ; PROCESS HEAD
02
.TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01
04 .NREL
05 000012 .RDX 10 ; RADIX 10
06 000001 .TXTM 1 ; PACKED FROM LEFT TO RIGHT
07 000001 .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES
08
09 PP00: ; PROGRAM START
10 00000'100001 1B0+1B15 ; DESCRIPTOR
11 00001'000007' PP05 ; START
12 00002'000000 0 ; CHAIN
13 00003'000431 PP10-PP00 ; SIZE
14 00004'052503 .TXT .UCALL. ; NAME
15 040514
16 046000
17
18 PP05: ;
19 00007'006013 STOPPROCESS ;
20 00010'000777 JMP PP05 ;
21
22 00011'000242'CDR11 ; ADDRESS OF CARDREAD REV 1.03
23 00012'041501 .TXT @CARDREAD@ ; NAME OF -------''-------
24 051104
25 051105
26 040504
«ff»
!0002 UCA01
01 ; SUBRUTINETABEL
02
03
04 00016'000050'GME00 ; GMEM-ADRESSE
05 00017'043515 .TXT "GMEM<0><0><0><0>" ; NAVN
06 042515
07 000000
08 000000
09
10
11 00023'000110'KSP00
12 00024'045517 .TXT "KODESPEC"
13 042105
14 051520
15 042503
16
17 00030'000115'SME00
18 00031'051515 .TXT "SMEM<0><0><0><0>"
19 042515
20 000000
21 000000
22
23 00035'000144'FIX00
24 00036'043111 .TXT "FIX<0><0><0><0><0>"
25 054000
26 000000
27 000000
28
29 00042'000203'FLO00
30 00043'043114 .TXT "FLOAT<0><0><0>"
31 047501
32 052000
33 000000
34
35 00047'000000 0
«ff»
!0003 UCA01
01 00050'000002 GME00: 2
02 00051'000000 REAL
03 00052'100000 REAL+REFERENCE
04 00053'031000 LDA 2,+0,2 ; AC1=A-ADRESSE
05 00054'006240 EXECUTE
06 00055'000072' GSM00
07 00056'002242 RET1
08 00057'025000 LDA 1,+0,2 ; JA: AC1=INDHOLD AF ADRESSE
09 BCALL FLOAT ; AC1 -> KOMMATAL
10 00060'035515 LDA 3 U.S21,3
11 00061'007401 JSR@ +1,3
12 00062'031467 LDA 2,U.STK,3
13 00063'033001 LDA @ 2,+1,2 ; AC2=B-ADRESSE
14 00064'050404 STA 2,GME01 ; GEM B-ADRESSE
15 00065'030040 LDA 2,CUR
16 00066'007106 A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B
17 00067'000001 1
18 00070'000000 GME01: 0
19 00071'002242 RET1 ; END GMEM
20
«ff»
!0004 UCA01
01 00072'021000 GSM00: LDA 0,+0,2 ; HENT A
02 00073'025001 LDA 1,+1,2
03 BCALL FIX ; FIX A
04 00074'035515 LDA 3 U.S21,3
05 00075'007400 JSR@ +0,3
06 00076'152220 ADCZR 2,2 ; AC2=1B0-1
07 00077'101005 MOV 0,0,SNR ; 0<=AC1<=1B0-1
08 00100'132433 SNG 1,2
09 00101'000403 JMP ERR90 ; NEJ: ERROR UDSKRIV MEDD.
10 00102'131000 MOV 1,2 ; AC1-->AC2
11 00103'002242 RET1 ; RETURN
12
13 00104'006244 ERR90: ERROR
14 00105'000132 90
15
16 00106'006244 ERR91: ERROR
17 00107'000133 91
18 00110'000000 KSP00: 0
19 00111'060477 READS 0
20 00112'040402 STA 0,KSP01
21 00113'002242 RET1
22 00114'000000 KSP01: 0
«ff»
!0005 UCA01
01 00115'000002 SME00: 2 ; 2 VARIABLE
02 00116'000000 REAL ; A (=A-ADRESSE)
03 00117'000000 REAL ; B (=DATA)
04 00120'020774 LDA 0,KSP01 ; SE GME00
05 00121'024422 LDA 1,KSP02
06 00122'122404 SUB 1,0,SZR
07 00123'000761 JMP ERR90
08 00124'031001 LDA 2,+1,2 ; AC2(!)=B-ADRESSE
09 00125'021000 LDA 0,+0,2 ; HENT REAL(!) B
10 00126'025001 LDA 1,+1,2
11 BCALL FIX ; FIX B
12 00127'035515 LDA 3 U.S21,3
13 00130'007400 JSR@ +0,3
14 00131'101004 MOV 0,0,SZR ; 0<=B<=65535 ?
15 00132'000754 JMP ERR91 ; NEJ ERROR-RETURN
16 00133'045470 STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER
17 00134'033467 LDA@ 2,U.STK,3
18 00135'006240 EXECUTE ; EXEC GSM00(A-ADRESSE)
19 00136'000072' GSM00
20 00137'002242 RET1
21 00140'025470 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B
22 00141'045000 STA 1,+0,2 ; AC1-->ADR.AC2
23 00142'002242 RET1 ; END STOREMEMORY
24 00143'123456 KSP02: 42798
«ff»
!0006 UCA01
01 00144'000003 FIX00: 3
02 00145'100000 REAL+REFERENCE
03 00146'100000 REAL+REFERENCE
04 00147'100000 REAL+REFERENCE
05 00150'102520 SUBZL 0,0 ; AC0=1
06 00151'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE
07 00152'030040 LDA 2,CUR ; AC2=CUR
08 00153'007102 A.GDOUBLE ; HENT A
09 00154'041470 STA 0,U.S00,3 ; GEM ORD 1 AF A
10 00155'102460 SUBC 0,0 ; AC0=0
11 BCALL FLOAT ; FLOAT ORD2 AF A
12 00156'035515 LDA 3 U.S21,3
13 00157'007401 JSR@ +1,3
14 00160'030040 LDA 2,CUR ; AC2=CUR
15 00161'035467 LDA 3,U.STK,3 ; AC3=F(F(USER)+U.STK)
16 00162'037402 LDA @ 3,+2,3 ; AC3=C-ADRESSE
17 00163'054403 STA 3,FIX01 ; GEM C-ADRESSE
18 00164'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I B
19 00165'000001 1
20 00166'000000 FIX01: 0
21 00167'025470 LDA 1,U.S00,3 ; HENT ORD1 AF A
22 00170'102460 SUBC 0,0 ; AC0=0
23 BCALL FLOAT ; FLOAT ORD1 AF A
24 00171'035515 LDA 3 U.S21,3
25 00172'007401 JSR@ +1,3
26 00173'030040 LDA 2,CUR ; AC2=CUR
27 00174'035467 LDA 3,U.STK,3
28 00175'037401 LDA @ 3,+1,3 ; AC3=B-ADRESSE
29 00176'054403 STA 3,FIX02 ; GEM B-ADRESSE
30 00177'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I C
31 00200'000001 1
32 00201'000000 FIX02: 0
33 00202'002242 RET1 ; END FIX
«ff»
!0007 UCA01
01 00203'000003 FLO00: 3
02 00204'000000 REAL
03 00205'000000 REAL
04 00206'100000 REAL+REFERENCE
05 00207'031000 LDA 2,+0,2 ; AC1=A-ADRESSE
06 00210'006240 EXECUTE ; EXEC FLO02
07 00211'000232' FLO02
08 00212'002241 RET0 ; HVIS ERROR
09 00213'045470 STA 1,U.S00,3 ; GEM DEL 1 AF C
10 00214'031467 LDA 2,U.STK,3
11 00215'031001 LDA 2,+1,2 ; AC1=B-ADRESSE
12 00216'006240 EXECUTE
13 00217'000232' FLO02
14 00220'002241 RET0
15 00221'021470 LDA 0,U.S00,3 ; HENT DEL 1 AF C
16 00222'031467 LDA 2,U.STK,3
17 00223'033002 LDA @ 2,+2,2 ; AC2=C-ADRESSE
18 00224'050404 STA 2,FLO01 ; GEM C-ADRESSE
19 00225'030040 LDA 2,CUR
20 00226'007106 A.PDOUBLE ; AC0,AC1-->C
21 00227'000001 1
22 00230'000000 FLO01: 0
23 00231'002242 RET1
24 00232'021000 FLO02: LDA 0,+0,2
25 00233'025001 LDA 1,+1,2 ; ** CB RET **
26 BCALL FIX ; LAV OM TIL HELTAL
27 00234'035515 LDA 3 U.S21,3
28 00235'007400 JSR@ +0,3
29 00236'101005 MOV 0,0,SNR ; 0=<A/B=<32K ???
30 00237'002242 RET1 ; JA: RETURN
31 00240'006244 ERROR ; NEJ: RETURN MED ERROR 90
32 00241'000132 90.
«ff»
!0008 UCA01
01 00242'000002 CDR11: 2 ; INCLUDE TWO PARAMETERS
02 00243'000000 REAL ; INFORMATOR
03 00244'000100 REAL+ARRAY ; DATA STORAGE
04 00245'024505 LDA 1,RSTAT ; LOAD RESERVATION STATUS
05 00246'125014 SZ 1,1 ; SKIP ON ROUTINE IDLE
06 00247'000776 JMP .-2 ; BY REPEATING
07 00250'025005 LDA 1,+5,2 ; LOAD MAX. NO OF ROWS
08 00251'102520 LO 0,0 ; 0=1
09 00252'106414 SEQ 0,1 ; SKIP IF NO OF ROWS=1
10 00253'000474 JMP ERR31
11 ; JMP TO 'INDEKSFEJL'
12 00254'024500 LDA 1,DMADR ; LOAD ADDRESS OF CORE DUMP AREA
13 00255'066016 DOB 1,.CDR ; INSTRUCT CDR CONTROLLER
14 00256'061116 DOAS 0,.CDR ; READ A BINARY CARD
15 00257'063516 SKPBZ .CDR ; WAIT UNTIL BUSY=0
16 00260'000777 JMP .-1 ; REPEAT
17 00261'061616 DIBC 0,.CDR ; 0=LAST ADDRESS AND CLOSE DEVICE
18 00262'041475 STA 0,U.S05,3 ; STORE LAST CORE ADDRESS
19
20 00263'122400 SUB 1,0 ; NUMBER OF COLUMNS READ
21 00264'126400 LZ 1,1 ; 1=0
22 00265'101015 SNZ 0,0 ; SKIP IF NOT ZERO
23 00266'000456 JMP ERR10 ; IF ZERO JMP TO 'KORTLÆSNINGSFEJL'
24 00267'102400 LZ 0,0 ; 0=0
25 00270'061016 DOA 0,.CDR ; READ STATUS WORD
26 00271'060416 DIA 0,.CDR ; INPUT STATUS WORD
27 00272'040461 STA 0,ERRCODE ; SAVE ERROR CODE
28 00273'101014 SZ 0,0 ; SKIP IF 0=0
29 00274'000450 JMP ERR10 ; JUMP TO 'KORTLÆSNINGSFEJL'
30 ;
«ff»
!0009 UCA01
01
02 ; ***** READY FOR CONVERTING & TRANSFER ******
03 00275'031000 LDA 2,0,2 ; 2=ADDRESS OF REAL
04 00276'021000 LDA 0,0,2 ; 0= 1. WORD OF REAL
05 00277'025001 LDA 1,1,2 ; 1= 2. WORD OF REAL
06 BCALL FIX ; FIX REAL
07 00300'035515 LDA 3 U.S21,3
08 00301'007400 JSR@ +0,3
09 00302'125015 SNZ 1,1 ; SKIP IF NOT ZERO
10 00303'000453 JMP ASCII ; JUMP TO ASCII CONVERSION
11 00304'102520 LO 0,0 ; 0=1
12 00305'122415 SNE 1,0 ; SKIP IF 0 NOT EQUAL TO 1
13 00306'000447 JMP NUMBER ; JUMP TO NUMBER CONVERSION
14 00307'031467 SNART: LDA 2,U.STK,3 ; LOAD STACKPOINTER
15 00310'031001 LDA 2,+1,2 ; LOAD ADDRESS OF FIRST VECTOR ELEMENT
16 00311'031000 LDA 2,+0,2 ; LOAD ARRAY ADDRESS
17
18 00312'050413 STA 2,APD03 ; STORE VECTOR ADDRESS IN APD03
19 00313'020441 LOOPE: LDA 0,DMADR ; LOAD CURRENT CORE ADDRESS
20 00314'024000 LDA 1,0,0 ; LOAD CONTENTS OF CORE ADDRESS
21 00315'101400 INC 0,0 ; INCREMENT ADDRESS BY ONE
22 00316'040436 STA 0,DMADR ; SAVE DMADR
23 00317'102400 LZ 0,0 ; 0=0
24 BCALL FLOAT ; CONVERT COLUMN DATA TO FLOATING POINT
25 00320'035515 LDA 3 U.S21,3
26 00321'007401 JSR@ +1,3
27 00322'030040 LDA 2,CUR ; LOAD ZONE ADDRESS
28 00323'007106 A.PDOUBLE ; PUT CARD DATA INTO VECTOR ELEMENTS
29 00324'000001 1 ; SEGMENT NO. 1=DATA SEGMENT
30 00325'000000 APD03: 0 ; ADDRESS OF REAL(INDEX)
31 00326'025475 LDA 1,U.S05,3 ; LOAD LAST DUMP ADDRESS
32 00327'020425 LDA 0,DMADR ; LOAD CURRENT DATA LOCATION IN CORE
33 00330'122415 SNE 1,0 ; SKIP IF NOT EQUAL
34 00331'000406 JMP OUT00 ; EXIT FROM ROUTINE
35 00332'030773 LDA 2,APD03 ; LOAD VECTOR ELEMENT ADDRESS
36 00333'151400 INC 2,2 ; INCREMENT
37 00334'151400 INC 2,2 ; INCREMENT 2. TIME
38 00335'050770 STA 2,APD03 ; STORE VECTOR ELEMENT ADDRESS AGAIN
39 00336'000755 JMP LOOPE ; CONTINUE TO LOOPE
40 .EJEC
«ff»
0010 UCA01
01 ; **** FINISH CARDREAD PROGRAM ****
02 00337'024420 OUT00: LDA 1,DMOMR ; LOAD FIRST CORE ADDRESS
03 00340'044414 STA 1,DMADR ; RESTORE DMADR
04 00341'126400 LZ 1,1 ; 1=1
05 00342'044410 STA 1,RSTAT ; RESTORE RESERVATION STATUS
06 00343'002242 RET1 ; ORDINARY RETURN TO COMAL
07 ;
08 ; **«so»KORTLÆSNINGSFEJL
09 00344'044406 ERR10: STA 1,RSTAT ; RESTORE RESERVATION STATUS
10 00345'006244 ERROR
11 00346'000012 10 ; ERRORNOUS RETURN
12 ;
13 ; **«so»INDEKSFEJL
14 00347'044403 ERR31: STA 1,RSTAT ; RESTORE RESERVATION STATUS
15 00350'006244 ERROR
16 00351'000037 31 ; ERRORNOUS RETURN
17 ;
18 ; **L
19 ; **«so»LABEL DECLARATION
20 ;
21 00352'000000 RSTAT: 0 ; RESERVATION STATUS
22 00353'000000 ERRCO: 0 ; SAVED ERROR CODE FROM CDR CONTROLLER
«ff»
!0011 UCA01
01 00354'000360'DMADR: DMADD ; ADDRESS OF CORE DUMP AREA
02 000016 .CDR= 14 ; CARDREADER NUMBER
03 ; ** AT THE MOMENT DUMMIES
04 00355'000732 NUMBE: JMP SNART ; NUMBER CONVERSION
05 00356'000731 ASCII: JMP SNART ; ASCII CONVERSION
06 00357'000360'DMOMR: DMADD ; ADDRESS OF CORE DUMP AREA AGAIN
07 00360'000051 DMADD: .BLK 41 ; CORE DUMP AREA
08 ;
09 ;
10 ; 1. INDTASTNING AFSLUTTET DEN 14.09.81 KL. CA 14.30 VED Torben Tambo
11 ;
12 .EJEC
«ff»
0012 UCA01
01 PRDE2 ; END PROCESS DESCRIBTOR
02
03 PP10: ; PROCESSDESCRIPTOR:
04 00431'000000 0 ; NEXT
05 00432'000000 0 ; PREV
06 00433'000000 0 ; CHAIN
07 00434'000025 PP15-PP10 ; SIZE
08 00435'052503 .TXT .UCALL. ; NAME
09 040514
10 046000
11 00440'000440' .+0 ; FIRST EVENT
12 00441'000440' .-1 ; LAST EVENT
13 00442'000000 0 ; BUFFE
14 00443'000000' PP00 ; PROGRAM
15 00444'000000 0 ; STATE
16 00445'000000 0 ; TIMER
17 00446'000001 1 ; PRIORITY
18 00447'000007' PP05 ; BREAK
19 00450'000431' PP10 ; AC0
20 00451'000000 0 ; AC1
21 00452'000431' PP10 ; AC2
22 00453'000000 0 ; AC3
23 00454'000016" PP05*2 ; PSW
24 00455'000000 0 ; SAVE
25
26 PP15: ;
27 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0013 UCA01
APD03 000325' 9/18 9/30 9/35 9/38
ASCII 000356' 9/10 11/05
BCALL 000000 MC 3/09 4/03 5/11 6/11 6/23 7/26 9/06
9/24
CDR11 000242' 1/22 8/01
DMADD 000360' 11/01 11/06 11/07
DMADR 000354' 8/12 9/19 9/22 9/32 10/03 11/01
DMOMR 000357' 10/02 11/06
ERR10 000344' 8/23 8/29 10/09
ERR31 000347' 8/10 10/14
ERR90 000104' 4/09 4/13 5/07
ERR91 000106' 4/16 5/15
ERRCO 000353' 8/27 10/22
FADD 177775 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
FDIV 177772 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
FIX 177777 3/10 4/04 4/06 5/12 5/14 6/12 6/24
7/27 7/29 9/07 9/09 9/25
FIX00 000144' 2/23 6/01
FIX01 000166' 6/17 6/20
FIX02 000201' 6/29 6/32
FLO00 000203' 2/29 7/01
FLO01 000230' 7/18 7/22
FLO02 000232' 7/07 7/13 7/24
FLOAT 177776 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
FMPY 177773 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
FSUB 177774 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
GME00 000050' 2/04 3/01
GME01 000070' 3/14 3/18
GSM00 000072' 3/06 4/01 5/19
IDIV 177767 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
IMPY 177771 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
IMPYA 177770 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
IOERR 177766 3/10 3/12 4/04 4/06 5/12 5/14 6/12
6/14 6/24 6/26 7/27 7/29 9/07 9/09
9/25 9/27
KSP00 000110' 2/11 4/18
KSP01 000114' 4/20 4/22 5/04
KSP02 000143' 5/05 5/24
LOOPE 000313' 9/19 9/39
NUMBE 000355' 9/13 11/04
OUT00 000337' 9/34 10/02
PP00 000000' 1/09 1/13 12/14
PP05 000007' 1/11 1/18 1/20 12/18 12/23
PP10 000431' 1/13 12/03 12/07 12/19 12/21 12/27
«ff»
0014 UCA01
PP15 000456' 12/07 12/26
PRDE1 000211 MC 1/01
PRDE2 000276 MC 12/01
RSTAT 000352' 8/04 10/05 10/09 10/14 10/21
SME00 000115' 2/17 5/01
SNART 000307' 9/14 11/04 11/05
.CDR 000016 8/13 8/14 8/15 8/17 8/25 8/26 11/02
«ff»
«eof»