From: Baltissen, GJPAA (Ruud) (ruud.baltissen_at_abp.nl)
Date: 2004-10-05 11:46:17
Hallo Greg,
> Where did you post it?
On comp.sys.cbm, but as it is just a bit of text:
1100 gosub2200
1110 open1,8,15
1120 open5,9,15
1130 print#1,"i0"
1140 open2,8,2,"#"
1150 open6,9,6,"#"
1200 bt=1 :et=39:ts=28:gosub1500
1210 bt=40:et=53:ts=26:gosub1500
1220 bt=54:et=64:ts=24:gosub1500
1230 bt=65:et=77:ts=22:gosub1500
1240 bt=78:et=116:ts=28:gosub1500
1250 bt=117:et=130:ts=26:gosub1500
1260 bt=131:et=141:ts=24:gosub1500
1270 bt=142:et=154:ts=22:gosub1500
1300 close 1
1310 close 2
1320 close 5
1330 close 6
1340 print "ready !!!":end
1500 poke2,32
1520 for tr=bt to et
1530 print tr,
1540 for se=0 to ts
1550 print ".";
1560 print#1,"u1:"2;0;tr;se
1570 sys 828
1650 sys 831
1660 print#5,"u2:"6;0;tr;se
1670 next se
1680 print
1690 next tr
1700 return
1710 bt=bt+3 : if bt>et then return
1720 goto 1510
2200 for x=828 to 827+61:read n:poke x,n:next
2210 data 76,66,3,76,93,3,162,2,32,198,255,160,0,132,1,132,0,120,32,207,255
2220 data 145,1,88,164,0,200,208,242,32,204,255,96,162,6,32,201,255,160,0
2230 data 132,1,132,0,152,177,1,120,32,210,255,88,164,0,200,208,241,32,204
2240 data 255,96,0
2250 rem xxxx
2260 rem xxxx
2270 rem xxxx
2280 return
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
.eq P_FFC6 = $FFC6
.eq P_FFC9 = $FFC9
.eq P_FFCC = $FFCC
.eq P_FFCF = $FFCF
.eq P_FFD2 = $FFD2
.ba $033C ; Begin adres of this block
S_033C jmp J_0342 ; $0342
S_033F jmp J_0361 ; $0361
J_0342 ldx #$02
jsr P_FFC6 ; $FFC6
ldy #$00
; sty $90
sty $01
B_034B sty $00
sei
jsr P_FFCF ; $034B , $FFCF
sta ($01),Y
cli
; lda $90
; bne B_035D
ldy $00
iny
bne B_034B
B_035D jsr P_FFCC ; $035D , $FFCC
rts
J_0361 ldx #$06
jsr P_FFC9 ; $FFC9
ldy #$00
sty $01
B_036A sty $00
tya
lda ($01),Y
sei
jsr P_FFD2 ; $FFD2
cli
; lda $90
; bne B_037C
ldy $00
iny
bne B_036A
B_037C jsr P_FFCC ; $037C , $FFCC
rts
.en ; End of part to assemble
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comment:
- as you can see, the source and target device are hardcoded. But
anyone with a bit of programming knowledge should be able to work out
a nice user interface.
- I don't check ST/$90 as I thought I had problems with it.
- I store Y in $00 because I thought it was altered by the $FFxx
routines of the CBM. The C64 routine does not store Y in between.
To be able to use it on a CBM:
- TOK64 /toprg xxx.bas
- change the second byte, = $08, into $04. Otherwise the CBM will load
the prg at $0801 instead of $0401.
--
___
/ __|__
/ / |_/ Groetjes, Ruud
\ \__|_\
\___| http://Ruud.C64.org
=====DISCLAIMER=================================================================
De informatie in dit e-mailbericht is vertrouwelijk en uitsluitend bestemd voor de geadresseerde. Wanneer u dit bericht per abuis ontvangt, verzoeken wij u contact op te nemen met de afzender per kerende e-mail. Verder verzoeken wij u in dat geval dit e-mailbericht te vernietigen en de inhoud ervan aan niemand openbaar te maken. Wij aanvaarden geen aansprakelijkheid voor onjuiste, onvolledige dan wel ontijdige overbrenging van de inhoud van een verzonden e-mailbericht, noch voor daarbij overgebrachte virussen.
The information contained in this e-mail is confidential and may be privileged. It may be read, copied and used only by the intended recipient. If you have received it in error, please contact the sender immediately by return e-mail; please delete in this case the e-mail and do not disclose its contents to any person. We don't accept liability for any errors, omissions, delays of receipt or viruses in the contents of this message which arise as a result of e-mail transmission.
Message was sent through the cbm-hackers mailing list
Archive generated by hypermail pre-2.1.8.