Fixed RECTANGLE ... TO

This commit is contained in:
Richard Russell committed 2024-06-18 16:52:27 +01:00
1 parent 7b4e18acc4
commit 5af83df4d5
2 files changed
+1 -2

No files matched your search

Binary file not shown.
+1 -2
View File
@@ -3,7 +3,7 @@
;PATCH FOR BBC BASIC TO CP/M 2.2 & 3.0 ;PATCH FOR BBC BASIC TO CP/M 2.2 & 3.0
;* ACORN COMPUTERS Z80 TUBE VERSION * ;* ACORN COMPUTERS Z80 TUBE VERSION *
;(C) COPYRIGHT R.T.RUSSELL, 02-01-1984 ;(C) COPYRIGHT R.T.RUSSELL, 02-01-1984
;VERSION 5.0, 16-06-2024 ;VERSION 5.0, 18-06-2024
; ;
OSWRCH EQU 0FFEEH OSWRCH EQU 0FFEEH
OSWORD EQU 0FFF1H OSWORD EQU 0FFF1H
@@ -556,7 +556,6 @@ RECTTO: INC IY ; Bump over TO
POP DE ;w POP DE ;w
EX (SP),HL ;HL <- h, (SP) <- newy EX (SP),HL ;HL <- h, (SP) <- newy
PUSH BC PUSH BC
EX DE,HL
LD C,0 LD C,0
CALL VDU25 CALL VDU25
POP DE ;newx POP DE ;newx