push bc
set 6,c
ld a,09h;; keyboard line for joy 0
or c
ld b,0f6h
out (c),a
ld b,0f4h
25d5 ed78 in a,(c)25d7 2f cpl 25d8 328280 ld (8082h),a ;; joy 0
25db f5 push af25dc 3e06 ld a,06h;; keyboard line for joy 125de b1 or c25df 06f6 ld b,0f6h25e1 ed79 out (c),a25e3 06f4 ld b,0f4h25e5 ed78 in a,(c)25e7 2f cpl 25e8 328380 ld (8083h),a ;; joy 125eb d1 pop de25ec b2 or d25ed 328680 ld (8086h),a ld a,03h or c ld b,0f6h out (c),a ld b,0f4h in a,(c) cpl ld (8084h),a ;; pause?
25f0 3e03 ld a,03h25f2 b1 or c25f3 06f6 ld b,0f6h25f5 ed79 out (c),a25f7 06f4 ld b,0f4h25f9 ed78 in a,(c)25fb 2f cpl 25fc 328480 ld (8084h),a ;; pause? 25ff c1 pop bc2600 3e82 ld a,82h2602 ed79 out (c),a2604 05 dec b2605 ed49 out (c),c2607 01b87f ld bc,7fb8h260a ed49 out (c),c
260c 0e00 ld c,00h