Genicom 5000 Series, Programmer'S Manual

Page: 43 / 314

GEK-00029B 5000 Series Programmer’s Manual
43
Each "channel control code" pair of bytes has the capability to
indicate multiple channels since each channel indication has a
unique bit position, which is either ON=1 or OFF=0.
TABLE OF CHANNEL CODES
Decimal
Value
Binary
Value
ASCII
Character
1 2 1 2 1 2 Remarks
64 64 1000000 1000000 @ @ Fillers: see Note
65 64 100000 1 1000000 A @ Channel 1
66 64 10000 1 0 1000000 B @ Channel 2
68 64 1000 1 00 1000000 D @ Channel 3
72 64 100 1 000 1000000 H @ Channel 4
80 64 10 1 0000 1000000 P @ Channel 5
96 64 1 1 00000 1000000 ` @ Channel 6
64 65 1000000 100000 1 @ A Channel 7
64 66 1000000 10000 1 0 @ B Channel 8
64 68 1000000 1000 1 00 @ D Channel 9
64 72 1000000 100 1 000 @ H Channel 10
64 80 1000000 10 1 0000 @ P Channel 11
64 96 1000000 1 1 00000 @ ` Channel 12
BASIC Programming Example for EVFU Table Loading
PROGRAM INSTRUCTION REMARKS
1500 WIDTH "LPT1:" 255 Required by some BASIC languages to avoid auto LF at
column 80
1510 LPRINT CHR$(27);"]I"; Enables EVFU loading.
1520 LPRINT CHR$(65);CHR$(64); Resets TOF, Channel 1 Sao Table of Channel Codes
1530 FOR I=1 to 4
1531 LPRINT CHR$(64);CHR$(64); 4 filler lines
1532 NEXT I
1540 LPRINT CHR$(68);CHR$(64); Selects Channel 3. See Table of Channel Codes
1550 FOR I=1 to 16
1551 LPRINT CHR$(64);CHR$(64); 16 filler lines
1552 NEXT I
1560 LPRINT CHRS$72);CHR$(64); Selects channel 4. See Table of Channel Codes
1570 FOR I=1 to 31
1571 LPRINT CHR$(64);CHR$(64); 31 filler lines
1572 NEXT I
1580 LPRINT CHR$(80);CHR$(64); Selects channel 5. See Table of Channel Codes
1590 FOR I=1 to 8
1591 LPRINT CHR$(64);CHR$(64); 8 filler lines
1592 NEXT I
1600 LPRINT CHR$(64);CHR$(66); Selects channel 8. See Table of Channel Codes
1610 LPRINT CHR$(27);"\"; Exit EVFU loading.
1620 END
NOTE
To make characters acceptable, bit 7 must be set.