!**********************************************
!*					      *
!*                   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