5 stop
10 'GRPH64K.BAS  --  some 6845 setups for upgraded Color/Graphics card
20 ' 20 JAN 83
22 '
25 'Register setups for 44 line alphanumeric display on monochrome adapter
30 DEF SEG=0
40 WIDTH 80
50 OUT &H3D8,&H2D
60 DEFINT A-Z
70 FOR I=0 TO 13
80 OUT &H3D4,I
90 READ S
100 OUT &H3D5,S
110 NEXT
120 DATA &H60,&H50,&H52,&HE,43,8,43,43,2,7,&H6,&H7,0,0
130 OUT &H3D9,64
140 DEF SEG=&HB800
150 FOR I=0 TO 44*80*2 STEP 2:POKE I,I\2 AND 255:POKE I+1,I\64:NEXT
500 '
510 '160 x 400 color interlace mode setups:
520 DEF SEG=0
530 OUT &H3D8,&H1A
540 OUT &H3D9,31
550 DEFINT A-Z
560 FOR I=0 TO 13
570 OUT &H3D4,I
580 READ S
590 OUT &H3D5,S
600 NEXT
610 DATA &H38,&H28,&H2d,10,127,2,100,112,3,1,0,0,16,0
1000 '
1100 ' 640 by 700 monochrome graphics setup
1150 DEF SEG
1200 DEFINT A-Z
1206 OUT &H3D8,&H1E
1207 OUT &H3D9,31+64
1220 FOR I=0 TO 13
1230 OUT &H3D4,I
1240 READ S
1250 OUT &H3D5,S
1260 NEXT
1270 DATA 47,40,41,6,87,6,87,87,3,3,0,0,16,0
1300 ' See GRPH64K.DOC for memory maps