B0 | B1 | B2 | B3 | 00 | xx | -- | -- | FF | xx | -- | -- | $7015:BEGIN W2 := READW; // COUNTER CASE W2 OF $0000..$0F7F:CODE := 'RU C $'+INTTOHEX($EC00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $4000..$4F7F:CODE := 'SU C $'+INTTOHEX($EC00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $8000..$8F7F:CODE := 'TBN C $'+INTTOHEX($EC00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $C000..$CF7F:CODE := 'TB C $'+INTTOHEX($EC00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); end; end; $7025:BEGIN W2 := READW; // TIMER CASE W2 OF $0000..$0F7F:CODE := 'RU T $'+INTTOHEX($ED00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $4000..$4F7F:CODE := 'SU T $'+INTTOHEX($ED00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $8000..$8F7F:CODE := 'TBN T $'+INTTOHEX($ED00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $C000..$CF7F:CODE := 'TB T $'+INTTOHEX($ED00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); end; end; $7047:BEGIN W2 := READW; CASE W2 OF $0000..$0FFF:CODE := 'RU RI $'+INTTOHEX($E800+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $4000..$4FFF:CODE := 'SU RI $'+INTTOHEX($E800+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $8000..$8FFF:CODE := 'TBN RI $'+INTTOHEX($E800+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $C000..$CFFF:CODE := 'TB RI $'+INTTOHEX($E800+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); end; end; $7057:BEGIN W2 := READW; // RS = SYSTEM DATA AREA EA00 CASE W2 OF $0000..$0FFF:CODE := 'RU RS $'+INTTOHEX($EA00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $4000..$4FFF:CODE := 'SU RS $'+INTTOHEX($EA00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $8000..$8FFF:CODE := 'TBN RS $'+INTTOHEX($EA00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); $C000..$CFFF:CODE := 'TB RS $'+INTTOHEX($EA00+2*(W2 AND $FF),4)+'.'+INTTOSTR(W2 SHR 8 AND $F); end; end; $7200..$72FF:CODE := 'L PB $'+INTTOHEX($F000+(W1 AND $FF),4); $7300..$73FF:CODE := 'T PB $'+INTTOHEX($F000+(W1 AND $FF),4); $7900 :CODE := '+F'; $7A00..$7AFF:CODE := 'L PW $'+INTTOHEX($F000+(W1 AND $FF),4); $7B00..$7BFF:CODE := 'T PW $'+INTTOHEX($F000+(W1 AND $FF),4); $7C00..$7C7F:CODE := 'R Z '+Z3(W1 AND $FF); $8000..$87FF:CODE := 'U M '+Z3(W1 AND $FF)+'.'+IntToStr(W1 shr 8 and 7); $8800..$8FFF:CODE := 'O M '+Z3(W1 AND $FF)+'.'+IntToStr(W1 shr 8 and 7);// if W1 and $80=0 then $9000..$97FF:CODE := 'S M '+Z3(W1 AND $FF)+'.'+IntToStr(W1 shr 8 and 7); $9800..$9FFF:CODE := '= M '+Z3(W1 AND $FF)+'.'+IntToStr(W1 shr 8 and 7); $A000..$A7FF:CODE := 'UN M '+Z3(W1 AND $FF)+'.'+IntToStr(W1 shr 8 and 7); $B000..$B7FF:CODE := 'R M '+Z3(W1 AND $FF)+'.'+IntToStr(W1 shr 8 and 7); $C000..$C7FF:if W1 and $80=0 then CODE := 'U E '+Z3(W1 AND $7F)+'.'+IntToStr(W1 shr 8 and 7) else CODE := 'U A '+Z3(W1 AND $7F)+'.'+IntToStr(W1 shr 8 and 7); $D800..$DFFF:if W1 and $80=0 then CODE := '= E '+Z3(W1 AND $7F)+'.'+IntToStr(W1 shr 8 and 7) else CODE := '= A '+Z3(W1 AND $7F)+'.'+IntToStr(W1 shr 8 and 7);E000..$E7FF:if W1 and $80=0 then CODE := 'UN E '+Z3(W1 AND $7F)+'.'+IntToStr(W1 shr 8 and 7) else CODE := 'UN A '+Z3(W1 AND $7F)+'.'+IntToStr(W1 shr 8 and 7);