Light pen driver - Revision history

Polluks: label incomplete

2025-08-21T07:30:32Z

label incomplete

Arnoldemu at 08:21, 19 July 2025

2025-07-19T08:21:21Z

Show changes

Arnoldemu at 06:52, 18 July 2025

2025-07-18T06:52:11Z

Cormacj: fix code style

2025-07-18T02:09:01Z

fix code style

Cormacj: Updated to reflect the areas that were data stores and not code

2025-07-18T02:03:38Z

Updated to reflect the areas that were data stores and not code

Polluks: less NOPs again

2025-07-17T09:38:50Z

less NOPs again

Arnoldemu at 07:29, 16 July 2025

2025-07-16T07:29:09Z

Arnoldemu at 17:15, 14 July 2025

2025-07-14T17:15:50Z

Arnoldemu at 17:14, 14 July 2025

2025-07-14T17:14:16Z

Arnoldemu at 17:02, 14 July 2025

2025-07-14T17:02:50Z

@@ Line 122: / Line 122: @@
          ret
-sub_9ce4:
+sub_9ce4h:
          ld a,000h
          ld bc,01a1ah

@@ Line 483: / Line 483: @@
          ld de,00000h
          ld hl,00000h
-         ld (0a12dh),de
+         ld (data_a12d),de
 sub_a050h:
          ld a,000h
-         ld (0a12ch),a ;; accumulated pixels.
+         ld (data_a12c),a ;; accumulated pixels.
-         ld de,(0a12dh)
+         ld de,(data_a12d)
          call sub_a10dh ;; store current graphics position
@@ Line 522: / Line 522: @@
          call 0bd2bh ;; mc print char
-         ld a,(0a12ch) ;; pixel data
+         ld a,(data_a12c) ;; pixel data
          call 0bd2bh ;; mc print char
          jr la0f9h
@@ Line 529: / Line 529: @@
          call 0bd2bh ;; mc print char
 la0f9h:
-         ld a,(0a12ch) ;; pixel data
+         ld a,(data_a12c) ;; pixel data
          call 0bd2bh ;; mc print char
@@ Line 548: / Line 548: @@
          call 0bb1eh ;; km test key
          ret nz
-         ld hl,(0a12dh)
+         ld hl,(data_a12d)
          ld de,0000eh
          add hl,de
-         ld (0a12dh),hl
+         ld (data_a12d),hl
          ld hl,00000h
          call sub_a10dh
-         ld de,(0a12dh)
+         ld de,(data_a12d)
          ld a,d
          cp 002h
@@ Line 576: / Line 576: @@
          ;; pixel is set to foreground. accumulate it into the pixel data so far
-         ld hl,(0a12ch)
+         ld hl,(data_a12c)
          add hl,de
-         ld (0a12ch),hl
+         ld (data_a12c),hl
          ret
 sub_a10dh:
-         ld (0a12fh),hl
+         ld (data_a12f),hl
-         ld (0a131h),de
+         ld (data_a131),de
          ret
 sub_a115h:
-         ld hl,(0a12fh)
+         ld hl,(data_a12f)
-         ld de,(0a131h)
+         ld de,(data_a131)
          ret
@@ Line 599: / Line 599: @@
          call 0bbf0h ;; gra test absolute
          ret
+data_a12c:
-         db 00h,84h,02h,00h,00h,0eh,00h,00h,00h
+         db 00h
          db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
@@ Line 625: / Line 631: @@
 la1b7h:
          call 0bb99h ;; txt get paper
-         ld (0a1f9h),a
+         ld (pen_cmp+1),a
          ld bc,00000h
          ld (data_a24c),bc
          ld (data_a24e),bc
          call sub_a210
          ld a,02fh  ;; 47 - space
          call 0bb1eh ;; km test key
@@ Line 644: / Line 651: @@
          ld bc,05398h
          add hl,bc
-         ld (0a1aah),hl
+         ld (buffer_addr3+2),hl ;; +2 to skip ED,53
          ld de,(055e0h)
          ld hl,(data_a24e)
@@ Line 650: / Line 658: @@
          ld bc,057e4h
          add hl,bc
-         ld (0a1b7h),hl
+         ld (buffer_addr4+1),hl ;; +1 to skip 22
          ld hl,(05a2ch)
-la1f9h:
+         ld (data_a257),hl
-         ld (la257h),hl
          ld (data_a255),de
          ld bc,00000h
@@ Line 681: / Line 689: @@
          ret z
          jp la18bh
 sub_a1efh:
          push de
@@ Line 689: / Line 698: @@
          pop hl
          pop de
          cp 000h
          jr nz,la248h
          ld (data_a250),hl
-         ld (data_a250+2),de
+         ld (data_a252),de
          push bc
          call sub_0a210h
@@ Line 702: / Line 712: @@
 sub_a210:
          ld hl,(data_a250)
-         ld de,(data_a250+2)
+         ld de,(data_a252)
          call 0bbeah ;; gra plot absolute
          ld hl,(data_a24c)
@@ Line 715: / Line 725: @@
          ld bc,05398h
          add hl,bc
-         ld de,(data_a250+2)
+         ld de,(data_a252)
-         ld (0a237h),hl
+         ld (buffer_addr1+2),hl ;; +2 to skip ED, 53
          ld (05648h),de
          ld hl,(data_a24c)
@@ Line 722: / Line 733: @@
          add hl,bc
          ld de,(data_a250)
-         ld (0a249),hl
+         ld (buffer_addr+2),hl ;; +2 to skip ED, 53
          ld (05a94h),de
          ret

@@ Line 725: / Line 725: @@
          ld (05a94h),de
          ret
 ;;Data area
 data_a24c:
-    defw 02b0h
+        defw 02b0h
 data_a24e:
-    defw 0248h
+        defw 0248h
 data_a250:
-    defw 0beh
+        defw 0beh
 data_a252:
-    defw 0120h
+        defw 0120h
 data_a254:
-    defb 04h
+        defb 04h
 data_a255:
-    defw 0120h
+        defw 0120h
 data_a257:
-    defw 0bch
+        defw 0bch
          end

@@ Line 619: / Line 619: @@
          ld a,b
 la1aah:
-         ld (0a254h),a
+         ld (data_a254),a
          call 0bbc6h ;; gra ask cursor
-         ld (0a250h),hl
+         ld (data_a250),hl
-         ld (0a250h+2),de
+         ld (data_a250+2),de
 la1b7h:
          call 0bb99h ;; txt get paper
          ld (0a1f9h),a
          ld bc,00000h
-         ld (0a24ch),bc
+         ld (data_a24c),bc
-         ld (0a24eh),bc
+         ld (data_a24e),bc
          call sub_a210
          ld a,02fh  ;; 47 - space
          call 0bb1eh ;; km test key
          ret nz
-         ld hl,(0a24eh)
+         ld hl,(data_a24e)
          inc hl
          inc hl
@@ Line 641: / Line 641: @@
          ld hl,00000h
 la1deh:
-         ld (0a24eh),hl
+         ld (data_a24e),hl
          ld bc,05398h
          add hl,bc
          ld (0a1aah),hl
          ld de,(055e0h)
-         ld hl,(0a24eh)
+         ld hl,(data_a24e)
 sub_a1efh:
          ld bc,057e4h
@@ Line 654: / Line 654: @@
 la1f9h:
          ld (la257h),hl
-         ld (0a255h),de
+         ld (data_a255),de
          ld bc,00000h
-         ld a,(0a254h)
+         ld a,(data_a254)
          ld c,a
          ex de,hl
@@ Line 673: / Line 673: @@
          dec hl
          call sub_a1efh
-         ld hl,(0a24eh)
+         ld hl,(data_a24e)
-         ld de,(0a24ch)
+         ld de,(data_a24c)
          inc hl
          inc hl
@@ Line 691: / Line 691: @@
          cp 000h
          jr nz,la248h
-         ld (0a250h),hl
+         ld (data_a250),hl
-         ld (0a250h+2),de
+         ld (data_a250+2),de
          push bc
          call sub_0a210h
          pop bc
 la248h:
-         ld hl,(0a257h)
+         ld hl,(data_a257)
-         ld de,(0a255h)
+         ld de,(data_a255)
          ret
 sub_a210:
-         ld hl,(0a250h)
+         ld hl,(data_a250)
-         ld de,(0a250h+2)
+         ld de,(data_a250+2)
          call 0bbeah ;; gra plot absolute
-         ld hl,(0a24ch)
+         ld hl,(data_a24c)
          inc hl
          inc hl
@@ Line 712: / Line 712: @@
          ld hl,00000h
 la267h:
-         ld (0a24ch),hl
+         ld (data_a24c),hl
          ld bc,05398h
          add hl,bc
-         ld de,(0a250h+2)
+         ld de,(data_a250+2)
          ld (0a237h),hl
          ld (05648h),de
-         ld hl,(0a24ch)
+         ld hl,(data_a24c)
          ld bc,057e4h
          add hl,bc
-         ld de,(0a250h)
+         ld de,(data_a250)
          ld (0a249),hl
          ld (05a94h),de
          ret
-la24ch:
+;;Data area
-        or b
+data_a24c:
-        ld (bc),a
+    defw 02b0h
-        ld c,b
+data_a24e:
-        ld (bc),a
+    defw 0248h
-        cp (hl)
+data_a250:
-        nop
+    defw 0beh
-        jr nz,la295h
+data_a252:
-        inc b
+    defw 0120h
-        jr nz,$+3
+data_a254:
-        cp h
+    defb 04h
          end

@@ Line 456: / Line 456: @@
          call 0bbc3h ;; gra move relative
          jp l9f0eh
          db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
          db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
@@ Line 599: / Line 600: @@
          ret
-la10ch:
+         db 00h,84h,02h,00h,00h,0eh,00h,00h,00h
-         nop
+         db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
-        add a,h
-        ld (bc),a
-         nop
-        nop
-        ld c,000h
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
-        nop
 sub_a154h:
          call 0bc11h ;; scr get mode

@@ Line 63: / Line 63: @@
          ret
 sub_9c94:
          ld a,h
@@ Line 84: / Line 85: @@
          ret
 sub_9caeh:
          ld a,l
@@ Line 109: / Line 111: @@
          ;; detected.
          ld de,00002h
-         call sub_9c94h
+         call sub_9c94h ;; HL = HL/DE
          ld de,00064h
-         call sub_9caeh
+         call sub_9caeh ;; HL = HL*DE
          ld de,00084h
-         call sub_9c94h
+         call sub_9c94h ;; HL = HL/DE
          ex de,hl
          ld hl,0018fh
@@ Line 296: / Line 298: @@
          push de
          ld de,00002h
-         call sub_9c94h
+         call sub_9c94h ;; HL = HL/DE
          pop de
          push hl
          ex de,hl
          ld de,(0a416h)
-         call sub_9c94h
+         call sub_9c94h ;; HL = HL/DE
          ex de,hl
          pop hl

← Older revision		Revision as of 17:15, 14 July 2025
Line 1:		Line 1:
	<pre>		<pre>
		+	;; Dissassembled and commented from MCPEN.BIN
		+
	org 09c40h		org 09c40h

@@ Line 199: / Line 199: @@
          ld a,0ffh
          cp h
-         jr nz,l9ddah
+         jr nz,sub_9d9ah
          ld de,00000h
          ld hl,00014h
@@ Line 211: / Line 211: @@
          ld (0a410h),hl
          ret
-l9ddah:
+sub_9d9ah:
          pop bc
          ld (0a410h),hl
@@ Line 330: / Line 330: @@
          call sub_09dbeh
          call 0bbc0h ;; gra move absolute
          call sub_09ed2h
          call sub_09de6h
@@ Line 339: / Line 340: @@
          call 0bb1eh ;; km test key
          ret z
-         jp l9e52h
+         jp sub_9e52h
 l9ea9h:
@@ Line 372: / Line 373: @@
          cp h
          ret nz
          pop de
          ret
+sub_9eb7h:
          ld hl,(0a41ah)
          ld de,(0a412h)
          and a
          sbc hl,de
          ret z
-         jp p,09ecbh
+         jp p,l9ecbh
          ld hl,l9f15h
-         jp 09eceh
+         jp l09eceh
-         ld hl,09ed2h
-l9f0eh:
+l9ecbh:
          ld (l9e52h+1),hl
          ret
+sub_9ed2h:
          call sub_9e98h
-l9f15h:
          ld de,0ffech
          ld hl,00000h
          call 0bbc3h ;; gra move relative
          ld bc,(0a420h)
          push bc
          ld de,00000h
@@ Line 406: / Line 407: @@
          ld a,0ffh
          cp h
-         jp nz,l9efeh
+         jp nz,sub_9efeh
          ld hl,(0a422h)
          ld (0a410h),hl
-         jp l9d9ah
+         jp sub_9d9ah
          ld (0a422h),hl
          ld de,(0a416h)
@@ Line 419: / Line 423: @@
          ld (0a410h),hl
          ret
          call sub_9e98h
          ld bc,(0a420h)
@@ Line 429: / Line 435: @@
          ld a,0ffh
          cp h
-         jp z,l9ef5h
+         jp z,sub_9ef5h
          ld (0a422h),hl
          ld de,(0a416h)

@@ Line 13: / Line 13: @@
          or 0c0h   ;; AY control select register.
          out (c),a
-         out (c),a ;; BUG. This should set AY control to 0 to also be compatible with Plus.
+         out (c),a ;; BUG. Should be out (c),c to be compatible with Plus.
          inc b
          ld a,092h
          out (c),a
          push bc
-         ld bc,0f649h ;; AY read from register and select keyboard line 9 (joystick)
+         ld bc,0f649h ;; AY control read from register and select keyboard line 9 (joystick)
          out (c),c
          out (c),c ;; BUG? No need to do this twice.
@@ Line 46: / Line 46: @@
          ld (0a410h),hl ;; detected 'position' or 'ffff' for not detected
          pop bc
          ld a,082h
          out (c),a
          dec b
-         out (c),c
+         out (c),c ;; Set AY control inactive.
          ei
          ret
@@ Line 65: / Line 64: @@
          ld a,h
          ld c,l
-         ld b,010h
+         ld b,010h ;; 16 bits.
          ld hl,00000h
 l9cdbh:
@@ Line 86: / Line 85: @@
          ld a,l
          ld c,h
-         ld b,010h
+         ld b,010h ;; 16 bits
          ld hl,00000h
 l9cf5h: