Directory of image this file is from
This file as a plain text file

/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
  $$$$$$$$$$$$