Light pen driver - Revision history

Polluks: label incomplete

2025-08-21T07:30:32Z

label incomplete

← Older revision		Revision as of 07:30, 21 August 2025
Line 122:		Line 122:
	ret		ret

	~~sub_9ce4~~:		sub_9ce4h:
	ld a,000h		ld a,000h
	ld bc,01a1ah		ld bc,01a1ah

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

Show changes

Cormacj: fix code style

2025-07-18T02:09:01Z

fix code style

← Older revision		Revision as of 02:09, 18 July 2025
Line 725:		Line 725:
	ld (05a94h),de		ld (05a94h),de
	ret		ret

	;;Data area		;;Data area
	data_a24c:		data_a24c:
	defw 02b0h		defw 02b0h
	data_a24e:		data_a24e:
	defw 0248h		defw 0248h
	data_a250:		data_a250:
	defw 0beh		defw 0beh
	data_a252:		data_a252:
	defw 0120h		defw 0120h
	data_a254:		data_a254:
	defb 04h		defb 04h
	data_a255:		data_a255:
	defw 0120h		defw 0120h
	data_a257:		data_a257:
	defw 0bch		defw 0bch

	end		end

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

← Older revision		Revision as of 02:03, 18 July 2025
Line 619:		Line 619:
	ld a,b		ld a,b
	la1aah:		la1aah:
	ld (~~0a254h~~),a		ld (data_a254),a
	call 0bbc6h ;; gra ask cursor		call 0bbc6h ;; gra ask cursor
	ld (~~0a250h~~),hl		ld (data_a250),hl
	ld (~~0a250h~~+2),de		ld (data_a250+2),de
	la1b7h:		la1b7h:
	call 0bb99h ;; txt get paper		call 0bb99h ;; txt get paper
	ld (0a1f9h),a		ld (0a1f9h),a
	ld bc,00000h		ld bc,00000h
	ld (~~0a24ch~~),bc		ld (data_a24c),bc
	ld (~~0a24eh~~),bc		ld (data_a24e),bc
	call sub_a210		call sub_a210
	ld a,02fh ;; 47 - space		ld a,02fh ;; 47 - space
	call 0bb1eh ;; km test key		call 0bb1eh ;; km test key
	ret nz		ret nz
	ld hl,(~~0a24eh~~)		ld hl,(data_a24e)
	inc hl		inc hl
	inc hl		inc hl
Line 641:		Line 641:
	ld hl,00000h		ld hl,00000h
	la1deh:		la1deh:
	ld (~~0a24eh~~),hl		ld (data_a24e),hl
	ld bc,05398h		ld bc,05398h
	add hl,bc		add hl,bc
	ld (0a1aah),hl		ld (0a1aah),hl
	ld de,(055e0h)		ld de,(055e0h)
	ld hl,(~~0a24eh~~)		ld hl,(data_a24e)
	sub_a1efh:		sub_a1efh:
	ld bc,057e4h		ld bc,057e4h
Line 654:		Line 654:
	la1f9h:		la1f9h:
	ld (la257h),hl		ld (la257h),hl
	ld (~~0a255h~~),de		ld (data_a255),de
	ld bc,00000h		ld bc,00000h
	ld a,(~~0a254h~~)		ld a,(data_a254)
	ld c,a		ld c,a
	ex de,hl		ex de,hl
Line 673:		Line 673:
	dec hl		dec hl
	call sub_a1efh		call sub_a1efh
	ld hl,(~~0a24eh~~)		ld hl,(data_a24e)
	ld de,(~~0a24ch~~)		ld de,(data_a24c)
	inc hl		inc hl
	inc hl		inc hl
Line 691:		Line 691:
	cp 000h		cp 000h
	jr nz,la248h		jr nz,la248h
	ld (~~0a250h~~),hl		ld (data_a250),hl
	ld (~~0a250h~~+2),de		ld (data_a250+2),de
	push bc		push bc
	call sub_0a210h		call sub_0a210h
	pop bc		pop bc
	la248h:		la248h:
	ld hl,(~~0a257h~~)		ld hl,(data_a257)
	ld de,(~~0a255h~~)		ld de,(data_a255)
	ret		ret
	sub_a210:		sub_a210:
	ld hl,(~~0a250h~~)		ld hl,(data_a250)
	ld de,(~~0a250h~~+2)		ld de,(data_a250+2)
	call 0bbeah ;; gra plot absolute		call 0bbeah ;; gra plot absolute
	ld hl,(~~0a24ch~~)		ld hl,(data_a24c)
	inc hl		inc hl
	inc hl		inc hl
Line 712:		Line 712:
	ld hl,00000h		ld hl,00000h
	la267h:		la267h:
	ld (~~0a24ch~~),hl		ld (data_a24c),hl
	ld bc,05398h		ld bc,05398h
	add hl,bc		add hl,bc
	ld de,(~~0a250h~~+2)		ld de,(data_a250+2)
	ld (0a237h),hl		ld (0a237h),hl
	ld (05648h),de		ld (05648h),de
	ld hl,(~~0a24ch~~)		ld hl,(data_a24c)
	ld bc,057e4h		ld bc,057e4h
	add hl,bc		add hl,bc
	ld de,(~~0a250h~~)		ld de,(data_a250)
	ld (0a249),hl		ld (0a249),hl
	ld (05a94h),de		ld (05a94h),de
	ret		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
			data_a255:
			defw 0120h
			data_a257:
			defw 0bch

	end		end

Polluks: less NOPs again

2025-07-17T09:38:50Z

less NOPs again

@@ 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
 sub_a154h:
          call 0bc11h ;; scr get mode

Arnoldemu at 07:29, 16 July 2025

2025-07-16T07:29:09Z

← Older revision		Revision as of 07:29, 16 July 2025
Line 63:		Line 63:
	ret		ret

			;; HL = HL/DE
	sub_9c94:		sub_9c94:
	ld a,h		ld a,h
Line 84:		Line 85:
	ret		ret

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

Arnoldemu at 17:15, 14 July 2025

2025-07-14T17:15:50Z

← 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

Arnoldemu at 17:14, 14 July 2025

2025-07-14T17:14:16Z

← Older revision		Revision as of 17:14, 14 July 2025
Line 199:		Line 199:
	ld a,0ffh		ld a,0ffh
	cp h		cp h
	jr nz,~~l9ddah~~		jr nz,sub_9d9ah
	ld de,00000h		ld de,00000h
	ld hl,00014h		ld hl,00014h
Line 211:		Line 211:
	ld (0a410h),hl		ld (0a410h),hl
	ret		ret
	~~l9ddah~~:		sub_9d9ah:
	pop bc		pop bc
	ld (0a410h),hl		ld (0a410h),hl
Line 330:		Line 330:
	call sub_09dbeh		call sub_09dbeh
	call 0bbc0h ;; gra move absolute		call 0bbc0h ;; gra move absolute
			sub_9e52h:
	call sub_09ed2h		call sub_09ed2h
	call sub_09de6h		call sub_09de6h
Line 339:		Line 340:
	call 0bb1eh ;; km test key		call 0bb1eh ;; km test key
	ret z		ret z
	jp ~~l9e52h~~		jp sub_9e52h

	l9ea9h:		l9ea9h:
Line 372:		Line 373:
	cp h		cp h
	ret nz		ret nz
	~~l9ef5h:~~
	pop de		pop de
	ret		ret

			sub_9eb7h:
	ld hl,(0a41ah)		ld hl,(0a41ah)
	ld de,(0a412h)		ld de,(0a412h)
	~~l9efeh:~~
	and a		and a
	sbc hl,de		sbc hl,de
	ret z		ret z
	jp p,~~09ecbh~~		jp p,l9ecbh

	ld hl,l9f15h		ld hl,l9f15h
	jp ~~09eceh~~		jp l09eceh
	ld hl,~~09ed2h~~
	~~l9f0eh~~:		l9ecbh:
			ld hl,sub_9ed2h
			l9eceh:
	ld (l9e52h+1),hl		ld (l9e52h+1),hl
	ret		ret

			sub_9ed2h:
			call sub_9e98h

	~~call sub_9e98h~~
	~~l9f15h:~~
	ld de,0ffech		ld de,0ffech
	ld hl,00000h		ld hl,00000h
	call 0bbc3h ;; gra move relative		call 0bbc3h ;; gra move relative
	ld bc,(0a420h)		ld bc,(0a420h)
	~~l9f22h:~~
	push bc		push bc
	ld de,00000h		ld de,00000h
Line 406:		Line 407:
	ld a,0ffh		ld a,0ffh
	cp h		cp h
	jp nz,~~l9efeh~~		jp nz,sub_9efeh
			sub_9ef5h:
	ld hl,(0a422h)		ld hl,(0a422h)
	ld (0a410h),hl		ld (0a410h),hl
	jp ~~l9d9ah~~		jp sub_9d9ah

			sub_9efeh:
	ld (0a422h),hl		ld (0a422h),hl
	ld de,(0a416h)		ld de,(0a416h)
Line 419:		Line 423:
	ld (0a410h),hl		ld (0a410h),hl
	ret		ret

			sub_9f82h:
	call sub_9e98h		call sub_9e98h
	ld bc,(0a420h)		ld bc,(0a420h)
Line 429:		Line 435:
	ld a,0ffh		ld a,0ffh
	cp h		cp h
	jp z,~~l9ef5h~~		jp z,sub_9ef5h

	ld (0a422h),hl		ld (0a422h),hl
	ld de,(0a416h)		ld de,(0a416h)

Arnoldemu at 17:02, 14 July 2025

2025-07-14T17:02:50Z

← Older revision		Revision as of 17:02, 14 July 2025
Line 13:		Line 13:
	or 0c0h ;; AY control select register.		or 0c0h ;; AY control select register.
	out (c),a		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		inc b
	ld a,092h		ld a,092h
	out (c),a		out (c),a
	push bc		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
	out (c),c ;; BUG? No need to do this twice.		out (c),c ;; BUG? No need to do this twice.
Line 46:		Line 46:
	ld (0a410h),hl ;; detected 'position' or 'ffff' for not detected		ld (0a410h),hl ;; detected 'position' or 'ffff' for not detected
	pop bc		pop bc
	~~;; BUG: For compatibility with Plus this should set AY control to 0 via Port F6xx.~~
	ld a,082h		ld a,082h
	out (c),a		out (c),a
	dec b		dec b
	out (c),c		out (c),c ;; Set AY control inactive.
	ei		ei
	ret		ret
Line 65:		Line 64:
	ld a,h		ld a,h
	ld c,l		ld c,l
	ld b,010h		ld b,010h ;; 16 bits.
	ld hl,00000h		ld hl,00000h
	l9cdbh:		l9cdbh:
Line 86:		Line 85:
	ld a,l		ld a,l
	ld c,h		ld c,h
	ld b,010h		ld b,010h ;; 16 bits
	ld hl,00000h		ld hl,00000h
	l9cf5h:		l9cf5h: