|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4608 (0x1200)
Types: TextFile
Names: »cglager«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »cglager«
;; coretest program
s. a50,b122,c35,d120,f120,i25,h20,p5 , g100 w.;
0 ;
0 ;
0 ;
jl. b115. ; goto start.
f1: -1 ; minus one
-1<1
-1<2
-1<3
-1<4
-1<5
-1<6
-1<7
-1<8
-1<9
-1<10
-1<11
-1<12
-1<13
-1<14
-1<15
-1<16
-1<17
-1<18
-1<19
-1<20
-1<21
-1<22
-1<23
-8388608 ;
2.101010101010101010101010
2.001010101010101010101010
2.000010101010101010101010
2.000000101010101010101010
2.000000001010101010101010
2.000000000010101010101010
2.000000000000101010101010
2.010000000000001010101010
2.010100000000000010101010
2.010101000000000000101010
2.010101010000000000001010
2.010101010100000000000010
2.010101010101000000000000
2.010101010101010000000000
2.010101010101010100000000
2.010101010101010101000000
2.010101010101010101010000
2.010101010101010101010100
2.010101010101010101010101
2.111111111111000000000000
2.011111111111100000000000
2.001111111111110000000000
2.000111111111111000000000
2.000011111111111100000000
2.000001111111111110000000
2.000000111111111111000000
2.000000011111111111100000
2.000000001111111111110000
2.000000000111111111111000
2.000000000011111111111100
2.000000000001111111111110
2.000000000000111111111111
2.111111110000000000000000
2.011111111000000000000000
2.001111111100000000000000
2.000111111110000000000000
2.000011111111000000000000
2.000001111111100000000000
2.000000111111110000000000
2.000000011111111000000000
2.000000001111111100000000
2.000000000111111110000000
2.000000000011111111000000
2.000000000001111111100000
2.000000000000111111110000
2.000000000000011111111000
2.000000000000001111111100
2.000000000000000111111110
2.000000000000000011111111
2.100000000000000011111111
2.110000000000000011111111
2.111000000000000011111111
2.111100000000000011111111
2.111110000000000011111111
2.111111000000000011111111
2.111111100000000011111111
2.111111110000000011111111
2.111111110000000111111110
2.111111110000001111111100
2.111111110000011111111000
2.111111110000111111110000
2.111111110001111111100000
2.111111110011111111000000
2.111111110111111110000000
2.111111111111111100000000
2.011111111111111110000000
2.001111111111111111000000
2.000111111111111111100000
2.000011111111111111110000
2.000001111111111111111000
2.000000111111111111111100
2.000000011111111111111110
2.000000001111111111111111
2.110011001100110011001100
2.001100110011001100110011
2.011001100110011001100110
2.100110011001100110011001
2.111000111000111000111000
2.000111000111000111000111
2.111100001111000011110000
2.000011110000111100001111
2.111111000000111111000000
2.011111100000011111100000
2.001111110000001111110000
2.000111111000000111111000
2.000011111100000011111100
2.000001111110000001111110
2.000000111111000000111111
jl. 2
am -2
f3: f1
f4: 64<10-2 ; last core.
b115:
al. w3 f1. ; load address of first pattern.
rs. w3 f3. ; save test pattern.
b120:
rl. w3 f3. ; load testpattern pointer.
rl w0 x3 ; load testpattern
al w3 x3+2 ; next test pattern
al. w2 f3. ; load address of test pattern.
sn w2 x3 ; if last test pattern then
al. w3 f1. ; load address of first.
rs. w3 f3. ;
al. w2 f0. ; load address of first address to test.
al w2 x2-2;
b119: ;;loop.
al w2 x2+2
;;gp w2 64 ; write test address.
rs w0 x2 ; write test.
rl w1 x2 ; read addrs.
gp w1 64 ; show test pattern
se w0 x1 ; if read <> written then
jl. b118. ; goto error.
b117: ;; continue after error
se. w2 (f4. ; if last addrs then
jl. b119. ; goto repeat.
jl. b120. ; goto next test.
b118: ; error
gg w3 66 ; wait
gp w0 64 ; write data written.
gg w3 66 ; wait
gp w1 64 ; write data read.
gg w3 66 ; wait
gp w2 64 ; write address.
gg w3 66 ; wait.
jl. b117. ; continue test.
f0: 0 ; first test address.
e. ;end coretest program
▶EOF◀