00000000: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 2A |--------------.*|
00000030: A0 67 6F 74 6F 78 79 A0 52 4F 55 54 49 4E 45 A0 |.gotoxy.ROUTINE.|
00000040: 54 48 41 54 A0 57 49 4C 4C A0 57 4F 52 4B A0 57 |THAT.WILL.WORK.W|
00000050: 49 54 48 A0 38 30 A0 43 4F 4C 55 4D 4E 0D 2A A0 |ITH.80.COLUMN.*.|
00000060: 43 41 52 54 52 49 44 47 45 A0 41 53 A0 57 45 4C |CARTRIDGE.AS.WEL|
00000070: 4C A0 41 53 A0 57 49 54 48 A0 54 48 45 A0 34 30 |L.AS.WITH.THE.40|
00000080: 2D 43 4F 4C 55 4D 4E 0D 2A A0 53 43 52 45 45 4E |-COLUMN.*.SCREEN|
00000090: 2E A0 A0 65 4E 54 45 52 A0 57 49 54 48 A0 28 78 |...eNTER.WITH.(x|
000000A0: 2C 79 29 3D 28 56 45 52 54 2C 48 4F 52 49 5A 29 |,y)=(VERT,HORIZ)|
000000B0: 2E 0D 2A A0 6C 45 41 56 45 53 A0 61 3D 24 31 64 |..*.lEAVES.a=$1d|
000000C0: 2C A0 78 3D 30 2C A0 79 3D 24 66 66 A0 4F 4E A0 |,.x=0,.y=$ff.ON.|
000000D0: 45 58 49 54 2E 0D 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D |EXIT..*---------|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000100: 2D 2D 2D 2D 0D 0D 67 6F 74 6F 78 79 20 6C 64 61 |----..gotoxy lda|
00000110: 20 23 31 39 20 3B 68 4F 4D 45 A0 43 55 52 53 4F | #19 ;hOME.CURSO|
00000120: 52 0D 76 6F 20 6A 73 72 20 63 68 72 6F 75 74 0D |R.vo jsr chrout.|
00000130: 20 6C 64 61 20 23 31 37 20 3B 63 55 52 53 4F 52 | lda #17 ;cURSOR|
00000140: A0 44 4F 57 4E 0D 20 64 65 78 0D 20 62 70 6C 20 |.DOWN. dex. bpl |
00000150: 76 6F 0D 20 69 6E 78 0D 20 6C 64 61 20 23 32 39 |vo. inx. lda #29|
00000160: 20 3B 63 55 52 53 4F 52 A0 52 49 47 48 54 0D 20 | ;cURSOR.RIGHT. |
00000170: 64 65 79 0D 20 62 70 6C 20 76 6F 0D 20 72 74 73 |dey. bpl vo. rts|
00000180: 0D |. |
*---------------------------------------
------.* GOTOXY ROUTINE THAT WILL WORK W
ITH 80 COLUMN.* CARTRIDGE AS WELL AS WIT
H THE 40-COLUMN.* SCREEN. ENTER WITH (X
,Y)=(VERT,HORIZ)..* LEAVES A=$1D, X=0, Y
=$FF ON EXIT..*-------------------------
--------------------..GOTOXY LDA #19 ;HO
ME CURSOR.VO JSR CHROUT. LDA #17 ;CURSOR
DOWN. DEX. BPL VO. INX. LDA #29 ;CURSOR
RIGHT. DEY. BPL VO. RTS.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL