-
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
...
cp ')' ; closing parenthesis?
jr nz, sa_v_old ; error if not
cp tk_screen_str ; SCREEN$ token?
jr nz, sa_code ; jump if not
or h ; zero
jr nz, ld_cont_1 ; jump unless loading undeclared ... -
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... /> and %11000000 ; test it
jr nz, me_var_lp ; jump when all lines ... ; accept all variable types
jr nz, me_var_l1 ; except long name variables ... /> cp (hl) ; compare characters
jr nz, me_old_v4 ; jump if no match ... -
SCREEN$ bug fixI've been using the SCREEN$() function recently for reading data off the screen rather than taking up space with an array and I got fed up with the s…
... cp $20
jr nz,NoSpace
ld a ... /> cp $80
jr c,ScrDone
cp ... $88
jr nc,ScrDone
ex ... :cp $80
jr nz,DoSpace
ld a ... -
Issue 3 board with strange piggy-back boardIn case you are interested. I?ve never seen something like this before. I have an Issue 3 board here. When I opened the case and found a strange pig…
...
CP (HL) ; 0265
JR NZ, a289 ; 0266
OUT (127 ... /> LD (HL), D ; 0281
JR Z, a289 ; 0282
CPI ... -
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... and a ; integer?
jr nz, pf_large ; jump if not
jr nz, pf_save ; jump if not
jr nz, pf_bytes ; loop until mem- ... inc c ; zero?
jr nz, pf_test_2 ; jump if so
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... /> exx ; main register set
jr nz, report_6 ; jump if overflow
exx ; main register set
jr nz, norml_now ; jump if already normalized ... add_back ; else add back
jr nz, oflow_clr ; jump if no overflow ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... c ; restore sign
jr nz, x80_fadd_2 ; jump if not zero ... ; test for negative
jr nz, t_numeric ; jump if so< ... a ; for zero
jr nz, rs_nrmlze ; jump if not
jr nz, hex_to_dec ; jump if so ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... '(' ; opening parenthesis?
jr nz, s_rport_c ; error if not< ... ; for inverse
jr nz, s_scr_nxt ; jump with match ... cp '"' ; quote?
jr nz, s_q_copy ; jump if not ... ; checking syntax?
jr nz, s_stk_dec ; jump if not ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... '(' ; opening parenthesis?
jr nz, s_opertr ; jump if not
jr nz, s_stk_lst ; jump if not ... + _flags) ; numeric?
jr nz, s_next ; jump if so
jr nz, s_not_and ; jump if not ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... br /> cp '(' ; opening parenthesis?
jr nz, report_3 ; error if not
cp ')' ; closing parenthesis?
jr nz, sv_rpt_c ; jump if not
cp ')' ; closing parenthesis?
jr nz, sl_rpt_c ; jump if not
