!**********************************************
!* *
!* BUS.BAS *
!* *
!* Displays the contents of the S-100 bus *
!* *
!* David F. Pallmann *
!* *
!**********************************************
PROGRAM BUS,1.0
MAPS: MAP1 ADDR, F, 6
MAP1 TEXT, S, 80
START: PRINT "The bus contains the following:"
PRINT
PRINT TAB(8); "AM-100/L 68000-based CPU (2-port serial)"
PRINT TAB(8); STR(WORD(1040)*2^6); "K bytes of memory"
LOOP: READ ADDR
IF ADDR=0 THEN GOTO DONE
READ TEXT
IF IO(ADDR)<>255 THEN PRINT TAB(8); TEXT
GOTO LOOP
DONE: PRINT
END
DATA: DATA 512,"software security device"
DATA 004,"AM-120 2-port serial (1-port parallel) I/O board"
DATA 112,"DR-200 16-port serial I/O board"
DATA 240,"AM-210 floppy disk controller"
DATA 248,"AM-300 6-port serial I/O board"
DATA 232,"AM-300 6-port serial I/O board #2"
DATA 216,"AM-300 6-port serial I/O board #3"
DATA 104,"AM-300 6-port serial I/O board #4"
DATA 096,"AM-300 6-port serial I/O board #5"
DATA 176,"AM-310 4-port serial I/O board"
DATA 180,"AM-310 4-port serial I/O board #2"
DATA 184,"AM-310 4-port serial I/O board #3"
DATA 194,"AM-320 line printer interface"
DATA 133,"AM-330 communications board"
DATA 208,"AM-410 or AM-415 SMD disk controller"
DATA 196,"AM-420 Priam disk controller"
DATA 192,"AM-500 Hawk disk controller"
DATA 160,"AM-600 magtape interface"
DATA 212,"AM-610 VCR interface"
DATA 103,"AM-620 streamer tape drive"
DATA 000
