|
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: 11264 (0x2c00)
Types: TextFile
Names: »LKLIS«
└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
└─ ⟦this⟧ »/LKLIS«
«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'000206 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'000017'CDR11 ; ADDRESS OF CARDREAD REV 1.03
23 00012'041501 .TXT @CARDREAD@ ; NAME OF -------''-------
24 051104
25 051105
26 040504
27 00016'000000 0 ; TERMINATE TABLE
28 00017'000002 CDR11: 2 ; INCLUDE TWO PARAMETERS
29 00020'000000 REAL ; INFORMATOR
30 00021'000100 REAL+ARRAY ; DATA STORAGE
31 00022'024505 LDA 1,RSTAT ; LOAD RESERVATION STATUS
32 00023'125014 SZ 1,1 ; SKIP ON ROUTINE IDLE
33 00024'000776 JMP .-2 ; BY REPEATING
34 00025'025005 LDA 1,+5,2 ; LOAD MAX. NO OF ROWS
35 00026'102520 LO 0,0 ; 0=1
36 00027'106414 SEQ 0,1 ; SKIP IF NO OF ROWS=1
37 00030'000474 JMP ERR31
38 ; JMP TO 'INDEKSFEJL'
39 00031'024500 LDA 1,DMADR ; LOAD ADDRESS OF CORE DUMP AREA
40 00032'066016 DOB 1,.CDR ; INSTRUCT CDR CONTROLLER
41 00033'061116 DOAS 0,.CDR ; READ A BINARY CARD
42 00034'063516 SKPBZ .CDR ; WAIT UNTIL BUSY=0
43 00035'000777 JMP .-1 ; REPEAT
44 00036'061616 DIBC 0,.CDR ; 0=LAST ADDRESS AND CLOSE DEVICE
45 00037'041475 STA 0,U.S05,3 ; STORE LAST CORE ADDRESS
46
47 00040'122400 SUB 1,0 ; NUMBER OF COLUMNS READ
48 00041'126400 LZ 1,1 ; 1=0
49 00042'101015 SNZ 0,0 ; SKIP IF NOT ZERO
50 00043'000456 JMP ERR10 ; IF ZERO JMP TO 'KORTLÆSNINGSFEJL'
51 00044'102400 LZ 0,0 ; 0=0
52 00045'061016 DOA 0,.CDR ; READ STATUS WORD
53 00046'060416 DIA 0,.CDR ; INPUT STATUS WORD
54 00047'040461 STA 0,ERRCODE ; SAVE ERROR CODE
55 00050'101014 SZ 0,0 ; SKIP IF 0=0
56 00051'000450 JMP ERR10 ; JUMP TO 'KORTLÆSNINGSFEJL'
57 ;
«ff»
!0002 UCA01
01
02 ; ***** READY FOR CONVERTING & TRANSFER ******
03 00052'031000 LDA 2,0,2 ; 2=ADDRESS OF REAL
04 00053'021000 LDA 0,0,2 ; 0= 1. WORD OF REAL
05 00054'025001 LDA 1,1,2 ; 1= 2. WORD OF REAL
06 BCALL FIX ; FIX REAL
07 00055'035515 LDA 3 U.S21,3
08 00056'007400 JSR@ +0,3
09 00057'125015 SNZ 1,1 ; SKIP IF NOT ZERO
10 00060'000453 JMP ASCII ; JUMP TO ASCII CONVERSION
11 00061'102520 LO 0,0 ; 0=1
12 00062'122415 SNE 1,0 ; SKIP IF 0 NOT EQUAL TO 1
13 00063'000447 JMP NUMBER ; JUMP TO NUMBER CONVERSION
14 00064'031467 SNART: LDA 2,U.STK,3 ; LOAD STACKPOINTER
15 00065'031001 LDA 2,+1,2 ; LOAD ADDRESS OF FIRST VECTOR ELEMENT
16 00066'031000 LDA 2,+0,2 ; LOAD ARRAY ADDRESS
17
18 00067'050413 STA 2,APD03 ; STORE VECTOR ADDRESS IN APD03
19 00070'020441 LOOPE: LDA 0,DMADR ; LOAD CURRENT CORE ADDRESS
20 00071'024000 LDA 1,0,0 ; LOAD CONTENTS OF CORE ADDRESS
21 00072'101400 INC 0,0 ; INCREMENT ADDRESS BY ONE
22 00073'040436 STA 0,DMADR ; SAVE DMADR
23 00074'102400 LZ 0,0 ; 0=0
24 BCALL FLOAT ; CONVERT COLUMN DATA TO FLOATING POINT
25 00075'035515 LDA 3 U.S21,3
26 00076'007401 JSR@ +1,3
27 00077'030040 LDA 2,CUR ; LOAD ZONE ADDRESS
28 00100'007106 A.PDOUBLE ; PUT CARD DATA INTO VECTOR ELEMENTS
29 00101'000001 1 ; SEGMENT NO. 1=DATA SEGMENT
30 00102'000000 APD03: 0 ; ADDRESS OF REAL(INDEX)
31 00103'025475 LDA 1,U.S05,3 ; LOAD LAST DUMP ADDRESS
32 00104'020425 LDA 0,DMADR ; LOAD CURRENT DATA LOCATION IN CORE
33 00105'122415 SNE 1,0 ; SKIP IF NOT EQUAL
34 00106'000406 JMP OUT00 ; EXIT FROM ROUTINE
35 00107'030773 LDA 2,APD03 ; LOAD VECTOR ELEMENT ADDRESS
36 00110'151400 INC 2,2 ; INCREMENT
37 00111'151400 INC 2,2 ; INCREMENT 2. TIME
38 00112'050770 STA 2,APD03 ; STORE VECTOR ELEMENT ADDRESS AGAIN
39 00113'000755 JMP LOOPE ; CONTINUE TO LOOPE
40 .EJEC
«ff»
0003 UCA01
01 ; **** FINISH CARDREAD PROGRAM ****
02 00114'024420 OUT00: LDA 1,DMOMR ; LOAD FIRST CORE ADDRESS
03 00115'044414 STA 1,DMADR ; RESTORE DMADR
04 00116'126400 LZ 1,1 ; 1=1
05 00117'044410 STA 1,RSTAT ; RESTORE RESERVATION STATUS
06 00120'002242 RET1 ; ORDINARY RETURN TO COMAL
07 ;
08 ; **«so»KORTLÆSNINGSFEJL
09 00121'044406 ERR10: STA 1,RSTAT ; RESTORE RESERVATION STATUS
10 00122'006244 ERROR
11 00123'000012 10 ; ERRORNOUS RETURN
12 ;
13 ; **«so»INDEKSFEJL
14 00124'044403 ERR31: STA 1,RSTAT ; RESTORE RESERVATION STATUS
15 00125'006244 ERROR
16 00126'000037 31 ; ERRORNOUS RETURN
17 ;
18 ; **L
19 ; **«so»LABEL DECLARATION
20 ;
21 00127'000000 RSTAT: 0 ; RESERVATION STATUS
22 00130'000000 ERRCO: 0 ; SAVED ERROR CODE FROM CDR CONTROLLER
«ff»
!0004 UCA01
01 00131'000135'DMADR: DMADD ; ADDRESS OF CORE DUMP AREA
02 000016 .CDR= 14 ; CARDREADER NUMBER
03 ; ** AT THE MOMENT DUMMIES
04 00132'000732 NUMBE: JMP SNART ; NUMBER CONVERSION
05 00133'000731 ASCII: JMP SNART ; ASCII CONVERSION
06 00134'000135'DMOMR: DMADD ; ADDRESS OF CORE DUMP AREA AGAIN
07 00135'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»
0005 UCA01
01 PRDE2 ; END PROCESS DESCRIBTOR
02
03 PP10: ; PROCESSDESCRIPTOR:
04 00206'000000 0 ; NEXT
05 00207'000000 0 ; PREV
06 00210'000000 0 ; CHAIN
07 00211'000025 PP15-PP10 ; SIZE
08 00212'052503 .TXT .UCALL. ; NAME
09 040514
10 046000
11 00215'000215' .+0 ; FIRST EVENT
12 00216'000215' .-1 ; LAST EVENT
13 00217'000000 0 ; BUFFE
14 00220'000000' PP00 ; PROGRAM
15 00221'000000 0 ; STATE
16 00222'000000 0 ; TIMER
17 00223'000001 1 ; PRIORITY
18 00224'000007' PP05 ; BREAK
19 00225'000206' PP10 ; AC0
20 00226'000000 0 ; AC1
21 00227'000206' PP10 ; AC2
22 00230'000000 0 ; AC3
23 00231'000016" PP05*2 ; PSW
24 00232'000000 0 ; SAVE
25
26 PP15: ;
27 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0006 UCA01
APD03 000102' 2/18 2/30 2/35 2/38
ASCII 000133' 2/10 4/05
BCALL 000000 MC 2/06 2/24
CDR11 000017' 1/22 1/28
DMADD 000135' 4/01 4/06 4/07
DMADR 000131' 1/39 2/19 2/22 2/32 3/03 4/01
DMOMR 000134' 3/02 4/06
ERR10 000121' 1/50 1/56 3/09
ERR31 000124' 1/37 3/14
ERRCO 000130' 1/54 3/22
FADD 177775 2/07 2/09 2/25 2/27
FDIV 177772 2/07 2/09 2/25 2/27
FIX 177777 2/07 2/09 2/25
FLOAT 177776 2/07 2/09 2/25 2/27
FMPY 177773 2/07 2/09 2/25 2/27
FSUB 177774 2/07 2/09 2/25 2/27
IDIV 177767 2/07 2/09 2/25 2/27
IMPY 177771 2/07 2/09 2/25 2/27
IMPYA 177770 2/07 2/09 2/25 2/27
IOERR 177766 2/07 2/09 2/25 2/27
LOOPE 000070' 2/19 2/39
NUMBE 000132' 2/13 4/04
OUT00 000114' 2/34 3/02
PP00 000000' 1/09 1/13 5/14
PP05 000007' 1/11 1/18 1/20 5/18 5/23
PP10 000206' 1/13 5/03 5/07 5/19 5/21 5/27
PP15 000233' 5/07 5/26
PRDE1 000211 MC 1/01
PRDE2 000276 MC 5/01
RSTAT 000127' 1/31 3/05 3/09 3/14 3/21
SNART 000064' 2/14 4/04 4/05
.CDR 000016 1/40 1/41 1/42 1/44 1/52 1/53 4/02
«ff»
«eof»