|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 39790 (0x9b6e)
Types: TextFile
Names: »F8047DSRC«
└─⟦276c6cea9⟧ Bits:30005523 8" CR80 Floppy CR80FD_0246 ( BBPAMOS INIT:810427 USERS DISKETTE UNDER AMOS )
└─⟦6e845e520⟧
└─ ⟦this⟧ »F8047DSRC«
WORDLENGTH=56 ,
PROMWIDTH=8 ,
JUMPDED=1 ,
PROMFILL=0
.
1 6 9 0 ,
2 24 8 0 ,
3 0 1 0 ,
4 1 1 0 ,
5 2 4 1 ,
6 15 2 0 ,
7 17 2 0 ,
8 19 3 0 ,
9 22 2 1 ,
10 32 1 0 ,
11 33 3 0 ,
12 36 4 0 ,
13 40 7 125 ,
14 47 1 1 ,
15 48 1 1 ,
16 49 1 1 ,
17 50 1 1 ,
18 51 1 1 ,
19 52 2 0 ,
20 54 2 2 ,
.
UNC=1,3
CLIN=1,4
JZ=15,5
CJS=14,5
JMP=13,5
CJP=12,5
PCLC=11,5
JRP=8,5
RFCT=7,5
RPCT=6,5
CRET=5,5
CJPP=4,5
LDCT=3,5
ENLO=2,5
TWB=0,5
CLBY=1,6
STBY=2,6
STCM=0,7
TRK=1,7
SCT=2,7
DAT=3,7
AQ=0,8
AB=1,8
ZQ=2,8
ZA=4,8
DA=5,8
DQ=6,8
DZ=7,8
Q=0,9
BA=2,9
B=3,9
C=1,10
ADD=0,11
SUB=1,11
BUS=2,11
OR=3,11
AND=4,11
IAN=5,11
EXO=6,11
EXN=7,11
A0=0,12
A1=1,12
A2=2,12
A3=3,12
A4=4,12
A5=5,12
A6=6,12
A7=7,12
A8=8,12
A9=9,12
A10=10,12
A11=11,12
A12=12,12
A13=13,12
A14=14,12
A15=15,12
COND=126,13
RDY=123,13
RAM=119,13
RL=111,13
RU=95,13
DAL=63,13
NIB=127,13
RIC=0,14
UPBY=0,15
UNIT=0,16
WIC=0,17
LATCH=0,18
WRA=1,19
DU=2,19
DL=3,20
MR=0,20
;ST.FD.CTRL CR8047D/010AB/01
;FIRMWARE VERSION 811109/BBP
;BUILD-IN-TEST IMPLEMENTED
BIT: UNC CJP T2910 STBY MR CLIN ;SET BUSY MR1791
JZ STBY MR CLIN ;2910 ERROR
UNC CJS BIT1 STBY MR CLIN ;TRY RESET CMD
BIT1: PCLC STBY MR CLIN ;STACK_#200
UNC CRET STBY MR CLIN ;GOTO LOC.#000
E2910: UNC CJP LOC STBY MR CLIN
EIBUS: UNC CJP LOC STBY MR CLIN
EABBUS:UNC CJP LOC STBY MR CLIN
ERAM: UNC CJP LOC STBY MR CLIN
ETIMER:UNC CJP LOC STBY MR CLIN
E1791: UNC CJP LOC STBY MR CLIN
;****** 2901 TEST SUBROUTINES ******
T29011: AND AZ A0 B MR ;A0_00 Y=RESULT Z=1
BUS AZ A0 B MR ;A0_#FF Y=RESULT Z=0
CJP E2910 AND AZ A0 B MR ;Z=1
CRET BUS AZ A0 B MR ;Z=0 TEST CRET
UNC CJP E2910 MR ;RETURN TO MAIN PROGRAM
T29105:CJP E2910 AND AZ A0 B MR ;CALL IF OK.
CJP T29106 BUS AZ A0 B MR
UNC CJP E2910 MR ;ELSE GOTO ERROR LOOP
T29106:UNC CRET MR ;RETURN TO MAINLOOP
;***** 2910 TEST MAINLOOP *****
T2910: UNC CJP T29101 MR ;TEST CALL/RET
UNC CJP T29102 MR ;TEST JPP
;THE FOLLOWING 2901 TEST MUST BE PERFORMED BEFORE
;TEST OF 2910 CONDITIONAL JUMP FACILITIES.
UNC CJS T29011 MR ;TEST ZERO FLAG ON
;JUMPS/RET
UNC CJS T29105 MR ;TEST CJS
UNC CJS T29107 MR ;TEST CJPP
UNC CJS T2910A MR ;TEST LDCT
UNC CJS T2910C MR ;TEST RPCT/DCR ALU REG.0
UNC CJS T2910D MR ;TEST RFCT
;***** 2910 TEST SUBROUTINES ******
T29101:UNC CRET MR
UNC E2910 MR
T29102:UNC CJP T29103 MR
UNC CJP E2910 MR
T29103:UNC CJPP T29104 MR
UNC CJP E2910 MR ;COME HERE IF JPP DEFECT
T29104:UNC CRET MR ;RETURN TO T2910 IF POP OK
;ELSE RETURN TO E2910
T29107:UNC CJS T29108 MR ;PUSH T29107+1 TO STACK
UNC CJP E2910 MR ;COME IF POP ERROR
T29108: AND ZA A0 B MR ;CLEAR REG.0
CJPP T29109 BUS ZA A0 B MR ;FORCE THE JUMP CONDITION
UNC CJP E2910 MR ;ERROR EXIT
T29109:UNC CRET MR ;RETURN TO MAINLOOP IF POP WA
;WAS OK,ELSE RET TO T29107+1
T2910A:LDCT T2910B MR ;REG_JUMP ENTRY
AND ZA A0 B MR
JRP BUS ZA A0 B MR ;JUMP TO LOC T2910B
T2910B:UNC CRET MR ;COME HERE IF LDCT&JRP WASS
;OK
T2910C:LDCT 1(#100) AND ZA A0 B MR ;LOAD COUNTER R0_0
RPCT LOC C SUB ZA A0 B MR ;DECREMENT COUNTER
CJP E2910▶1b◀ MR
UNC CRET MR ;COME IF CNT=R0
T2910D:UNC PCLC 1(#100) AND ZA A0 B MR ;LOAD COUNTER+STACK
RFCT SUB ZA A0 B MR ;DCR COUNTER A0_A0+1
CJP E2910 MR
UNC CRET MR
;***** TEST 2901 LOGICAL FUNCTIONS *****
A29010:LDCT 1(#0F) AND ZA A1 B MR ;LOAD CNTR.CLEAR REG.1
RPCT LOC C ADD ZA A1 B MR ;PRESET REG 1 TO #0F
CJP A29011 OR ZA A1 MR ;IS REG 1 =I 0
UNC CJP E2901 MR ;NO
A29011: OR ZA A1 Q MR
OR ZQ A0 B MR ;COPY R1 TO R0
LDCT 1(#F0) AND ZA A2 B MR ;PRESET A2 TO #F0
RPCT LOC C ADD ZA A2 B MR
CJP A29012 OR ZA A2 MR ;TEST RESULT
UNC CJP E2901
A29012: OR ZA A2 Q MR
OR ZQ A3 B MR ;COPY R2 TO R3
ADD AQ A0 Q MR ;TEST ADD
CJP E2901 C ADD ZQ MR ;RESULT=0 IF OK
OR ZA A3 Q MR ;Q=F0
OR AQ A0 Q MR ;COMPUTE F0-OR-0F
CJP E2901 C ADD ZQ MR ;TEST RESULT (0 IF OK)
OR ZA A3 Q MR ;Q=F0
IAN AQ A0 Q MR ;TEST IAN (0 IF OK)
ADD AQ A1 Q MR
CJP E2901 C ADD ZQ MR ;END OF MSNYBBLE TEST
OR ZA A1 Q MR ;Q=0F
IAN AQ A3 Q MR ;Q=0F IF OK
ADD AQ A2 Q MR ;Q=FF IF OK
CJP E2901 C ADD ZQ MR ;END OF LSNYBBLE TEST
;***** XOR TEST *****
LDCT 1(#55) AND ZA A4 B MR
RPCT LOC C ADD ZA A4 B MR ;PRESET R4 TO #55
AND DZ A12 B STBY ; .
2(#80) OR DZ A7 B ; .
2(#40) OR DZ A5 B WIC ; .
2(#D0) OR DZ WIC ; .
2(#D0) OR DZ ; .
UNC PCLC 1(34) AND DZ A8 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
RFCT AND ZA A11 B ; .
2(#F0) OR DZ A4 B ; .
UNC CJS GETSTA 2(128) OR DZ A0 B ; HEAD POS UNKNOWN .
CJP LOCM1 2(1) AND DQ ; .
2(128) OR DZ A1 B ; HEAD POS UNKNOWN .
2(128) OR DZ A2 B ; HEAD POS UNKNOWN .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(128) OR DZ A3 B ; HEAD POS UNKNOWN .
2(#7F) AND DA A7 B ; .
AND DZ A5 B CLBY ; .
NODEC:
CJS SVMB0 COND AND DA A15 ; .
LDCT 1(77) ; .
CJS SVMB0 COND AND DA A15 ; .
RPCT LOCM1 COND EXO DA A10 Q ; .
CJP NODEC 2(#80) AND DQ ; TEST TIMER .
2(#80) EXO DA A10 B ; CHANGE OLD TIMER .
CJS SVMB0 COND AND DA A15 ; .
CJP NODEC SUB ZA A9 B ; DECR LOWER TIMER .
SUB ZA A10 B ; DECR UPPER TIMER .
CJP NODES 2(#7F) AND DA A10 ; UPPER = 0? .
CJS SVMB0 COND AND DA A15 ; .
2(#9F) AND DA A11 B ; .
AND DZ UNIT ; .
NODES:
CJS SVMB0 COND AND DA A15 ; .
RDY OR DZ Q ; .
2(#F0) OR DQ A13 B ; STORE NEW RDY3:0 .
CJS SVMB0 COND AND DA A15 ; .
CJP CHINT IAN AQ A4 Q ; DISK CHANGE ? .
STNEW:
A13 OR ZA Q ; NEW .
OR ZQ A4 B ; OLD:=NEW .
CJS SVMB0 COND AND DA A15 ; .
UNC CJP NODEC ; .
CHINT:
CJS SVMB0 COND AND DA A15 ; .
2(#80) OR DA A7 B ; .
UNC CJP STNEW OR AQ A5 B CLBY ; DISK CHANGE INTERRUPT .
;********************************************************************.
START:
RU OR DZ A14 B DL STBY ; .
2(#40) OR DA A5 B ; .
2(#F) AND DA A5 Q ; .
CJS SVMB3 COND AND DA A15 ; .
ADD ZQ A10 B ; .
UNC CJS OGTSTA 2(#80) OR DA A7 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP NOT0 2(3) AND DA A14 ; .
A0 OR ZA Q ; .
UNC CJP LDNEU 2(1) OR DZ A13 B ; DECODED NEW UNIT .
NOT0:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP UN2OR3 2(2) AND DA A14 ; .
A1 OR ZA Q ; .
UNC CJP LDNEU 2(2) OR DZ A13 B ; .
UN2OR3:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP UN3 2(1) AND DA A14 ; .
A2 OR ZA Q ; .
UNC CJP LDNEU 2(8) OR DZ A13 B ; .
UN3:
A3 OR ZA Q ; .
UNC CJP LDNEU 2(16) OR DZ A13 B ; .
LDNEU:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
TRK WIC ; .
OR ZQ TRK WIC ; .
OR ZQ TRK ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#80) AND DQ A9 B ; R9 NOT ZERO MEANS
TRK UNDEFINED .
A13 OR ZA Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP SAMEUN A11 AND AQ ; .
OR ZQ A11 B ; NEW UNIT .
SAMEUN:
2(#84) AND DA A14 Q ; DENS,SIDE .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(128) EXO DQ Q ; /DENS,SIDE .
2(#7B) AND DA A11 B ; .
A11 OR AQ B ; SET DENS,SIDE I REG11 .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP NSELEC 2(#78) AND DA A14 ; .
;OPERATION "SELECT" .
2(#FB) AND DA A11 UNIT ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
STCM WIC ; .
2(#D0) OR DZ STCM WIC ; .
UNC PCLC 1(16) 2(#D0) OR DZ STCM ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
RFCT ; DELAY FROM LOAD COMMAND
TO READ STATUS .
UNC CJS GETSTA ; .
CJS AUTO6 2(1) AND DQ ; .
CJS AUTO11 2(#80) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS AUTO8 2(#40) AND DQ ; .
2(#4F) AND DA A5 B ; .
COND OR DZ Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS ADDI7 2(#10) AND DQ ; .
UNC CJP COMSLT ; .
NSELEC:
UNC CJS CHKRDY ; .
UNC CJS CHKWAS A10 IAN AQ Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP REAWRI 2(#18) AND DA A14 ; .
CJP RESTOR 2(#58 AND DA A14 ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
; OPERATION "SEEK" .
CJP SEER 2(128) AND DA A6 ; .
2(#33) ADD DA A6 Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP SEER 2(128) AND DQ ; .
CJS EXECRS A9 ADD ZA ; EXECUTE A RESTORE,
IF TRACK IS UNDEFINED .
UNC CJS TRKDIF 2(#FB) AND DA A11 UNIT ; .
NOLOAD:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP TP850U 2(8) AND DA A13 ; *******.
2(5) ADD DQ Q ; *******.
TESTUN:
CJP UNLOAD 2(#80) AND DQ ; .
TESTSI:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP TWOSI 2(#10) AND DA A13 ; .
CJP INVSI 2(4) AND DA A11 ; .
TWOSI:
UNC CJP LDNWTK A11 OR ZA UNIT ; .
TP850U: ; *******.
UNC CJP TESTUN 2(16) ADD DQ Q ; *********.
UNLOAD:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP TESTSI 2(#9F) AND DA A11 B ; .
LDNWTK:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
DAT WIC ; .
A6 OR ZA DAT WIC ; .
A6 OR ZA DAT ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS WASIDE ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP TP850S 2(8) AND DA A13 STCM WIC ; .
2(#1E) OR DZ STCM WIC ; *******.
UNC CJP SECMLD 2(#1E) OR DZ STCM ; .
TP850S: ; *******.
2(#1C) OR DZ STCM WIC ; .
2(#1C) OR DZ STCM ; *******.
SECMLD:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP HLDON 2(#20) AND DA A11 ; .
LDCT 1(100) ; .
WAHDLD:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ Q ; .
CJP STEPPU 2(#40) AND DQ ; .
CJP SEEKOV 2(2) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
A10 EXN AQ Q ; .
CJP WAHDLD 2(#80) AND DQ ; .
RPCT WAHDLD 2(#80) EXO DA A10 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#84) AND DA A7 B ; .
2(#C0) OR DA A7 B ; .
UNC CJP ABEND AND DZ A8 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
STEPPU:
UNC CJS TRKDIF ; .
CJS SVMB3 COND AND DA A15 ; .
A11 OR ZA UNIT ; .
UNC CJS CHKRDY ; .
UNC CJS UPDCHG ; .
CJS SVMB3 COND AND DA A15 ; .
UNC CJP SECMLD ; .
HLDON:
UNC CJS DELHLT ; .
SEEKOV:
UNC CJS GETSTA ; .
2(#4F) AND DA A5 B ; .
CJS AUTO6 2(1) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS AUTO1 2(8) AND DQ ; .
CJS AUTO12 2(#10) AND DQ ; .
CJS AUTO11 2(#80) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(1) OR DA A7 B ; .
CJS SENOCP 2(#42) AND DA A7 ; .
CJS SENOCP 2(#18) AND DA A8 ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP COMSLT ; .
; OPERATION " RESTORE" .
RESTOR:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP ILLCOM 2(#38) AND DA A14 ; .
UNC CJS EXECRS ; .
UNC CJP COMSLT ; .
; OPERATION "READ" OR "WRITE" .
REAWRI:
CJS CHKREA 2(#50) AND DA A14 ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#FB) AND DA A11 UNIT SCT WIC ; .
A6 OR ZA SCT WIC ; .
A6 OR ZA SCT ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ Q ; .
CJP TWOSRW 2(#10) AND DQ ; .
CJP INVSRW 2(4) AND DA A11 ; .
TWOSRW:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS WASIDE A11 OR DA 2(#20) B UNIT ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#80) OR DZ Q ; .
CJP RWCM 2(#10) AND DA A14 ; .
2(#21) OR DQ Q ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP RWCM 2(#20) AND DA A14 ; .
2(#FE) AND DQ Q ; .
RWCM:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
AND DZ A12 B STCM WIC ; .
OR ZQ STCM WIC ; .
OR ZQ STCM ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS WRIUPP 2(1) OR DZ A9 B ; .
RWCMLD:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
LDCT 1(275) ; .
WAITIN:
COND OR DZ Q ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS DRQSRV 2(4) AND DQ ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP RWOVER 2(2) AND DQ ; .
A10 EXN AQ Q ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP WAITIN 2(#80) AND DQ ; .
RPCT WAITIN 2(#80) EXO DA A10 B ; .
LDCT INVSRW COND OR DZ Q ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS DRQSRV 2(4) AND DQ ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS UPDCHG 2(#40) OR DA A11 B UNIT ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ Q ; .
CJS DRQSRV 2(4) AND DQ ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS CHKRDY 2(#7F) AND DA A10 B ; .
JRP RWCMLD A10 SUB ZA B ; .
RWOVER:
UNC CJS GETSTA AND DZ A12 B ; .
CJS AUTO6 2(1) AND DQ ; .
CJS AUTO11 2(#80) AND DQ ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS AUTO8 2(#40) AND DQ ; .
CJS AUTO5 2(#10) AND DQ ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS CRCERR 2(8) AND DQ ; .
2(#4F) AND DA A5 B ; .
CJS ADDI4 2(#20) AND DQ ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS ADDI5 2(4) AND DQ ; .
UNC CJP COMSLT ; .
SEER:
2(#84) AND DA A7 B ; .
2(#10) OR DZ A8 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP COMSLT 2(#4F) AND DA A5 B ; .
INVSI:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#84) AND DA A7 B ; .
2(#10) OR DZ A8 B ; .
ABEND:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS CHKRDY 2(#4F) AND DA A5 B ; .
ABP2:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
WIC ; .
2(#D0) OR DZ WIC ; .
UNC CJS OGTSTA 2(#D0) OR DZ ; .
CJP LOCM1 2(1) AND DQ ; .
UNC CJP COMSLT ; .
INVSRW:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
AND DZ A8 B ; .
2(#84) AND DA A7 B ; .
UNC CJP ABEND 2(#20) OR DZ A7 B ; .
ILLCOM:
AND DZ A8 B ; .
2(#84) AND DA A7 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(4) OR DZ A7 B ; .
2(#4F) AND DA A5 B ; .
COMSLT:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
TRK RIC ; .
TRK RIC ; .
TRK RIC DAL OR DZ Q ; .
CJS SVMB3 TRK COND AND DA A15 ; .
CJP SAUN0 2(1) AND DA A11 ; .
CJP SAUN1 2(2) AND DA A11 ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP SAUN2 2(8) AND DA A11 ; .
CJP SAUN3 2(16) AND DA A11 ; .
FENEU:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP ADDNZ 2(#BF) AND DA A5 B CLBY ; .
2(#7F) AND DA A7 B CLBY ; .
ADDNZ:
UNC ENLO ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC ENLO ; .
UNC ENLO ; .
UNC ENLO 2(15) OR DZ A10 B ; .
CJS SVMB0 COND AND DA A15 ; .
UNC CJP NODEC AND DZ A9 B ; .
SAUN0:
UNC CJP FENEU OR ZQ A0 B ; .
SAUN1:
UNC CJP FENEU OR ZQ A1 B ; .
SAUN2:
UNC CJP FENEU OR ZQ A2 B ; .
SAUN3:
UNC CJP FENEU OR ZQ A3 B ; .
;*****************************************************<.
OGTSTA:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
RIC ; .
RIC ; .
RIC DAL OR DZ Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET ; .
; SUBROUTINE "GETSTATUS" .
GETSTA:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#84) AND DA A7 B STCM RIC ; .
AND DZ A8 B STCM RIC ; .
DAL OR DZ Q STCM RIC ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET ; .
; SUBROUTINE "EXECUTE A RESTORE OPERATION" .
EXECRS: ; .
UNC CJS UPDCHG 2(#9B) AND DA A11 B UNIT ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS WASIDE ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ A13 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP TP850R 2(8) AND DA A13 STCM WIC ; *******.
2(#E) OR DZ STCM WIC ; .
UNC CJP RSCMLD 2(#E) OR DZ STCM ; .
TP850R: ; *******.
2(#C) OR DZ STCM WIC ; .
2(#C) OR DZ STCM ; .
RSCMLD:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
LDCT 1(100) ; .
WANOST:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ Q ; .
CJP STEPRS 2(#40) AND DQ ; .
CJP RESTOV 2(2) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
A10 EXN AQ Q ; .
CJP WANOST 2(#80) AND DQ ; .
RPCT WANOST 2(#80) EXO DA A10 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(#20) OR DA A11 B UNIT ; .
UNC CJS DELHLT ; .
RESTOV:
UNC CJS GETSTA ; .
2(#4F) AND DA A5 B ; .
CJS AUTO6 2(1) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS AUTO1 2(8) AND DQ ; .
CJS AUTO11 2(#80) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJS RESTER 2(#10) AND DQ ; .
CJPP COMSLT 2(#7B) AND DA A7 ; .
CJPP COMSLT A8 ADD ZA ; .
CJS SVMB3 COND AND DA A15 ; .
UNC CRET ; .
STEPRS:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS CHKRDY ; .
UNC CJS UPDCHG ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP RSCMLD ; .
; SUBROUTINES FOR SETTING STATUSBITS .
SENOCP:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#FE) AND DA A7 B ; .
AUTO1:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(2) OR DA A7 B ; .
CRCERR:
CJP AUTO1 2(#10) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#10) OR DA A7 B ; .
AUTO5:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#20) OR DA A7 B ; .
AUTO6:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#40) OR DA A7 B ; .
AUTO8:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(1) OR DA A8 B ; .
AUTO11:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(8) OR DA A8 B ; .
AUTO12:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#10) OR DA A8 B ; .
RESTER:
CJP AUTO12 2(4) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#20) OR DA A8 B ; .
ADDI4:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#10) OR DA A5 B ; .
ADDI5:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#20) OR DA A5 B ; .
ADDI7:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#80) OR DA A5 B ; .
; SUBROUTINE "CALCULATE TRACK DIFFERENCE" .
TRKDIF:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
TRK RIC ; .
TRK RIC ; .
DAL C SUB DA A6 Q TRK RIC ; .
CJS SVMB3 COND AND DA A15 TRK ; .
CJP NEGATI 2(#80) AND DQ ; .
C BUS ZQ Q ; .
NEGATI:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ A13 B ; .
CJP TP850L 2(8) AND DA A13 ; *******.
2(2) ADD DQ Q ; *******.
TESTLD:
CRET 2(#80) AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CRET 2(#20) OR DA A11 B ; .
TP850L:
UNC CJP TESTLD 2(7) ADD DQ Q ; *****.
; SUBROUTINE "DELAY HLT" .
DELHLT:
LDCT 1(275) ; .
WAHLT:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
COND OR DZ Q ; .
CRET 2(2) AND DQ ; .
A10 EXN AQ Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP WAHLT 2(#80) AND DQ ; .
UNC CJS CHKRDY 2(#80) EXO DA A10 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
RPCT WAHLT ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJS UPDCHG 2(#40) OR DA A11 B UNIT ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP DELHLT ; .
; SUBROUTINE "UPDATE CHANGE BITS" .
UPDCHG:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
RDY OR DZ Q ; .
2(#F0) OR DQ A13 B ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP CHINT3 A4 IAN AQ Q ; .
STNEW3:
A13 OR ZA Q STBY ; .
UNC CRET OR ZQ A4 B ; .
CHINT3:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
OR AQ A5 B CLBY ; .
UNC CJP STNEW3 2(#80) OR DA A7 B ; .
; SUBROUTINE "CHECK READY" .
CHKRDY:
CJP MSKRDY 2(1) AND DA A11 Q ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP MSKRDY 2(2) AND DA A11 Q ; .
CJP RDY2 2(8) AND DA A11 ; .
UNC CJP MSKRDY 2(8) OR DZ Q ; .
RDY2:
2(4) OR DZ Q ; .
MSKRDY:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
RDY OR DZ A13 B ; .
CRET A13 AND AQ Q ; .
2(#84) AND DA A7 B ; .
NOTRDY:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJPP ABP2 2(8) OR DZ A8 B ; .
; SUBROUTINE "CHECK WAS READY",
CHECKS THAT DRIVE WAS READY AND NOT IN DISK CHANGE STATUS, WHEN CURRENT
OPERATION WAS REQUESTED .
CHKWAS:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(63) ADD DZ A10 B ; .
UNC CRET A4 AND AQ ; .
UNC CJP NOTRDY 2(#84) AND DA A7 B ; .
; SUBROUTINE "CHECK READ COMMAND" .
CHKREA:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP ILLCOM 2(#68) AND DA A14 ; .
UNC CRET ; .
; SUBROUTINE " WAITE SIDE SELECTION" .
WASIDE:
2(#80) OR DZ Q ; .
CJP TIM1 COND AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP LOCM1 COND IAN DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP LOCM1 COND AND DQ ; .
UNC CRET ; .
TIM1:
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP LOCM1 COND AND DQ ; .
CJS SVMB3 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP LOCM1 COND IAN DQ ; .
UNC CRET ; .
; SUBROUTINE "DRQ-SERVICE " .
DRQSRV:
CJP WRIDAT 2(8) AND DA A14 ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(63) OR DA A10 B DAT RIC ; .
DAT RIC ; .
DAL EXN DZ A6 B DAT RIC ; .
CJS SVMB4 COND AND DA A15 DAT ; .
CJP REALOW 2(1) EXO DA A9 B ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP COMREA UPBY A12 ADD ZA BA LATCH ; .
REALOW:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
A12 C ADD ZA BA LATCH ; .
COMREA:
OR ZA DAL A6 BA LATCH WRA ; .
UNC CRET OR ZA DAL A6 BA LATCH ; .
WRIDAT:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
2(63) OR DA A10 B DAT WIC ; .
A6 OR ZA BA DAT WIC ; .
A6 OR ZA BA DAT ; .
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
CJP WRIUPP 2(1) EXO DA A9 B ; .
WRILOW:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UNC CJP COMWRI A12 C ADD ZA BA LATCH RAM ; .
WRIUPP:
CJS SVMB4 COND AND DA A15 ; REQUEST FROM MAINBUS ? .
UPBY A12 ADD ZA BA LATCH RAM ; .
COMWRI:
EXN DZ A6 B LATCH RAM ; .
UNC CRET NIB ; .
;*****************************************************<.
RAUTO:
A7 OR ZA DAL DL ; .
UNC CRET 2(#FB) AND DA A7 B ; .
RADDI:
CRET 2(#F0) AND DA A5 B ; .
UNC CRET 2(#7F) AND DA A7 B ; .
RBUFF:
UPBY A12 ADD ZA RAM BA DU ; .
UNC CRET A12 C ADD ZA RAM BA DL ; .
WBUFF:
UNC CRET C ADD ZA A12 RL BA DL ; .
SVMB0:
JMP BRNCH0 UPBY A12 ADD ZA BA LATCH ; .
SVMB4:
SVMB3:
JMP BRNCH3 UPBY A12 ADD ZA BA LATCH ; .
;********************************************************************.
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
;********************************************************************.
BRNCH0:
UNC CJP RAUTO A8 OR ZA DAL DU ; .
UNC CJP RADDI A5 OR ZA DAL DL ; .
UNC CJP RBUFF UPBY A12 ADD ZA RAM BA ; .
UNC CJP RBUFF UPBY A12 ADD ZA RAM BA ; .
UNC CJPP START RL OR DZ A6 B ; .
UNC CRET AND DZ A12 B DL ; .
UNC CJP WBUFF ADD ZA A12 RU BA WRA ; .
UNC CJP WBUFF ADD ZA A12 RU BA WRA ; .
;********************************************************************.
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
5(0) 9(0) 13(0) 14(0) 15(0) 16(0) 17(0) 18(0) 20(0) ; .
;********************************************************************.
BRNCH3:
UNC CJP RAUTO A8 OR ZA DAL DU ; .
UNC CJP RADDI A5 OR ZA DAL DL ; .
UNC CJP RBUFF UPBY A12 ADD ZA RAM BA ; .
UNC CJP RBUFF UPBY A12 ADD ZA RAM BA ; .
UNC CRET 2(4) OR DA A7 B DL ; .
UNC CRET AND DZ A12 B DL ; .
UNC CJP WBUFF ADD ZA A12 RU BA WRA ; .
UNC CJP WBUFF ADD ZA A12 RU BA WRA ; .
«a5»