|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 13596 (0x351c)
Description: Bits:30000601 A 205 MB-test
Types: 8-hole paper tape
Notes: Gier Text
;slip< ; A 205 b, Baandtest CDC 1b i=512, a45, b18, c25, d4 _pi 4, hs c4 ;initialize hs -223 ;set unit no. hs -464 ;read in data figures a0: hs c11 ;move 3 figures read in to next data a1: hs c9 ;move 3 figures next data to work hs c6 ;generate write data, adm 3 figures to read hv r3 NKC ;ka=kb method with parity check hv r2 LKC ;ka=kb d0: hs -277 ;write/read with parity registr. in read d1: hs -260 ;write read with parity check d2: hs c8 ;check read data d3: hv r3 NKA ;not ka, get new data hv a0 LQA ;ka, qa use original read in data hv a1 ;ka, not qa use the same data as in last run hs c12 ;mov 3 figures buffer to next data hv a1 ;use new data [-496] qq ;3 figures next data [-495] qq [-494] qq [-493] qq ;3 figures working [-492] qq [-491] qq [-490] qq ;data addr. counter.39 [-489] qq ;data addr. segment counter.9 [-488] qq ;expected data [-487] qq 512.19 ;buffer-gier, addr 0 gier, bl.length 512, addr 0 buffer [-486] qq 512.39 ;buffer addr count constant [-485] qq 4095.19+1.39 ;tape-buffer, addr 0 gier, bl.length 4095, addr 1 buffer [-484] qq 1023.19+1023.29+1023.39 ;mask for print [-483] qq 1.39 ;counter constant [-482] qq ;3 figures buffered while writing, for new data next block [-481] qq [-480] qq [-479] qq ;3 figures read in [-478] qq [-477] QQ [-476] qq ;permanent parity error counter.39 [-475] qq ;data error counter.39 c0: pm -491 [-473] arn -491 X [-472] mk -493 ,sc -492 [-471] dl -491 X [-470] ac -493 IOA [-469] ml -492 [-468] ac -491 IOB [-467] hr s1 [-466] qq 64 ;last read in char [-465] qq IZA [-464] pa -447 t-479 [-463] pa -445 t2 [-462] vy 17 [-461] sy 41 ,sy 53 [-460] sy 49 ,sy 52 [-459] sy 24 ,sy 64 [-458] pt -451 t-447 [-457] xrn ,lyn -466 [-456] nc 32 ,hv -453 [-455] pt -451 t-448 [-454] hh -457 [-453] ca 16 ,hvn -450 [-452] ca 64[-451] xr ,hv ____ ;- or + -447[-450] tk -30 ,ml -465 [-449] hh -457 [-448] mt -1 D[-447] gr ____ ,it 1 -479[-446] qq (r-1) ,it -1[-445] bt _ ,hv -458 2[-444] sy 64 ,hr s1 [-443] pa -429 t5 [-442] pa -431 t1 [-441] pt -439 t5 [-440] tl -10 [-439] pa -433 t3 [-438] mb -484 [-437] tl 1 [-436] ca sy 16 V [-434] sy 1 [-433] bt -1 t-1 [-432] hv -438 [-431] hv r7 [-424] [-430] sy [-429] bt -1 t-1 [-428] hv -439 [-427] pt -439 t3 [-426] pa -431 t7 [-425] hv -439 [-424] sy 1 V LPA [-423] sy 16 [-422] sy 1 V LPB [-421] sy 16 [-420] hr s1 [-419] sy ,sy [-418] sy 50 ,sy 54 [-417] sy ,sy 49 [-416] sy 52 ,sy 41 [-415] sy [-414] arn -489 ;segment a 512 tæller.9 [-413] tk -11 X [-412] mkn -487 ,ar -490 [-411] hs -291 [-410] sy 64 ,sy 64 [-409] hr s1 c4: vy 8 ,sy 72 vy 24 ,sy 64 sy 60 ,sy 49 sy 58 ,sy 0 sy 2 ,sy 16 sy 5 ,sy 0 sy 50 ,sy 59 sy 64, hr s1 [-400] arn -483 ,ac -475 ;count data error [-399] hv -390 NQB ;dont print if qb = 0 [-398] vy 8 [-397] arn -488 IPC [-396] hs -443 t-504 [-395] sy 64 [-394] arn (ra36) IPC [-393] hs -443 t-504 [-392] hs -419 [-391] hv ra40 b16: qq ;gier-buffer param word c6: pa ra22 t6 pa ra23 ta24 pt ra18 t511 arn -487 ,gr rb16 a17: pa ra20 t-1 a18: pa ra21 t511 a19: hs c0a20: gr __ MOC t1 -1a21: bt ___ t-1 511hv ra19 arn rb16 ,us arn -486 ,ac rb16a22: bt _ t-1 6hv ra17a23: hv a__ _24a24: pt ra18 t510 pa ra23 ta25 hv ra17 a25: hs c10 ;move 3 figures working to buffer hs c9 ;move 3 figures next data to work hr s1 b17: qq ;gier-buffer param word c7: pa ra29 t7 arn -487 ,gr rb17 a26: pa ra27 t-1 pa ra28 t511a27: grn __ t1 -1a28: bt ___ t-1 511hv ra27 arn rb17 ,us arn -486 ,ac rb17a29: bt _ t-1 7hv ra26 hr s1 b18: qq ;gier-buffer param word c8: grn -489 ,grn -475 arn -487 ,gr rb18 pt ra32 ta33 pa ra43 ta44 pa ra42 t6 pt ra31 t510 a30: arn rb18 ,ila31: pa ra41 t___ 510pa ra36 t-1a32: grn -490 ,hv a__ _33a33: arn hvn ra34 NT arn -483 ,ac -476 arn -476 a34: vy 24 ,sy 39 sy 59 ,sy 0 hs -291 sy 64 ,pa ra36 ;set a36 to first bfadr 1 pt ra32 ta35 arn -483 ,ac -490 ;pass statusword in bfadr 0 a35: hs c0 gr -488 MOCa36: sr __ t1 -1hv -400 NZ hv ra37 LOB hv -400 LB hv ra38 a37: hv -400 NB a38: hv ra39 LOA hv -400 LA hv ra40 a39: hv -400 NA a40: arn -483 ,ac -490a41: bt ___ t-1 510hv ra35 qq (-489) t1 arn -486 ,ac rb18 pt ra31 t511a42: bt _ t-1 6hv ra30 pt ra31 t511 ;overflødig, brug t7 i a42a43: hv a__ _44a44: pa ra43 ta45 hv ra30 a45: vy 16 ,arn -475 hs -291 ;print number of data errors sy 64 ,hr s1 c9: arn -496 ,gr -493 ;move 3 figures next data to work [-306] arn -495 ,gr -492 [-305] arn -494 ,gr -491 [-304] hr s1 c10: arn -493 ,gr -482 ;move 3 figures work to buffer [-302] arn -492 ,gr -481 [-301] arn -491 ,gr -480 [-300] hr s1 c11: arn -479 ,gr -496 ;move 3 figures read in to next data [-298] arn -478 ,gr -495 [-297] arn -477 ,gr -494 [-296] hr s1 c12: arn -482 ,gr -496 ;move 3 figures buffer to next data [-294] arn -481 ,gr -495 [-293] arn -480 ,gr -494 [-292] hr s1 [-291] pa -284 t3 [-290] dk -279 [-289] ar -280 X [-288] mln -281 [-287] tk 30 ,ga -285 [-286] sy 16 V LZ [-285] sy 1 [-284] bt -1 t-1 [-283] hv -288 [-282] hr s1 [-281] qq IZA [-280] qq IB [-279] qqn s XV IT [-278] qq 4095.19 ;buffer-tape, addr 0 gier, bl.length 4095, addr 0 buffer [-277] arn -278 ,us 1 [-276] iln 33 [-275] hs c7 [-274] arn -485 ,il 1 [-273] iln 225 [-272] arn -262 ,il [-271] arn IPC [-270] vy 8 [-269] sy 18 ,sy 19 [-268] sy 49 ,sy 19 [-267] sy 20 ,sy 18 [-266] sy ,sy [-265] hs -443 t-505 [-264] sy 64 [-263] hr s2 [-262] qq t1 [-261] qq p XVDLRC t1 [-260] pa -226 t2 [-259] pt -173 t22 [-258] pa -224 t13 ;try once more [-257] arn -278 ,us 1 [-256] arn -261 ,il 161 [-255] arn -261 ,il [-254] arn [-253] hs -227 LT d4: hh r0 ,il 33 [-251] pa -226 t2 [-250] pt -173 t41 [-249] pa -224 t9 ;try once more [-248] hs c7 [-247] arn -485 ,il 1 [-246] arn -262 ,il 161 [-245] arn -262 ,il [-244] arn [-243] hs -227 LT [-242] hr s1 [-241] hr s1 ;not used ∨ [-240] arn -278 ,ud -257 [-239] arn -261 ,il (-273) [-238] il ,arn [-237] hv -252 NT ;no p error [-236] hs -157 [-235] hv -252 [-234] arn -485 ,ud -247 [-233] arn -262 ,il (-273) [-232] il ,arn [-231] hv -242 NT ;no p errror [-230] hs -157 [-229] hv -242 [-228] qq ;not used [-227] hs -169 [-226] bt 2 t-1 [-225] hr s-4[-224] hr s__ ;last retry 13[-223] vy 25 ,sy 20 [-222] sy 37 ,sy 57 [-221] sy 19 ,sy 0 [-220] sy 60 ,sy 4 [-219] sy 58 ,sy 0[-218] lyn _ D 0[-217] ca ,hv r-1 [-218] [-216] bs (r-2)[-218] t4 [-215] hv r-3 [-218] [-214] ck ,tk -10 [-213] gt r2 [-211] ,gt r3 [-210] [-212] gt r3 [-209] ,gt r4 [-208] [-211] pt -277 t1 [-210] pt -274 t1 [-209] pt -257 t1 [-208] pt -247 t1 [-207] tk 10 [-206] ca 1 ,hv r5 [-201] [-205] ca 2 ,hv r10 [-195] [-204] ca 3 ,hv r15 [-189] [-203] ca 4 ,hv r20 [-183] [02] hv -223 [-201] pa -276 t33 [-200] pa -273 t225 [-199] pt -252 t33 [-198] pt -256 t161 [-197] pt -246 t161 [-196] us 65 ,hv 847 [-195] pa -276 t34 [-194] pa -273 t226 [-193] pt -252 t34 [-192] pt -256 t162 [-191] pt -246 t162 [-190]us 66 ,hv 847 [-189] pa -276 t35 [-18] pa -273 t227 [-187] pt -252 t35 [-186] pt -256 t163 [-185]pt -246 t163 [-184]us 67 ,hv 847 [-183] pa -276 t36 [-182] pa -273 t228 [-181] pt -252 t36 [-180] pt -256 t164 [-179] pt -246 t164 [-178] us 68 ,hv 847 ;celle 846 grn -476 ,vy 8 ;p-error counter :=0 sy (-218) ,sy 64 ;unit no. to lpt vy 24 ,sy 64 hr s1vy 24 ,sy _ 0sy 32 ,sy 39 sy 53 ,sy 27 sy 0 ,hr s1 hs -173 sy 41 ,sy 53 sy 39 ,sy 53 sy 49 ,sy 19 sy 0 ,sy 35 sy 49 ,sy 18 sy 19 ,sy 0 sy 19 ,sy 41 sy 49 ,sy 37 sy 18 ,sy 54 sy 53 ,sy 41 sy 64 ,hr s1 hs -173 sy 37 ,sy 38 sy 0 ,sy 41 sy 53 ,sy 39 sy 53 ,sy 49 sy 19 ,sy 64 hr s1 i=900 arn r4, gr d0 arn r4, gr d2 arn r4, gr d4 hv 512 hv d1 hv d3 hr s1, il 33 i=910 arn r5, gr d0 arn r5, gr d1 arn r5, gr d2 arn r5, gr d4 hv 512 hv d1 hs -251 hs c8 hh r0, il 33 i=920 arn r5, gr d0 arn r5, gr d1 arn r5, gr d2 arn r5, gr d4 hv 512 hs -277 hs -260 hs c8 hh r0, il 33e512 _[ s t o p ]