!!!Driver for a PC Hercules Monochrome graphics card inside the ARGS PBI-ISA Interface
!! VBI Driver that copies the ATARI Screen RAM into the Hercules Card RAM
{{{
00010 .LI OFF
00020 ******************************
00030 * *
00040 * PROGRAMM:HERCULES DRIVER *
00050 * AUTOR :CARSTEN STROTMANN *
00060 * DATUM :27.05.94 *
00070 * VERSION :1.0 *
00080 * FUER :A.R.G.S *
00090 * *
00100 ******************************
00110 ;
00120 ADRL = $D540
00130 ADRH = $D541
00140 ADRS = $D520
00150 DATREG = $D521
00160 ;
00170 ADRLCTL = $D542
00180 ADRHCTL = $D543
00190 ADRSCTL = $D522
00200 DATCTL = $D523
00210 ;
00220 SAVMSC = $58
00230 ROWCRS = $54
00240 COLCRS = $55
00250 LMARGN = $52
00260 RMARGN = $53
00270 ADRESS = $3F
00280 BOTSCR = $2BF
00290 COLLEN = $26A
00300 MSCLEN = $268
00310 ;
00320 LPEG = 52
00330 HPEG = 60
00340 ;
00350 SETVBV = $E45C
00360 XITVBV = $E462
00370 ;
00380 ;
00390 .OR $7800
00400 .OF "D:HERC.COM"
00410 ;
00420 ; INIT DER INTERFACEKARTE
00430 ; PIAS 68B21
00440 ;
00450 IINIT
00460 LDA #56
00470 STA ADRLCTL
00480 STA ADRHCTL
00490 STA ADRSCTL
00500 STA DATCTL
00510 ;
00520 LDA #255
00530 STA ADRL
00540 STA ADRH
00550 STA ADRS
00560 STA DATREG
00570 ;
00580 LDA #60
00590 STA ADRLCTL
00600 STA ADRHCTL
00610 STA ADRSCTL
00620 STA DATCTL
00630 ;
00640 ; INIT HERCULESKARTE TEXTMODUS
00650 ;
00660 HINIT
00670 LDA #16 ; RESET
00680 STA ADRS
00690 NOP
00700 NOP
00710 LDA #0
00720 STA ADRS
00730 ;
00740 STA ADRS
00750 LDA #3
00760 STA ADRH
00770 LDA #0
00780 JSR AUSGIO
00790 ;
00800 LDA #184
00810 STA ADRL
00820 LDA #32
00830 JSR AUSGIO
00840 ;
00850 LDX #0
00860 .1
00870 CPX #16 ; TEXTREG.
00880 BEQ .2 ; SETZEN
00890 LDA #180
00900 STA ADRL
00910 TXA
00920 JSR AUSGIO
00930 ;
00940 LDA #181
00950 STA ADRL
00960 LDA TXTINI,X
00970 JSR AUSGIO
00980 INX
00990 BNE .1
01000 ;
01010 .2
01020 LDA #184
01030 STA ADRL
01040 LDA #8
01050 JSR AUSGIO
01060 ;
01070 LDA #$98
01080 STA MSCLEN
01090 LDA #03
01100 STA MSCLEN+1
01110 ;
01120 CINIT LDA #80
01130 STA COLLEN
01140 LDA #COPY
01150 STA ADRESS
01160 LDA /COPY
01170 STA ADRESS+1
01180 JSR AUSGZ
01190 ;
01200 CLEAR
01210 LDA #CLRBUF
01220 STA ADRESS
01230 LDA /CLRBUF
01240 STA ADRESS+1
01250 JSR AUSGZ
01260 LDA ZEILE
01271 BEQ .1
01280 JMP CLEAR
01290 .1
01291 JSR AUSGZ
01300 JSR SCRINIT
01310 ; RTS
01320 ;
01330 XINIT LDX RMARGN
01340 INX
01350 STX COLLEN
01360 ;
01370 JMP VBIINIT
01380 ;
01390 ------------------------------
01400 TXTINI .DA #97,#80,#82,#15,#25,#6,#25,#25
01410 .DA #2,#13,#5,#12,#0,#0,#0,#0
01420 ------------------------------
01430 COPY .AT "††††»ÂÚ„ıÏÂÛ†‘ÚÂÈ‚ÂÚ†≠†®„©†±π𥆖ËÔÂÓÈÿ†”ÔÊÙ√Ú˜†≠†√·ÚÛÙÂÓ†”ÙÚÔÙÌ·ÓÓ†††††††††††"
01440 .BL 80,0
01450 CLRBUF .BL 80,0
01460 ------------------------------
01470 .OR $0600
01480 ; DATENAUSGABE AUF IO-SPEICHER
01490 ; DES PC (SEG. 0), WERT MUSS
01500 ; IM AKKU STEHEN
01510 AUSGIO
01520 STA DATREG
01530 LDA #LPEG
01540 STA ADRLCTL
01550 LDA #HPEG
01560 STA ADRLCTL
01570 RTS
01580 ------------------------------
01590 ; DATENAUSGABE AUF SPEICHER
01600 ; DES PC (SEG 1-15), WERT MUSS
01610 ; IM AKKU STEHEN
01620 AUSGABE
01630 STA DATREG
01640 LDA #LPEG
01650 STA ADRSCTL
01660 LDA #HPEG
01670 STA ADRSCTL
01680 RTS
01690 ------------------------------
01700 ; AUSGABE EINER ZEILE
01710 ; AUS DEM BILDSCHIRMSPEICHER
01720 AUSGZ
01730 LDA #11
01740 STA ADRS
01750 CLC
01760 LDA ZEILE
01770 ASL
01780 TAX
01790 LDA HZEILTAB+1,X
01800 STA ADRH
01810 STA ZADRH
01820 LDA HZEILTAB,X
01830 STA ADRL
01840 STA ZADRL
01850 .1
01860 LDY #0
01870 AUSGZ11
01880 STA ADRL
01890 LDA (ADRESS),Y
01900 PHA
01910 AND #$7F
01920 TAX
01930 LDA INTTAB,X
01940 JSR AUSGABE
01950 ;
01960 ATTR
01970 INC ZADRL
01980 LDA ZADRL
01990 STA ADRL
02000 PLA
02010 AND #$80
02020 BEQ NORMAL
02030 INVERS
02040 LDA #112
02050 BNE ATTRIB
02060 NORMAL
02070 LDA #7
02080 ATTRIB
02090 JSR AUSGABE
02100 ;
02110 INY
02120 CPY COLLEN
02130 BEQ AUSGZEND
02140 ;
02150 INC ZADRL
02160 BEQ AUSGZ12
02170 ;
02180 LDA ZADRL
02190 BNE AUSGZ11
02200 AUSGZ12
02210 INC ZADRH
02220 LDA ZADRH
02230 STA ADRH
02240 LDA ZADRL
02250 BEQ AUSGZ11
02260 AUSGZEND
02270 DEC ZEILE
02280 SEC
02290 LDA ADRESS
02300 SBC COLLEN
02310 STA ADRESS
02320 BCS .1
02330 DEC ADRESS+1
02340 .1
02350 RTS
02360 ------------------------------
02370 HZEILTAB
02380 .DA $0000,$00A0,$0140,$01E0
02390 .DA $0280,$0320,$03C0,$0460
02400 .DA $0500,$05A0,$0640,$06E0
02410 .DA $0780,$0820,$08C0,$0960
02420 .DA $0A00,$0AA0,$0B40,$0BE0
02430 .DA $0C80,$0D20,$0DC0,$0E60
02440 .DA $0F00
02450 ------------------------------
02460 ZEILE .HX 18
02470 ZADRL .HX 00
02480 ZADRH .HX 00
02490 ------------------------------
02500 VBI
02510 JSR AUSGZ
02520 JSR AUSGZ
02530 ; JSR AUSGZ
02540 LDA ZEILE
02550 BPL .1
02560 JSR AUSGZ
02570 JSR SCRINIT
02580 .1
02590 JMP XITVBV
02600 ------------------------------
02610 SCRINIT
02620 LDA BOTSCR
02630 STA ZEILE
02640 DEC ZEILE
02650 CLC
02660 LDA SAVMSC
02670 ADC MSCLEN
02680 STA ADRESS
02690 LDA SAVMSC+1
02700 ADC MSCLEN+1
02710 STA ADRESS+1
02720 RTS
02730 ------------------------------
02740 VBIINIT
02750 LDA #7
02760 LDY #VBI
02770 LDX /VBI
02780 JSR SETVBV
02790 ;
02800 RTS
02810 ------------------------------
02820 .OR $0400
02830 INTTAB
02840 .HX 202122232425
02850 .HX 262728292A2B
02860 .HX 2C2D2E2F3031
02870 .HX 323334353637
02880 .HX 38393A3B3C3D
02890 .HX 3E3F40414243
02900 .HX 444546474849
02910 .HX 4A4B4C4D4E4F
02920 .HX 505152535455
02930 .HX 565758595A5B
02940 .HX 5C5D5E5F03C3
02950 .HX DED9B4BF2F5C
02960 .HX B0FEB1F67FC4
02970 .HX 5F0105DAC4C5
02980 .HX 02DCDBC2C1DD
02990 .HX C0EE18191A1B
03000 .HX 606162636465
03010 .HX 666768696A6B
03020 .HX 6C6D6E6F7071
03030 .HX 727374757677
03040 .HX 78797A7B7C7D7E7F
03050 ------------------------------
03060 .OR $2E0
03070 .DA IINIT
03080 ------------------------------
}}}
!! BASIC Driver for Hercules Card
{{{
00010 .LI OFF
00020 ******************************
00030 * *
00040 * PROGRAMM:HERCULES DRIVER *
00050 * AUTOR :CARSTEN STROTMANN *
00060 * DATUM :27.05.94 *
00070 * VERSION :1.0 *
00080 * FUER :BASIC *
00090 * *
00100 ******************************
00110 ;
00120 ADRL = $D540
00130 ADRH = $D541
00140 ADRS = $D520
00150 DATREG = $D521
00160 ;
00170 ADRLCTL = $D542
00180 ADRHCTL = $D543
00190 ADRSCTL = $D522
00200 DATCTL = $D523
00210 ;
00220 ADRESS = $3F
00230 ;
00240 LPEG = 52
00250 HPEG = 60
00260 ;
00270 ;
00280 .OR $0600
00290 .OF "D:HINIT.OBJ"
00300 ;
00310 ; INIT DER INTERFACEKARTE
00320 ; PIAS 68B21
00330 ;
00340 BINIT
00350 PLA ; BASIC PARAM.
00360 CMP #1
00370 BEQ .1
00380 RTS
00390 .1
00400 PLA
00410 STA ADRESS+1
00420 PLA
00430 STA ADRESS
00440 ; ADRESSE DER TABELLE
00450 ; BERECHNEN
00460 CLC
00470 LDA ADRESS
00480 ADC #$BD
00490 STA ADRESS
00500 BCC IINIT
00510 INC ADRESS+1
00520 IINIT
00530 LDA #56
00540 STA ADRLCTL
00550 STA ADRHCTL
00560 STA ADRSCTL
00570 STA DATCTL
00580 ;
00590 LDA #255
00600 STA ADRL
00610 STA ADRH
00620 STA ADRS
00630 STA DATREG
00640 ;
00650 LDA #60
00660 STA ADRLCTL
00670 STA ADRHCTL
00680 STA ADRSCTL
00690 STA DATCTL
00700 ;
00710 ; INIT HERCULESKARTE TEXTMODUS
00720 ;
00730 HINIT
00740 LDA #16 ; RESET
00750 STA ADRS
00760 NOP
00770 NOP
00780 LDA #0
00790 STA ADRS
00800 ;
00810 STA ADRS
00820 LDA #3
00830 STA ADRH
00840 LDA #0
00850 STA DATREG
00860 LDA #LPEG
00870 STA ADRLCTL
00880 LDA #HPEG
00890 STA ADRLCTL
00900 ;
00910 LDA #184
00920 STA ADRL
00930 LDA #32
00940 STA DATREG
00950 LDA #LPEG
00960 STA ADRLCTL
00970 LDA #HPEG
00980 STA ADRLCTL
00990 ;
01000 LDY #0
01010 .1
01020 CPY #16 ; TEXTREG.
01030 BEQ .2 ; SETZEN
01040 LDA #180
01050 STA ADRL
01060 TYA
01070 STA DATREG
01080 LDA #LPEG
01090 STA ADRLCTL
01100 LDA #HPEG
01110 STA ADRLCTL
01120 ;
01130 LDA #181
01140 STA ADRL
01150 LDA (ADRESS),Y
01160 STA DATREG
01170 LDA #LPEG
01180 STA ADRLCTL
01190 LDA #HPEG
01200 STA ADRLCTL
01210 INY
01220 BNE .1
01230 ;
01240 .2
01250 LDA #184
01260 STA ADRL
01270 LDA #8
01280 STA DATREG
01290 LDA #LPEG
01300 STA ADRLCTL
01310 LDA #HPEG
01320 STA ADRLCTL
01330 ;
01340 RTS
01350 ;
01360 ------------------------------
01370 TXTINI .DA #97,#80,#82,#15,#25,#6,#25,#25
01380 .DA #2,#13,#5,#12,#0,#0,#0,#0
01390 ------------------------------
}}}
!! Init Hercules Driver from Turbo-Basic
{{{
1 DIM HI$(205),HP$(218),H$(80)
2 HINIT=ADR(HI$)
3 HPRINT=ADR(HP$)
4 HSTRING=ADR(H$)
5 OPEN #1,4,0,"D:HINIT.OBJ"
6 BGET #1,ADR(HI$),6
7 BGET #1,ADR(HI$),205
8 CLOSE #1
9 X=USR(HINIT,HINIT)
10 OPEN #1,4,0,"D:HPRINT.OBJ"
11 BGET #1,ADR(HP$),6
12 BGET #1,ADR(HP$),218
13 CLOSE #1
14 H$=" "
15 FOR U=0 TO 25
16 X=USR(HPRINT,HPRINT,0,U,40,HSTRING)
17 X=USR(HPRINT,HPRINT,40,U,40,HSTRING)
18 NEXT U
}}}