This page (revision-26) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg 

This page was created on 28-Jan-2015 20:03 by Roland B. Wassenberg

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
26 03-Feb-2023 15:21 12 KB Roland B. Wassenberg to previous
25 26-Apr-2020 11:49 12 KB Roland B. Wassenberg to previous | to last
24 26-Apr-2020 10:53 12 KB Roland B. Wassenberg to previous | to last
23 26-Apr-2020 10:49 12 KB Roland B. Wassenberg to previous | to last
22 26-Apr-2020 10:47 12 KB Roland B. Wassenberg to previous | to last
21 26-Apr-2020 10:36 11 KB Roland B. Wassenberg to previous | to last

Page References

Incoming links Outgoing links
Bug65
Bug65

Version management

Difference between version and

At line 20 changed one line
Please take into account, that in the manuals above version 1.1 is mentioned, while just version 2.0 above is available up to now. If you own version 1.1, please let us know. We can make you an offer, you can't resist. ;-)
Please take into account, that in the manuals above version 1.1 is mentioned, while just version 2.0 is available up to now. If you own version 1.1, please let us know. We can make you an offer, you can't resist. ;-)
At line 23 changed 3 lines
* [BUG-65 User Command Handler Example 1.txt] ; example from the BUG/65 manual version 2.0 pages 47-48 with line numbers
* [BUG-65 User Command Handler Example 2.txt] ; example from the BUG/65 manual version 2.0 pages 47-48 without line numbers
\\
{{{
;**************************************************
; EQUATES INTO BUG/65:
;
LOADPOINT = ???? ; to be determined by user!!
LP = LOADPOINT ; just an abbreviation
MCBEND = LP+$021F ; BUG/65 END CODE MSB
DISPV = LP+$0209 ; DISPLAY CHAR
USRCMD = LP+$0220 ; USER COMMAND VECTOR
GET2HX = LP+$022C ; GET 2 HEX PARAMS
HEXL = $FC ; HEX PARAM 1 RESULT
HEX2 = $FE ; HEX PARAM 2 RESULT
ERRPAR = LP+$0235 ; REPORT PARAM ERROR
DHXBYT = LP+$0238 ; DISPLAY HEX BYTE
LSTPG0 = LP+$0240 ; LAST BUG/65 P0 BYTE USED
EOL = $9B ; END OF LINE CHAR
;
;**************************************************
*= USRCMD ; PATCH US INTO BUG/65
JMP USERC1
;
*= LP+$2000 ; RIGHT AFTER BUG/65 CODE
USERC1 CMP #'1 ; COMMAND "1" ?
BEQ CMDOK ; YES
RTS ; ELSE RTN EQUAL RESET - ERR
;
CMDOK JSR GET2HX ; GET START, END
LDA HEX1 ; MAKE SURE BOTH SPECIFIED
ORA HEX1+1
BEQ PARMER ; OR ELSE ERROR
LDA HEX2
ORA HEX2+1
BNE PARMOK
;
PARMER JMP ERRPAR ; REPORT PARAM ERROR
;
PARMOK LDX LSTPG0 ; LAST BUG/65 P0 BYTE
; (WE'LL USE THE NEXT
; FOR OUR ACCUMULATOR)
LDA #0 ; CLEAR ACCUMULATOR
STA 1,X
TAY ; INIT Y PTR INDEX
;
LOOP LDA HEX2+1 ; PAST END ADDRESS ?
CMP HEX1+1
BCC DONE ; YES
BNE NXTEOR ; NO
LDA HEX2
CMP HEX1
BCC DONE ; YES
;
NXTEOR LDA (HEX1),Y ; CALC EOR CHKSUM
EOR 1,X ; EOR WITH ACCUM
STA 1,X ; AND SAVE IN ACCUM
INC HEX1 ; BUMP PTR
BNE LOOP
INC HEX1+1
JMP LOOP
;
DONE LDA #EOL ; TO NEXT SCREEN LINE
JSR DISPV
LDX LSTPG0 ; RESTORE ACCUM ADDRESS
LDA 1,X ; DISPLAY HEX RESULT
JSR DHXBYT
LDA #0 ; RTN OK (EQUAL SET)
RTS
;
*= MCBEND ; CHANGE BUG/65 CODE
.BYTE >[*+$FF] ; END BYTE TO INCLUDE
.END ; THAT'S ALL FOLKS
}}}
At line 29 changed one line
Patch:\\
Patch (thank you ep for the solution!):\\
At line 35 removed one line
=>
At line 37 changed one line
=>
At line 47 changed one line
BUGV4FIX.COM ; We are still searching for that file, it seems to be lost. Any help, any hint in that case is very much appreciated. :-)
! BUGV4FIX.COM ; We are still searching for that file, it seems to be lost. Any help, any hint in that case is very much appreciated. :-)
This page (revision-26) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg  Top