General Information \\
Author: Carsten Strotmann \\
Assembler: Bibo Assembler \\
Published: 08.07.91 \\
{{{
00010 .LI OFF
00020 ******************************
00030 * *
00040 * PROGRAMM:BOOT PROGRAMM LOAD*
00050 * AUTOR :CARSTEN STROTMANN *
00060 * DATUM :08.07.91 *
00070 * VERSION :01 *
00080 * FUER :PSC *
00090 * *
00100 ******************************
00110 ;
00120 BOTSEC = 4
00130 BOOT = $9
00140 DOSVEC = $A
00150 DOSINI = $C
00160 RTCLOK = $12
00170 SDLSTL = $230
00180 COLOR0 = $2C4
00190 COLOR1 = $2C5
00200 COLOR2 = $2C6
00210 COLOR3 = $2C7
00220 COLOR4 = $2C8
00230 DDEVIC = $300
00240 DUNIT = $301
00250 DCMND = $302
00260 DSTAT = $303
00270 DBUF = $304
00280 DTIMLO = $306
00290 DUBUSE = $307
00300 DBYT = $308
00310 DAUX = $30A
00320 ;
00330 PORTB = $D301
00340 SIOV = $E459
00350 ;
00360 .OR $9C00
00370 .TA $4000
00380 ;
00390 ------------------------------
00400 ;
00410 DSKBOOT
00420 .HX 00
00430 .DA #BOTSEC
00440 .DA DSKBOOT
00450 .DA INIT
00460 ;
00470 BOTCON
00480 CLC
00490 RTS
00500 ------------------------------
00510 PRGADR .DA $0F80
00520 FIRSEC .DA $0006
00530 CNTSEC .DA $00FF
00540 PRGJMP .DA $8844
00550 ------------------------------
00560 DL .HX 707070707070707070
00570 .HX 42
00580 TXTADR .DA TXT
00590 .HX 60066002000200020002
00600 .HX 41
00610 .DA DL
00620 ------------------------------
00630 TXT .AT " NOW LOADING... "
00640 .AT " my programm "
00650 .AT " (c) my company "
00660 .AT " Diskversion 2003 by my other company "
00670 .AT "---------------------------------------- "
00680 .AT " Sectors to load : "
00690 CNT .AT "255 "
00700 ------------------------------
00710 INIT
00720 ; LDA #START
00730 ; STA DOSVEC
00740 ; LDA /START
00750 ; STA DOSVEC+1
00760 ; RTS
00770 ;
00780 START
00790 LDA PORTB
00800 ORA #1
00810 STA PORTB
00820 ;
00830 LDA #DL
00840 STA SDLSTL
00850 LDA /DL
00860 STA SDLSTL+1
00870 ;
00880 LDA #0
00890 STA COLOR4
00900 LDA #4
00910 STA COLOR2
00920 LDA #10
00930 STA COLOR1
00940 LDA #90
00950 STA COLOR0
00960 ;
00970 WAITVBI
00980 LDA RTCLOK+2
00990 .1 CMP RTCLOK+2
01000 BEQ .1
01010 ;
01020 LDA #$31
01030 STA DDEVIC
01040 LDA #$01
01050 STA DUNIT
01060 LDA #$52
01070 STA DCMND
01080 LDA #7
01090 STA DTIMLO
01100 LDA #$80
01110 STA DBYT
01120 LDA #0
01130 STA DUBUSE
01140 STA DBYT+1
01150 LDA PRGADR
01160 STA DBUF
01170 LDA PRGADR+1
01180 STA DBUF+1
01190 ;
01200 LDA FIRSEC
01210 STA DAUX
01220 LDA FIRSEC+1
01230 STA DAUX+1
01240 ;
01250 SIOJMP LDA #$40
01260 STA DSTAT
01270 JSR SIOV
01280 ;
01290 INCADR LDA DBUF
01300 CLC
01310 ADC #$80
01320 STA DBUF
01330 BCC INCSEC
01340 INC DBUF+1
01350 INCSEC
01360 INC DAUX
01370 LDA DAUX
01380 BNE DECTXT
01390 INC DAUX+1
01400 ;
01410 DECTXT
01420 DEC CNT+2
01430 LDA CNT+2
01440 CMP #$0F
01450 BNE .1
01460 LDA #$19
01470 STA CNT+2
01480 DEC CNT+1
01490 .1
01500 LDA CNT+1
01510 CMP #$0F
01520 BNE .2
01530 LDA #$19
01540 STA CNT+1
01550 DEC CNT
01560 .2
01570 NOP
01580 DECCNT
01590 DEC CNTSEC
01600 LDA CNTSEC
01610 BNE NEWSEC
01620 DEC CNTSEC+1
01630 NEWSEC
01640 LDA CNTSEC+1
01650 BPL SIOJMP
01660 ;
01670 LDA PRGJMP+1
01680 PHA
01690 LDA PRGJMP
01700 PHA
01710 RTS
01720 ------------------------------
}}}