!!! Hobbytronic Demo 2004/2005
Unfinished work
[{TableOfContents }]
See discussion in ABBUC Programmers Forum at http://www.abbuc.de/
Demo-Part "Maurer" (File HT1.COM) can be started from HTWORK.ATR with a Gamedos or from HTLoader or from BiboMon or similar.
!! Finished Part: HobbyTronic Loader
{{{
01000 .LI OFF
01010 ************************
01020 ** HOBBY TRONIC LOADER *
01030 ** 2004 BY C. STROTMANN*
01040 ** FROM HT92 LOADER *
01050 ************************
01060 ;
01070 RTCLOK = $12
01080 SOUNDR = $41
01090 ATRACT = $4D
01100 NMIEN = $D40E
01110 IRQEN = $D20E
01120 POKMSK = $10
01130 SCOLOR = $02C4
01140 SDMCTL = $022F
01150 DMACTL = $D400
01160 VDSLST = $200
01170 COLOR = $D016
01180 WSYNC = $D40A
01190 DLIST = $D402
01200 SDLSTL = $0230
01210 CHBASE = $D409
01220 CHBAS = $02F4
01230 PORTB = $D301
01240 DSKIV = $E450
01250 VVBLKI = $0222
01260 VVBLKD = $0224
01270 AUDF1 = $D200
01280 HPOSPL = $D000
01290 SFLNUM = $067D ; FIL#
01300 ;
01310 SYSVBV = $E45F
01320 XITVBV = $E462
01330 ;
01340 DDEVIC = $300
01350 DUNIT = $301
01360 DCMND = $302
01370 DBUF = $304
01380 DBYT = $308
01390 DAUX = $30A
01400 ;
01410 SIOV = $E453
01420 ZMEMPTR = $D0
01430 RUNAD = $02E0
01440 INITAD = $02E2
01450 ;
01460 .OR $0600
01470 ; .OF D:HTLOAD.COM
01480 ;
01490 SECBUF
01500 BOOTHT
01510 .HX 00
01520 NUMSEC .HX 08
01530 BASEADR .HX 0006
01540 INIT .HX A906
01550 ;
01560 JMP START
01570 ------------------------------
01580 DL
01590 .HX 7070707070
01600 .HX 7070707070
01610 .HX 707070F070
01620 .HX 42
01630 .DA TEXT
01640 .HX 70707041
01650 .DA DL
01660 ------------------------------
01670 TEXT
01680 .AT " BOOTBLOCK STILL OK :) "
01690 ------------------------------
01700 COLTAB
01710 .HX C2C2C4C4C6C6C8C8
01720 .HX CACACCCCCCCCCACA
01730 .HX C8C8C6C6C4C4C2C2
01740 SPARE .HX 00
01750 ------------------------------
01760 START
01770 LDA #0
01780 STA RTCLOK+2
01790 STA RTCLOK+1
01800 STA NMIEN ; NMI OFF
01810 STA SCOLOR+1
01820 LDA #DLI
01830 STA VDSLST ; SET DLI
01840 LDA /DLI
01850 STA VDSLST+1
01860 LDA #DL
01870 STA SDLSTL
01880 LDA /DL
01890 STA SDLSTL+1
01900 LDA #$C0
01910 STA NMIEN ; NMI ON
01920 WAIT
01930 LDA RTCLOK+2
01940 CMP #$64
01950 BNE WAIT
01960 JMP DEMOLOAD
01970 ------------------------------
01980 DLI
01990 PHA ;SAV ACCU
02000 TXA
02010 PHA ;SAV X
02020 LDX #0
02030 .1
02040 LDA COLTAB,X
02050 STA WSYNC
02060 STA COLOR+2
02070 STA COLOR+4
02080 INX
02090 CPX #$19
02100 BNE .1
02110 PLA
02120 TAX
02130 PLA
02140 RTI
02150 ------------------------------
02160 MEMPTR .DA $0600
02170 NUMBYT .HX 7F
02180 SECTOR .HX 0000
02190 STARTADR .HX 0000
02200 ENDADR .HX 0000
02210 DEMOCNT .HX 00
02220 DIRBUF
02230 DIRFLG .HX 00
02240 FILELEN .HX 0000
02250 STARTSEC .HX 0000
02260 FILENAME .HX 0000000000000000
02270 .HX 00000000000000
02280 DEMOFLG .HX 00
02290 FILENUM .HX 00
02300 .HX 40 ; ??
02310 ------------------------------
02320 DL2 .HX 7042
02330 .DA TEXT2
02340 .HX 41
02350 .DA DL2
02360 ------------------------------
02370 TEXT2
02380 .AT " HOBBYTRONIC DEMO 2004 LOADING ... "
02390 ------------------------------
02400 READSEC
02410 LDA #$31
02420 STA DDEVIC
02430 LDA #$1
02440 STA DUNIT
02450 LDA #$52 ; READ
02460 STA DCMND
02470 LDA MEMPTR
02480 STA DBUF
02490 LDA MEMPTR+1
02500 STA DBUF+1
02510 LDA NUMBYT
02520 STA DBYT
02530 LDA NUMBYT+1
02540 STA DBYT+1
02550 LDA SECTOR
02560 STA DAUX
02570 LDA SECTOR+1
02580 STA DAUX+1
02590 ;
02600 JSR SIOV
02610 ;
02620 RTS
02630 ------------------------------
02640 SECOFF .HX 00
02650 ;
02660 GETBYTSEC ; GET NEXT BYTE
02670 ; FROM SECTOR
02680 LDY SECOFF
02690 LDA SECBUF,Y
02700 PHA
02710 INC SECOFF
02720 LDA SECOFF
02730 CMP #$7D ; DATA IN SECTOR
02740 BNE .1
02750 LDA #0
02760 STA SECOFF
02770 JSR SECCHAIN
02780 .1
02790 PLA
02800 RTS
02810 ------------------------------
02820 BUF
02830 ------------------------------
02840 .OR $780
02850 DEMOLOAD
02860 JMP INITDL
02870 ------------------------------
02880 GETCOMHEAD
02890 JSR GETBYTSEC
02900 STA STARTADR
02910 JSR GETBYTSEC
02920 STA STARTADR+1
02930 ;
02940 LDA STARTADR
02950 CMP #$FF
02960 BNE .1
02970 LDA STARTADR+1
02980 CMP #$FF
02990 BNE .1
03000 ;
03010 JSR GETBYTSEC
03020 STA STARTADR
03030 JSR GETBYTSEC
03040 STA STARTADR+1
03050 .1
03060 JSR GETBYTSEC
03070 STA ENDADR
03080 JSR GETBYTSEC
03090 STA ENDADR+1
03100 ;
03110 LDA STARTADR
03120 STA ZMEMPTR
03130 LDA STARTADR+1
03140 STA ZMEMPTR+1
03150 LDA RUNAD
03160 BNE .2
03170 LDA RUNAD+1
03180 BNE .2
03190 ;
03200 LDA STARTADR
03210 STA RUNAD
03220 LDA STARTADR+1
03230 STA RUNAD+1
03240 .2
03250 RTS
03260 ------------------------------
03270 SECCHAIN
03280 LDX #$7D
03290 LDA SECBUF,X
03300 AND #3
03310 STA SECTOR+1
03320 INX
03330 LDA SECBUF,X
03340 STA SECTOR
03350 JMP READSEC
03360 ------------------------------
03370 DLIRTI RTI
03380 ------------------------------
03390 MINIDL
03400 .HX 7041
03410 .DA MINIDL
03420 ------------------------------
03430 INITDL
03440 LDA #MINIDL
03450 STA SDLSTL
03460 STA DLIST
03470 LDA /MINIDL
03480 STA SDLSTL+1
03490 STA DLIST+1
03500 ; FRAME BLACK
03510 LDA #0
03520 STA SCOLOR+4
03530 STA COLOR+4
03540 ; IO SOUND ETC
03550 STA SOUNDR
03560 STA ATRACT
03570 STA SDMCTL
03580 STA DMACTL
03590 ; RESET FONT
03600 LDA #$E0
03610 STA CHBASE
03620 STA CHBAS
03630 ;
03640 LDX #5
03650 .1
03660 STA SCOLOR,X
03670 STA COLOR,X
03680 DEX
03690 BPL .1
03700 ;
03710 STA IRQEN
03720 STA NMIEN
03730 STA POKMSK
03740 SEI
03750 LDA PORTB
03760 ORA #3
03770 STA PORTB ; ROM ON
03780 ;
03790 LDA #$40
03800 STA IRQEN
03810 STA POKMSK
03820 CLI
03830 ;
03840 LDA #0
03850 STA SCOLOR+2
03860 STA SCOLOR+4
03870 ;
03880 LDA #$E
03890 STA COLOR+1
03900 STA SCOLOR+1
03910 ;
03920 LDA #SYSVBV
03930 STA VVBLKI
03940 LDA #XITVBV
03950 STA VVBLKD
03960 ;
03970 LDA /SYSVBV
03980 STA VVBLKI+1
03990 STA VVBLKD+1
04000 ;
04010 LDA #DLIRTI
04020 STA VDSLST
04030 LDA /DLIRTI
04040 STA VDSLST+1
04050 ;
04060 LDA #DL2
04070 STA SDLSTL
04080 LDA /DL2
04090 STA SDLSTL+1
04100 ;
04110 NOSOUND
04120 LDX #7
04130 LDA #0
04140 .1
04150 STA AUDF1,X
04160 STA HPOSPL,X
04170 DEX
04180 BPL .1
04190 CLRSTACK
04200 PHA
04210 LDX #0
04220 .1
04230 LDA #0
04240 STA $100,X
04250 INX
04260 BNE .1
04270 ;
04280 LDA #$FF
04290 STA $1FF
04300 .2
04310 PLA
04320 BEQ .2
04330 ;
04340 LDA #$60
04350 STA NMIEN ; VBI OFF
04360 LDA #$22
04370 STA SDMCTL
04380 STA DMACTL ; DMA ON
04390 JSR DSKIV
04400 ;
04410 LDA #0
04420 STA RUNAD
04430 STA RUNAD+1
04440 STA INITAD
04450 STA INITAD+1
04460 STA DEMOFLG
04470 READDIR
04480 LDA #$69
04490 STA SECTOR
04500 LDA #1
04510 STA SECTOR+1
04520 JSR READSEC
04530 LDA DEMOCNT
04540 ASL
04550 ASL
04560 ASL
04570 ASL ; * 16
04580 TAX
04590 LDY #0
04600 .1
04610 LDA SECBUF,X
04620 STA DIRBUF,Y
04630 INX
04640 INY
04650 CPY #$10
04660 BNE .1
04670 ;
04680 LDA STARTSEC
04690 STA SECTOR
04700 LDA STARTSEC+1
04710 STA SECTOR+1
04720 JSR READSEC
04730 ;
04740 LDA #0
04750 STA SECOFF
04760 JSR GETCOMHEAD
04770 LDA SFLNUM
04780 AND #$FC
04790 STA FILENUM
04800 JMP GETSEG
04810 ------------------------------
04820 LOADDEMO
04830 JSR GETCOMHEAD
04840 ;
04850 GETSEG
04860 JSR GETBYTSEC
04870 PHA
04880 LDA SFLNUM
04890 AND #$FC
04900 CMP FILENUM
04910 BEQ .1
04920 PLA
04930 JMP NEXTDEMO
04940 .1
04950 PLA
04960 LDY #0
04970 STA (ZMEMPTR),Y
04980 LDA ZMEMPTR+1
04990 CMP ENDADR+1
05000 BNE .2
05010 LDA ZMEMPTR
05020 CMP ENDADR
05030 BEQ .4
05040 .2
05050 INC ZMEMPTR
05060 BNE .3
05070 INC ZMEMPTR+1
05080 .3
05090 JMP GETSEG
05100 .4
05110 LDA STARTADR+1
05120 CMP #2
05130 BNE DISPATCH
05140 LDA STARTADR
05150 CMP #$E2
05160 BNE DISPATCH
05170 ;
05180 LDA ZMEMPTR
05190 PHA
05200 LDA ZMEMPTR+1
05210 PHA
05220 JSR JINITAD
05230 PLA
05240 STA ZMEMPTR+1
05250 PLA
05260 STA ZMEMPTR
05270 ;
05280 DISPATCH
05290 LDA DEMOFLG
05300 BNE NEXTDEMO
05310 LDA SFLNUM
05320 AND #3
05330 BNE LOADDEMO
05340 LDA SFLNUM+1
05350 BNE LOADDEMO
05360 LDA SECOFF
05370 CMP SFLNUM+2
05380 BCS NEXTDEMO
05390 INC DEMOFLG
05400 JMP LOADDEMO
05410 ------------------------------
05420 NEXTDEMO
05430 INC DEMOCNT
05440 LDA DEMOCNT
05450 CMP #4
05460 BNE .1
05470 LDA #0
05480 STA DEMOCNT
05490 .1
05500 JMP (RUNAD)
05510 ------------------------------
05520 JINITAD
05530 JMP (INITAD)
05540 ------------------------------
}}}
!! Finished Part: Bitmap Depacker for "Maurer Part"
{{{
01000 .LI OFF
01010 ******************************
01020 * *
01030 * PROGRAMM:DEPACK.SRC *
01040 * AUTOR :CARSTEN STROTMANN *
01050 * DATUM :04.02.04 *
01060 * VERSION :2 *
01070 * FUER :HT DEMO 2004 *
01080 * *
01090 ******************************
01100 ;
01110 ; CIO KONTROLLBLOCK
01120 ;
01130 ICHID = $340
01140 ICDNO = $341
01150 ICCOM = $342
01160 ICSTAT = $343
01170 ICBADR = $344
01180 ICPUT = $346
01190 ICBLEN = $348
01200 ICAUX1 = $34A
01210 ICAUX2 = $34B
01220 ;
01230 CIOV = $E456
01240 ;
01250 ; COMMANDS
01260 ;
01270 COPN = 3
01280 CCLOSE = 12
01290 ;
01300 CONSOL = $D01F
01310 RTCLOK = $12
01320 ;
01330 MUSICON = $0701
01340 MUSICOFF = $0708
01350 ;
01360 .OF D:DEPACK.OBJ
01370 .OR $9200
01380 ;
01390 X JMP S
01400 ------------------------------
01410 CLOSE
01420 LDX #6*$10
01430 LDA #CCLOSE
01440 STA ICCOM,X
01450 ;
01460 JSR CIOV
01470 ;
01480 RTS
01490 ------------------------------
01500 OPEN
01510 LDX #6*$10
01520 LDA #COPN
01530 STA ICCOM,X
01540 LDA #FN
01550 STA ICBADR,X
01560 LDA /FN
01570 STA ICBADR+1,X
01580 LDA #$0
01590 STA ICAUX1,X
01600 LDA #8 ; GR 8
01610 STA ICAUX2,X
01620 ;
01630 JSR CIOV
01640 ;
01650 RTS
01660 ------------------------------
01670 FN .DA "S:"
01680 .DA #$9B
01690 ------------------------------
01700 WAIT
01710 LDA #0
01720 STA RTCLOK+1
01730 .1 LDA CONSOL
01740 AND #1
01750 BEQ .2
01760 LDA RTCLOK+1
01770 CMP #7
01780 BNE .1
01790 .2 RTS
01800 ------------------------------
01810 SAVMSC = $58
01820 CODE .HX 00
01830 PICPTR = $F0
01840 BUFPTR = $F2
01850 PICNUM .HX 00
01860 PICSTRT = $F4
01870 PICEND = $F6
01880 ;
01890 DEPACK
01900 LDA #0
01910 STA SDMCTL
01920 LDA SAVMSC
01930 STA PICPTR
01940 LDA SAVMSC+1
01950 STA PICPTR+1
01960 ;
01970 LDY PICNUM
01980 LDA PPCDTA,Y
01990 STA PICSTRT+1
02000 LDA PPCDTA+1,Y
02010 STA PICSTRT
02020 ;
02030 INY
02040 INY
02050 ;
02060 LDA PPCDTA,Y
02070 STA BUFPTR+1
02080 LDA PPCDTA+1,Y
02090 STA BUFPTR
02100 ;
02110 INY
02120 INY
02130 STY PICNUM
02140 ;
02150 LDY #0
02160 LDA (PICSTRT),Y
02170 STA CODE
02180 ;
02190 .1
02200 LDA (BUFPTR),Y
02210 CMP CODE
02220 BNE .2
02230 ;
02240 LDA BUFPTR
02250 SEC
02260 SBC #3
02270 STA BUFPTR
02280 BCS .3
02290 DEC BUFPTR+1
02300 ;
02310 .3
02320 LDY #1
02330 LDA (BUFPTR),Y
02340 TAX
02350 INY
02360 LDA (BUFPTR),Y
02370 PHA
02380 ;
02390 LDY #0
02400 .4
02410 PLA
02420 STA (PICPTR),Y
02430 PHA
02440 LDA PICPTR
02450 CLC
02460 ADC #1
02470 STA PICPTR
02480 BCC .5
02490 INC PICPTR+1
02500 .5
02510 DEX
02520 BNE .4
02530 ;
02540 PLA
02550 SEC
02560 BCS .6 ;IMMER
02570 ;
02580 .2
02590 STA (PICPTR),Y
02600 LDA PICPTR
02610 CLC
02620 ADC #1
02630 STA PICPTR
02640 BCC .7
02650 INC PICPTR+1
02660 ;
02670 .7
02680 LDA BUFPTR
02690 SEC
02700 SBC #1
02710 STA BUFPTR
02720 BCS .8
02730 DEC BUFPTR+1
02740 ;
02750 .6
02760 .8
02770 LDA BUFPTR+1
02780 CMP PICSTRT+1
02790 BNE .1
02800 LDA BUFPTR
02810 CMP PICSTRT
02820 BNE .1
02830 ;
02840 LDA #54
02850 STA SDMCTL
02860 RTS
02870 ------------------------------
02880 SDMCTL = $22F
02890 SCOLOR0 = $2C4
02900 SCOLOR1 = $2C5
02910 SCOLOR2 = $2C6
02920 SCOLOR4 = $2C8
02930 ;
02940 S
02950 JSR CLOSE
02960 JSR OPEN
02970 JSR BL_OFF
02980 JSR MUSICON
02990 LDA #$0F
03000 STA SCOLOR2
03010 LDA #0
03020 STA SCOLOR1
03030 STA PICNUM
03040 .1 JSR DEPACK
03050 JSR BL_ON
03060 ;
03070 JSR WAIT
03080 JSR BL_OFF
03090 LDA PICNUM
03100 CMP #40
03110 BNE .1
03120 JSR MUSICOFF
03130 RTS
03140 ------------------------------
03150 PPCDTA
03160 .HX 3206438D ; START
03170 .HX 43944B45 ; BILD 1
03180 .HX 4B4C544C ; BILD 2
03190 .HX 54535DA9 ; BILD 3
03200 .HX 5DB065E1 ; BILD 4
03210 .HX 65E86F07 ; BILD 5
03220 .HX 6F0E7803 ; BILD 6
03230 .HX 780A80EE ; BILD 7
03240 .HX 80F588C1 ; BILD 8
03250 .HX 88C891CA ; BILD 9
03260 ------------------------------
03270 VCOUNT = $D40B
03280 WSYNC = $D40A
03290 DMACTL = $D400
03300 SDLSTL = $230
03310 COLOR = $D016
03320 VDSLST = $200
03330 ;
03340 ;
03350 ;
03360 C1 .HX 00
03370 C2 .HX 00
03380 ;
03390 BL_ON
03400 LDA #61
03410 STA C1
03420 STA C2
03430 .1 JSR BLEND
03440 INC C2
03450 DEC C1
03460 BNE .1
03470 RTS
03480 BL_OFF
03490 LDA #0
03500 STA C1
03510 LDA #122
03520 STA C2
03530 .1
03540 JSR BLEND
03550 INC C1
03560 DEC C2
03570 LDA C2
03580 CMP #62
03590 BNE .1
03600 RTS
03610 ------------------------------
03620 BLEND
03630 .1
03640 LDA VCOUNT
03650 BNE .1
03660 LDA SCOLOR4
03670 LDY #3
03680 .2
03690 STA COLOR,Y
03700 DEY
03710 BPL .2
03720 ;
03730 LDA C1
03740 .3
03750 CMP VCOUNT
03760 BNE .3
03770 ;
03780 LDY #3
03790 .4
03800 LDA SCOLOR0,Y
03810 STA COLOR,Y
03820 DEY
03830 BPL .4
03840 ;
03850 LDA C2
03860 .5
03870 CMP VCOUNT
03880 BNE .5
03890 ;
03900 LDA SCOLOR4
03910 LDY #3
03920 .6
03930 STA COLOR,Y
03940 DEY
03950 BPL .6
03960 ;
03970 ;
03980 RTS
03990 ------------------------------
04000 INIT
04010 .OR $2E2
04020 .DA S
04030 ------------------------------
}}}
!! Lose Parts: Blend Effect
{{{
00120 VCOUNT = $D40B
00130 WSYNC = $D40A
00140 DMACTL = $D400
00150 SDMCTL = $22F
00160 SCOLOR = $2C4
00170 SDLSTL = $230
00180 COLOR = $D016
00190 VDSLST = $200
00200 ;
00230 ;
00270 ;
00280 C1 .HX 00
00290 C2 .HX 00
00300 ;
00310 BL_ON
00320 LDA #61
00330 STA C1
00340 STA C2
00350 .1 JSR BLEND
00360 INC C2
00370 DEC C1
00380 BNE .1
00390 RTS
00400 BL_OFF
00410 LDA #0
00420 STA C1
00430 LDA #122
00440 STA C2
00450 .1
00460 JSR BLEND
00470 INC C1
00480 DEC C2
00490 LDA C2
00500 CMP #62
00510 BNE .1
00520 RTS
00530 ------------------------------
00540 BLEND
00550 .1
00560 LDA VCOUNT
00570 BNE .1
00580 LDA SCOLOR+4
00590 LDY #3
00600 .2
00620 STA COLOR,Y
00630 DEY
00640 BPL .2
00650 ;
00660 LDA C1
00670 .3
00680 CMP VCOUNT
00690 BNE .3
00700 ;
00710 LDY #3
00720 .4
00730 LDA SCOLOR,Y
00750 STA COLOR,Y
00760 DEY
00770 BPL .4
00780 ;
00790 LDA C2
00800 .5
00810 CMP VCOUNT
00820 BNE .5
00830 ;
00840 LDA SCOLOR+4
00850 LDY #3
00860 .6
00880 STA COLOR,Y
00890 DEY
00900 BPL .6
00910 ;
00920 ;
00930 RTS
00940 ------------------------------
}}}
!! Lose Parts: RolDLI
{{{
00010 .LI OFF
00020 ******************************
00030 * *
00040 * PROGRAMM:FARB/FONT DLI *
00050 * AUTOR :C.STROTMANN *
00060 * DATUM :28.09.91 *
00070 * VERSION :00.01 *
00080 * FUER :RALF T. QUACK *
00090 * *
00100 ******************************
00110 ;
00120 ; OS REGISTER
00130 ;
00140 PRNBUF = $3C0
00150 CASBUF = $400
00160 HCOLOR2 = $D018
00170 CHBAS = $D409
00180 WSYNC = $D40A
00190 NMIEN = $D40E
00200 SETVBV = $E45C
00210 XITVBV = $E462
00211 SYSVBV = $E45F
00220 COLCON = $2DD FARBZAEHLER
00230 VDSLST = $200
00240 ;
00250 ;
00260 ;
00270 .OR $0600
00280 ;
00290 ; .OF D:ROLDLI.COM
00300 ;
00310 ;
00320 START
00330 PLA BASIC !
00340 MSC LDA #$40
00350 STA NMIEN INTERRUPT AUS
00360 LDA #DLI
00370 STA VDSLST
00380 LDA /DLI
00390 STA VDSLST+1
00400 LDA #$C0
00410 STA NMIEN
00420 LDY #VBI
00430 LDX /VBI
00440 LDA #6
00450 JSR SETVBV
00460 RTS => BASIC
00470 ;
00480 ------------------------------
00490 ;
00500 VBI
00510 LDA #0
00520 STA COLCON
00530 JMP SYSVBV
00540 ;
00550 ------------------------------
00560 ;
00570 DLI
00580 PHA
00590 TXA
00600 PHA
00610 LDX COLCON
00620 LDA PRNBUF,X
00630 STA WSYNC
00640 STA HCOLOR2
00650 LDA CASBUF,X
00660 STA CHBAS
00670 INC COLCON
00680 PLA
00690 TAX
00700 PLA
00710 RTI
00720 ;
00730 ------------------------------
00740 ;
}}}
!! Lose Parts: Blend Effect 1
{{{
00010 ******************************
00020 * *
00030 * PROGRAMM:BILDEINBLEND *
00040 * AUTOR :C.STROTMANN *
00050 * DATUM :16.07.89 *
00060 * VERSION :00.01 *
00070 * FUER :GAME LORDS *
00080 * *
00090 ******************************
00100 ;
00110 ; OS REGISTER
00120 ;
00130 SAVMSC = $58 BILDSCHRIMS
00140 RTCLOK = $12 RT-CLOCK
00150 SOURCE = $F5 QUELLVEKTOR
00160 DESTIN = $F7 ZIELVEKTOR
00170 SOURCE2 = $F9 QUELLZAHLER
00180 RANDOM = $D20A ZUFALLSZAHL
00190 ;
00200 ;
00210 .OR $0600
00220 .OF "D:BLEND.COM"
00230 ;
00240 START
00250 PLA BASIC !
00260 PLA SOURCEADR
00270 STA SOURCE+1
00280 PLA
00290 STA SOURCE
00300 LDA #0
00310 STA ZAEHL
00320 LOOP
00330 LDA SOURCE
00340 STA SOURCE2
00350 LDA SOURCE+1
00360 STA SOURCE2+1
00370 LDA SAVMSC
00380 STA DESTIN
00390 LDA SAVMSC+1
00400 STA DESTIN+1
00410 LDY #0
00420 LDX #0
00430 COPY
00440 LDA (SOURCE2),Y
00450 AND RTCLOK+2
00460 ORA (DESTIN),Y
00470 ORA RANDOM
00480 STA (DESTIN),Y
00490 INY
00500 BNE COPY
00510 INC SOURCE2+1
00520 INC DESTIN+1
00530 INX
00540 CPX #30
00550 BNE COPY
00560 INC ZAEHL
00570 LDA ZAEHL
00580 CMP #50
00590 BNE LOOP
00600 RTS
00610 ;
00620 ZAEHL .HX 00
}}}
!! Lose Parts: Blend Effect 2
{{{
00010 .LI OFF
00020 ******************************
00030 * *
00040 * PROGRAMM:BLENDE *
00050 * AUTOR :CARSTEN STROTMANN *
00060 * DATUM :21.09.91 *
00070 * VERSION :0.1 *
00080 * FUER :KSHOW *
00090 * *
00100 ******************************
00110 ;
00120 VCOUNT = $D40B
00130 WSYNC = $D40A
00140 DMACTL = $D400
00150 SDMCTL = $22F
00160 SCOLOR = $2C4
00170 SDLSTL = $230
00180 COLOR = $D016
00190 VDSLST = $200
00200 ;
00210 .OR $0600
00220 ; .OF D:BLFX.COM
00230 ;
00240 S
00250 BLON JMP BL_ON
00260 BLOFF JMP BL_OFF
00270 ;
00280 C1 .HX 00
00290 C2 .HX 00
00300 ;
00310 BL_ON
00320 LDA #61
00330 STA C1
00340 STA C2
00350 .1 JSR BLEND
00360 INC C2
00370 DEC C1
00380 BNE .1
00390 RTS
00400 BL_OFF
00410 LDA #0
00420 STA C1
00430 LDA #122
00440 STA C2
00450 .1
00460 JSR BLEND
00470 INC C1
00480 DEC C2
00490 LDA C2
00500 CMP #62
00510 BNE .1
00520 RTS
00530 ------------------------------
00540 BLEND
00550 .1
00560 LDA VCOUNT
00570 BNE .1
00580 LDA SCOLOR+4
00590 LDY #3
00600 .2
00620 STA COLOR,Y
00630 DEY
00640 BPL .2
00650 ;
00660 LDA C1
00670 .3
00680 CMP VCOUNT
00690 BNE .3
00700 ;
00710 LDY #3
00720 .4
00730 LDA SCOLOR,Y
00750 STA COLOR,Y
00760 DEY
00770 BPL .4
00780 ;
00790 LDA C2
00800 .5
00810 CMP VCOUNT
00820 BNE .5
00830 ;
00840 LDA SCOLOR+4
00850 LDY #3
00860 .6
00880 STA COLOR,Y
00890 DEY
00900 BPL .6
00910 ;
00920 ;
00930 RTS
00940 ------------------------------
00950 .OR $0400
00960 ------------------------------
00970 STARTDL
00980 .HX 807070707070
00990 .HX 707070707070
01000 .HX 7070
01010 .HX 42
01020 TXTADR .DA STARTTXT
01030 .HX 1002
01040 .HX 41
01050 .DA STARTDL
01060 ------------------------------
01070 STARTTXT
01080 .AT " Now loading... "
01090 .AT " PhoeniX SoftCrew Slideshow "
01100 ------------------------------
01110 DLINIT
01120 LDA #STARTDL
01130 STA SDLSTL
01140 LDA /STARTDL
01150 STA SDLSTL+1
01160 LDA #DLI
01170 STA VDSLST
01180 LDA /DLI
01190 STA VDSLST+1
01200 RTS
01210 ------------------------------
01220 DLI
01230 PHA
01240 STA WSYNC
01250 LDA #0
01260 STA COLOR+4
01270 LDA #$10
01280 STA COLOR+2
01290 LDA #15
01300 STA COLOR+1
01310 PLA
01320 RTI
01330 ------------------------------
01340 INIT
01350 .OR $02E2
01360 .DA DLINIT
01370 ------------------------------
}}}
!! Lose Parts: Movie Scoller
{{{
00010 .LI OFF
00020 ***************************
00030 * ABSPANN FUER FILM *
00040 * TEXT AN $7000 *
00050 * X=USR($5000) *
00060 ***************************
00070 ;
00080 ;
00090 ;
00100 VSCROL = $D405
00110 SCREEN = $3000
00120 SVSCROL = $0238
00130 SDLSTL = $230
00140 RTCLOK = $12
00150 SMADR = $F5
00160 MMADR = $F7
00170 CPADR = $F9
00180 ;
00190 ;
00200 .OR $0600
00210 ; .OF "D:SCROL.COM"
00220 JMPIN PLA
00230 JMP START
00240 ;
00250 ;
00260 DL .HX 707070707070
00270 .HX 62
00280 DLADR .DA SCREEN
00290 .HX 222222222222
00300 .HX 222222222222
00310 .HX 222222222202
00320 .HX 41
00330 .DA DL
00340 ;
00350 ;
00360 ;
00370 START LDA #0
00380 STA VSCROL
00390 STA SVSCROL
00400 LDA #DL
00410 STA SDLSTL
00420 LDA /DL
00430 STA SDLSTL+1
00440 LDA #$7000
00450 STA SMADR
00460 LDA /$7000
00470 STA SMADR+1
00480 SCROLL JSR WVSYNC
00490 JSR WVSYNC
00500 INC SVSCROL
00510 LDA SVSCROL
00520 CMP #8
00530 BEQ .2
00540 STA VSCROL
00550 JMP SCROLL
00560 .2
00570 LDA SMADR
00580 CLC
00590 ADC #40
00600 STA SMADR
00610 BCC .3
00620 INC SMADR+1
00630 .3
00640 LDA #0
00650 STA SVSCROL
00660 STA VSCROL
00670 JSR COPY
00680 JMP SCROLL
00690 ;
00700 ------------------------------
00710 ;
00720 WVSYNC LDA RTCLOK+2
00730 .1 CMP RTCLOK+2
00740 BEQ .1
00750 RTS
00760 ;
00770 ; UR COPY
00780 ;
00790 COPY
00800 LDA /SCREEN
00810 STA CPADR+1
00820 LDA #SCREEN
00830 STA CPADR
00840 LDA SMADR
00850 STA MMADR
00860 LDA SMADR+1
00870 STA MMADR+1
00880 LDX #03
00890 .1 LDY #0
00900 .2 LDA (MMADR),Y
00910 STA (CPADR),Y
00920 INY
00930 BNE .2
00940 INC MMADR+1
00950 INC CPADR+1
00960 DEX
00970 BNE .1
00980 RTS
00990 ;
01000 ------------------------------
01010 TEXT
01020 .OR $7000
01030 .BL $3C0,0
01040 .AT "0123456789012345678901234567890123456789"
01050 .AT " Regie "
01070 .AT " "
01080 .AT " Kamera "
01110 .AT " "
01120 .AT " Studiokamera "
01140 .AT " "
01160 .AT " "
01170 .AT " Technische Leitung "
01190 .AT " "
01200 .AT " Technische Unterstuetzung "
01240 .AT " "
01250 .AT " Schnitt "
01270 .AT " "
01280 .AT " Ton "
01300 .AT " "
01310 .AT " Bauten/Buehnenbild "
01330 .AT " "
01340 .AT " Abspanntechnik "
01350 .AT " PhoeniX SoftCrew "
01360 .AT " Multimedia "
01480 .AT " "
01490 .AT " Maske "
01510 .AT " "
01520 .AT " Stunts "
01540 .AT " "
01550 .AT " Wir danken "
01610 .AT " "
01620 .AT " Fortsetzung: "
01630 .AT " "
01640 .BL 960,0
01650 ------------------------------
}}}