|
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: 12800 (0x3200)
Types: TextFile
Names: »P4LLK«
└─⟦99bc78d90⟧ Bits:30001771 CALL-RUTINER under DP4-DOMAC
└─ ⟦this⟧ »/P4LLK«
«ff»
0001 UCA01 DOMUS MACRO ASSEMBLER REV 02.00
01 ; CARD READING CALL ROUTINES
02 ; TORBEN TAMBO 07.09.81
03 ; RETTET AF PL (EFTER AT GMEM,SMEM,KODESPEC ER TILFØJET)
04 ; IDET DMADR SKAL INDEH ADR (DMOMR) PÅ INPUTBUFFEROMR, ENDV ER 2 FEJLLINIER I GM00 FJERNET
05
06 PRDE1
07
.TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01
09 .NREL
10 000012 .RDX 10 ; RADIX 10
11 000001 .TXTM 1 ; PACKED FROM LEFT TO RIGHT
12 000001 .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES
13
14 PP00: ; PROGRAM START
15 00000'100001 1B0+1B15 ; DESCRIPTOR
16 00001'000007' PP05 ; START
17 00002'000000 0 ; CHAIN
18 00003'000273 PP10-PP00 ; SIZE
19 00004'052503 .TXT .UCALL. ; NAME
20 040514
21 046000
22
23 PP05: ;
24 00007'006013 STOPPROCESS ;
25 00010'000777 JMP PP05 ;
26
27 00011'000043'CDR01
28 00012'041501 .TXT "CARDREA1"
29 051104
30 051105
31 040461
32
33 00016'000054'CDR10
34 00017'041501 .TXT "CARDREA2"
35 051104
36 051105
37 040462
38
39 00023'000177'GME00
40 00024'043515 .TXT "GMEM<0><0><0><0>"
41 042515
42 000000
43 000000
44
45 00030'000244'SME00
46 00031'051515 .TXT "SMEM<0><0><0><0>"
47 042515
48 000000
49 000000
50
51 00035'000237'KSP00
52 00036'045517 .TXT "KODESPEC"
53 042105
54 051520
55 042503
56
57 00042'000000 0
58
59
60 ; REV 01.01 CONSISTS OF A REMOTE TESTING
«ff»
0002 UCA01
01 ; REV 01.02 CONSISTS OF A TOTAL READING COMPLEX WITCH DUMPS DATA IN CORE
02 .EJEC
«ff»
0003 UCA01
01 ; CARDREAD REV 01.01
02 00043'000000 CDR01: 0
03 00044'024462 LDA 1,DMADR
04 00045'066116 DOBS 1,14
05 00046'102520 LO 0,0
06 00047'061016 DOA 0,14
07 00050'063516 SKPBZ 14
08 00051'000777 JMP .-1
09 00052'061616 DIBC 0,14
10 00053'002242 RET1 ; END OF REMOTE TEST
11 .EJEC
«ff»
0004 UCA01
01 ; CARDREAD REV 01.02
02 ; Read a card, and place :
03 ; Columns in resident core
04 ; First data address in 1. variable
05 ; Columns transferred in 2. variable
06 ; Controller status word in 3. variable
07 ;
08 00054'000003 CDR10: 3
09 00055'100000 REAL+REFERENCE
10 00056'100000 REAL+REFERENCE
11 00057'100000 REAL+REFERENCE
12 00060'024446 LDA 1,DMADR
13 00061'066016 DOB 1,14
14 00062'031000 LDA 2,+0,2
15 00063'006240 EXECUTE
16 00064'000114' FLAPD
17 00065'002242 RET1
18 00066'126520 LO 1,1
19 00067'065116 DOAS 1,14
20 00070'063516 SKPBZ 14
21 00071'000777 JMP .-1
22 00072'065416 DIB 1,14
23 00073'020433 LDA 0,DMADR
24 00074'106400 SUB 0,1
25 00075'031467 LDA 2,U.STK,3
26 00076'031001 LDA 2,+1,2
27 00077'006240 EXECUTE
28 00100'000114' FLAPD
29 00101'002242 RET1
30 00102'031467 LDA 2,U.STK,3
31 00103'031002 LDA 2,+2,2
32 00104'102400 LZ 0,0
33 00105'061016 DOA 0,14
34 00106'064616 DIAC 1,14
35 00107'006240 EXECUTE
36 00110'000114' FLAPD
37 00111'002242 RET1
38 00112'002242 RET1
39 00113'002241 RET0
40 .EJEC
«ff»
0005 UCA01
01 ; Float and store integer in a COMAL variable
02 ; AC ! CALL ! RET !
03 ;---------------------------------------------------------------
04 ; 1 ! var. pt. from u.stk! 2. word of var. !
05 ; 2 ! 16 bit integer ! undef'd !
06 ;---------------------------------------------------------------
07 ;
08 FLAPD:
09 00114'102400 LZ 0,0
10 00115'031000 LDA 2,+0,2
11 00116'050406 STA 2,APD00
12 BCALL FLOAT
13 00117'035515 LDA 3 U.S21,3
14 00120'007401 JSR@ +1,3
15 00121'030040 LDA 2,CUR
16 00122'007106 A.PDOUBLE
17 00123'000001 1
18 00124'000000 APD00: 0
19 00125'002242 RET1
20 ;
21 ; CORE DUMP AREA DECLARATION
22 ;
23 00126'000127'DMADR: DMOMR
24 00127'000050 DMOMR: .BLK 40
25 .EJEC
«ff»
0006 UCA01
01
02
03
«ff»
!0007 UCA01
01 00177'000002 GME00: 2
02 00200'000000 REAL
03 00201'100000 REAL+REFERENCE
04 00202'031000 LDA 2,+0,2 ; AC1=A-ADRESSE
05 00203'006240 EXECUTE
06 00204'000221' GSM00
07 00205'002242 RET1
08 00206'025000 LDA 1,+0,2 ; JA: AC1=INDHOLD AF ADRESSE
09 BCALL FLOAT ; AC1 -> KOMMATAL
10 00207'035515 LDA 3 U.S21,3
11 00210'007401 JSR@ +1,3
12 00211'031467 LDA 2,U.STK,3
13 00212'033001 LDA @ 2,+1,2 ; AC2=B-ADRESSE
14 00213'050404 STA 2,GME01 ; GEM B-ADRESSE
15 00214'030040 LDA 2,CUR
16 00215'007106 A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B
17 00216'000001 1
18 00217'000000 GME01: 0
19 00220'002242 RET1 ; END GMEM
20
«ff»
!0008 UCA01
01 00221'021000 GSM00: LDA 0,+0,2 ; HENT A
02 00222'025001 LDA 1,+1,2
03 BCALL FIX ; FIX A
04 00223'035515 LDA 3 U.S21,3
05 00224'007400 JSR@ +0,3
06 00225'152220 ADCZR 2,2 ; AC2=1B0-1
07 00226'101005 MOV 0,0,SNR ; 0<=AC1<=1B0-1
08 00227'132433 SNG 1,2
09 00230'000403 JMP ERR90 ; NEJ: ERROR UDSKRIV MEDD.
10 00231'131000 MOV 1,2 ; AC1-->AC2
11 00232'002242 RET1 ; RETURN
12
13 00233'006244 ERR90: ERROR
14 00234'000132 90
15
16 00235'006244 ERR91: ERROR
17 00236'000133 91
18 00237'000000 KSP00: 0
19 00240'060477 READS 0
20 00241'040402 STA 0,KSP01
21 00242'002242 RET1
22 00243'000000 KSP01: 0
«ff»
!0009 UCA01
01 00244'000002 SME00: 2 ; 2 VARIABLE
02 00245'000000 REAL ; A (=A-ADRESSE)
03 00246'000000 REAL ; B (=DATA)
04 00247'020774 LDA 0,KSP01 ; SE GME00
05 00250'024422 LDA 1,KSP02
06 00251'122404 SUB 1,0,SZR
07 00252'000761 JMP ERR90
08 00253'031001 LDA 2,+1,2 ; AC2(!)=B-ADRESSE
09 00254'021000 LDA 0,+0,2 ; HENT REAL(!) B
10 00255'025001 LDA 1,+1,2
11 BCALL FIX ; FIX B
12 00256'035515 LDA 3 U.S21,3
13 00257'007400 JSR@ +0,3
14 00260'101004 MOV 0,0,SZR ; 0<=B<=65535 ?
15 00261'000754 JMP ERR91 ; NEJ ERROR-RETURN
16 00262'045470 STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER
17 00263'033467 LDA@ 2,U.STK,3
18 00264'006240 EXECUTE ; EXEC GSM00(A-ADRESSE)
19 00265'000221' GSM00
20 00266'002242 RET1
21 00267'025470 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B
22 00270'045000 STA 1,+0,2 ; AC1-->ADR.AC2
23 00271'002242 RET1 ; END STOREMEMORY
24 00272'123456 KSP02: 42798
«ff»
!0010 UCA01
01 PRDE2
02
03 PP10: ; PROCESSDESCRIPTOR:
04 00273'000000 0 ; NEXT
05 00274'000000 0 ; PREV
06 00275'000000 0 ; CHAIN
07 00276'000025 PP15-PP10 ; SIZE
08 00277'052503 .TXT .UCALL. ; NAME
09 040514
10 046000
11 00302'000302' .+0 ; FIRST EVENT
12 00303'000302' .-1 ; LAST EVENT
13 00304'000000 0 ; BUFFE
14 00305'000000' PP00 ; PROGRAM
15 00306'000000 0 ; STATE
16 00307'000000 0 ; TIMER
17 00310'000001 1 ; PRIORITY
18 00311'000007' PP05 ; BREAK
19 00312'000273' PP10 ; AC0
20 00313'000000 0 ; AC1
21 00314'000273' PP10 ; AC2
22 00315'000000 0 ; AC3
23 00316'000016" PP05*2 ; PSW
24 00317'000000 0 ; SAVE
25
26 PP15: ;
27 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0011 UCA01
APD00 000124' 5/11 5/18
BCALL 000000 MC 5/12 7/09 8/03 9/11
CDR01 000043' 1/27 3/02
CDR10 000054' 1/33 4/08
DMADR 000126' 3/03 4/12 4/23 5/23
DMOMR 000127' 5/23 5/24
ERR90 000233' 8/09 8/13 9/07
ERR91 000235' 8/16 9/15
FADD 177775 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
FDIV 177772 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
FIX 177777 5/13 7/10 8/04 8/06 9/12 9/14
FLAPD 000114' 4/16 4/28 4/36 5/08
FLOAT 177776 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
FMPY 177773 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
FSUB 177774 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
GME00 000177' 1/39 7/01
GME01 000217' 7/14 7/18
GSM00 000221' 7/06 8/01 9/19
IDIV 177767 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
IMPY 177771 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
IMPYA 177770 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
IOERR 177766 5/13 5/15 7/10 7/12 8/04 8/06 9/12
9/14
KSP00 000237' 1/51 8/18
KSP01 000243' 8/20 8/22 9/04
KSP02 000272' 9/05 9/24
PP00 000000' 1/14 1/18 10/14
PP05 000007' 1/16 1/23 1/25 10/18 10/23
PP10 000273' 1/18 10/03 10/07 10/19 10/21 10/27
PP15 000320' 10/07 10/26
PRDE1 000211 MC 1/06
PRDE2 000276 MC 10/01
SME00 000244' 1/45 9/01
«ff»
«eof»