/PROGRAM TO TEST INSTRUCTIONS TO THE DIGITAL I/O
*20
  LOOP,0
  BLOOP,0
  COUNTA,0
  COUNTB,0
  COUNTC,0
  COUNTD,0
  COUNTE,0
*200
  CLA
  HLT
  LAS
  CMA
  DCA BLOOP
START,IOF
  CLA
  TAD (-4)
  DCA COUNTA
  TAD (-4)
  DCA COUNTB
  TAD (-4)
  DCA COUNTC
  TAD (-4)
  DCA COUNTD
  TAD (-4)
  DCA COUNTE
CLIF,6165/ CLEAR INTERRUPT FLAG
  6160
  AND (4000)
  SZA
  JMP .+2
  JMP .+4
TS1, CLA
  TAD (1)
  HLT
  CLA
SIF, 6164/ SET INTERRUPT FLAG
  6160 
  AND (4000)
  TAD (3777)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS2, CLA
  TAD (2)
  HLT
  CLA
  6165/ CLEAR A SET INTERRUPT FLAG
  6160
  AND (4000)
  SZA
  JMP .+2
  JMP .+4
TS3, CLA
  TAD (3)
  HLT
  CLA/SHIFT ALL ZEROS THRU SHIFT REGISTERS
  6166
  ISZ COUNTA
  JMP .-2
  6161
  AND (7700)
  SZA
  JMP .+2
  JMP .+4
TS4, CLA
  TAD (4)
  HLT
  CLA
  CMA/ SHIFT ALL ONES THRU SHIFT REGISTERS
  6166
  SZA
  JMP .+2
  JMP .+4
TS6, CLA
  TAD (6)
  HLT
  CLA
  ISZ COUNTB
  JMP .-13
  6161
  AND (7700)
  TAD (77)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS5, CLA
  TAD (5)
  HLT
  JMP FOUR
*400
FOUR,CLA
  CMA
  6166
  6161
  6161
  6161
  6162
  6163/ TEST OPERATION OF BCL2
  6503
  AND (4)
  TAD (7773)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS7, CLA
  TAD (7)
  HLT
  CLA
  TAD (4000)
  6506/ENTER A READ PULSE
  6506
  6160
  AND (1000)
  TAD (6777)
  CMA
  SZA
JMP .+2
  JMP .+4
TS10,CLA
  TAD (10)
  HLT
  6503
  AND (4)
  SZA
  JMP .+2
  JMP .+4
TS11, CLA
  TAD (11)
  HLT
  CLA
  6163
  6161
  AND (7700)
  SZA/TEST OR TO IR TO SR TRANSFER OF ONES
  JMP .+2
  JMP .+4
TS12, CLA
  TAD (12)
  HLT
  CLA
  ISZ COUNTC
  JMP .-12
  CLA 
  6166
  6161
  6161
  6161
  6162
  6163
  CLA
  TAD (4000)
  6506
  6506
  6163
  6161
  AND (7700)/TEST OR TO IR TO SR TRANSFER OF ZEROS
  TAD (77)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS13, CLA
  TAD (13)
  HLT
  CLA
  ISZ COUNTD
  JMP .-14
  6167/TEST EXTERNAL WRITE CONTROL
  CLA
  6503/TEST BCL5
  AND (2)
  TAD (7775)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS15, CLA
  TAD (15)
  HLT
  JMP SIX
*600
SIX,CLA
  CMA
  6166/LOAD ONES IN SR
  6161
  6161
  6161
  CLA
  TAD (2000)
  6506
  6506/WRITE PULSE GENERATED
  6160/TEST EDW
  AND (2000)
  TAD (5777)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS16, CLA
  TAD (16)
  HLT
  CLA/TEST BCL5
  6503
  AND (2)
  SZA
  JMP .+2
  JMP .+4
TS17,CLA
  TAD (17)
  HLT
  CLA
  6163
  TAD (4000)
  6506
  6506
  6163
  6161
  AND (7700)
  SZA
  JMP .+2
  JMP .+4
TS20,CLA
  TAD (20)
  HLT
  CLA
  ISZ COUNTE
  JMP .-12
  ISZ LOOP
  JMP START
  ISZ BLOOP
  JMP START
  HLT
  $$$$$$$$$$$$

Bm':9$= +	>+= /)$';&$+#9%<9!$/?<?59$=81%&8($''/:58=82+"9<0'('	9
h#&6-0#


	*	.0&9,:*&:*&;,:&7-3&<&7-6&6,
&5,&6-6&5,&6-6&5,
&6-6&5+>&6-3#.&5+>".+((((;86;7499=4--4
&7-3&=$&>&9-3/
$?+&:8
/> &:/'	&.i&6,#
&6,&7-3&<&5,&?,&5,&;-3&7-6&4-3$$&8-6&5,:&<'$$'/j&1'.-3'3,:$?*'7,:'1-3'.-38
3'7-3'5'.-6'0,.'2,+'0,('0-6'2,%'0,"'0-6'2,'0,'/-3
3>(*/'4+>&2.))$=(/89<(%<(&> +$.3':$;<$'='.-3'0,1'.-6'7-3'3,1'1-6'.-3'5'.-6'/-*'0,7'/-6'0,4'/-3'3,='.-6
$'6'0-6'/--.3;6874
94=4-;=:/4'	>&.;0
.<-
>/2$=+71="97 .1,9/	&05%,2#01.05(6/<826*1,