Hobbytronic Demo 2004/2005#

Unfinished work

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 ------------------------------

Add new attachment

Only authorized users are allowed to upload new attachments.

List of attachments

Kind Attachment Name Size Version Date Modified Author Change note
atr
HTWRK.atr 133.1 kB 1 20-Dec-2010 19:31 Carsten Strotmann
atr
SCRATCH.atr 92.2 kB 1 20-Dec-2010 19:31 Carsten Strotmann
« This page (revision-1) was last changed on 20-Dec-2010 19:30 by Carsten Strotmann