please dont rip this site

Parallax Sxkey QBL99V3.BAS

       'Control the SXKEY by QBASIC  M J Mulders dd 04-10-2000  QBL99V3.BAS
L05:  COMPORT = 2: GOSUB L76: 'modify COMPORT if necessarily
L09:  PRINT "<Q>=QUIT <R>=READ <P>=PROGRAM <D>=DEBUG";
L10:  IK$ = INKEY$: IF IK$ = "" THEN FOR ikn = 1 TO 100: NEXT: GOTO L10
      IF IK$ = "Q" THEN STOP
      IF IK$ = "R" THEN GOTO L13
      IF IK$ = "D" THEN CLS : GOSUB L83: GOTO L09
      IF IK$ <> "P" THEN GOTO L10 ELSE PRINT : PRINT "I will program from "; READFILE$;
      INPUT " OK=ENTER or type other filename: ", A$: IF LEN(A$) > 3 THEN READFILE$ = A$
      PRINT "In use: "; READFILE$; "  "; : GOSUB L65: PRINT "Programming start now"
      RESTORE L60: GOSUB L20: PRINT " Ready": GOTO L09
L13:  RESTORE L45: flt = 0: GOSUB L15: IF flt = 0 THEN GOSUB L35: GOSUB L127
      flt = 0: PRINT " Ready": GOTO L09
L15:  PRINT : PRINT "Read data from SX-chip "; : READ BEVEL: i = 0
      WHILE BEVEL <> &HFF: POKE OBUF + i, BEVEL: i = i + 1: READ BEVEL: WEND
L20:  POKE BREEK, 0: POKE OUTIN, 0: POKE OUTIN + 1, 0: READ BEVEL: WHILE BEVEL <> &HFF
      M% = BEVEL: READ RETR: MX% = RETR: : POKE SBUSY, 1: PRINT "X";
      CALL ABSOLUTE(MX%, M%, ONESHOT): IF (MX% = RETR) AND (MX% = M%) THEN GOTO L25
      flt = 1: IF RETR = MX% THEN PRINT " Timeout-error!! "; : GOTO L22
      IF MX% AND 16 THEN PRINT "Framing-error";  ELSE PRINT "Overflow-error";
L22:  MX% = MX% - 128: PRINT "BREAK-count="; PEEK(BREEK);
      PRINT " Transmitted="; BEVEL: PRINT "Expected to receive="; RETR; " Received now="; M%;
      M% = 256 * PEEK(ASCIN + 1) + PEEK(ASCIN): LENG = M%: PRINT " Total received="; LENG;
      IF M% = 0 THEN RETURN ELSE PRINT
      CLOSE : OPEN "O", #1, "KIJK_RAW.TXT": WRITE #1, M%: FOR j = 0 TO LENG - 1
      M% = (-PEEK(IBUF + j)) AND 255: WRITE #1, M%: NEXT: CLOSE : GOSUB L78
      PRINT " Data now in file KIJK_RAW.TXT     "; : RETURN
L25:  IF M% <> 9 THEN GOTO L30: 'after 9 bytes generate encryption keys
      i = PEEK(IBUF + 6): POKE SXKEY, i XOR &H37
      i = PEEK(IBUF + 7): POKE SXKEY + 1, i XOR &H95: POKE CRYPT, 2
L30:  READ BEVEL: WEND: GOSUB L78: RETURN
L35:  CLOSE : OPEN "O", #1, "READ_KEY.TXT": PRINT : PRINT "I'm filling READ_KEY.TXT ";
      PRINT #1, "Device="; : j = 10 + IBUF: GOSUB L40
      PRINT #1, " Fusex="; : j = 12 + IBUF: GOSUB L40
      PRINT #1, " Fuse="; : j = 14 + IBUF: GOSUB L40
      PRINT #1, "   Content memory": j = 17 + IBUF: BLOK = 0: TEL = 0
      WHILE BLOK < 16: y = 0: WHILE y < 128: GOSUB L40: j = j + 2: y = y + 1: WEND
      j = j + 1: BLOK = BLOK + 1: PRINT "*"; : WEND
      PRINT #1, "Ident="; : FOR i = 1 TO 16: GOSUB L40: j = j + 2: NEXT
      PRINT #1, "Timer="; : j = j + 1: GOSUB L40: PRINT #1, : PRINT " Ready": RETURN
L40:  PRINT #1, HEX$(PEEK(j + 1)); : M% = PEEK(j): IF M% < 16 THEN PRINT #1, "0";
      PRINT #1, HEX$(M%); " "; : TEL = TEL + 1: IF TEL = 16 THEN TEL = 0: PRINT #1,
      RETURN: 'the following DATA is in use for the SXBLITS-protocol
L45:  DATA &H20,&H53,&H58,&H2D,&H4B,&H65,&H79,&H3,&H3,&H80,&H80,&H80
      DATA &H80,&H80,&H80,&H80,&H80,&H80,&H80,&H80,&H80,&H80,&H80,&H80
      DATA &H80,&H10,&H0,&H4,&HFF
      DATA 7,9,1,1,1,7,1,257,1,257,1,257,1,257,1,257,1,257,1,257,1,257,1
      DATA 257,1,257,1,257,1,257,1,257,1,257,1,257,1,257,1,33,1,3,1,1,&HFF
L60:  DATA 7,9,2,1,2,1,1,1,6,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1
      DATA 66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1
      DATA 66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1
      DATA 66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1
      DATA 66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1,66,1
      DATA 66,1,66,1,66,1,34,1,1,3,1,1,1,0,&HFF
L65:  PRINT : PRINT "I prepare data in the outputbuffer for programming SX28 "
      CLOSE : OPEN "I", #2, READFILE$: TEL = 0
      M$ = "2053582D4B657901FF01F5020232": GOSUB L75: INPUT #2, M$
      P = 19: GOSUB L70: P = 29: GOSUB L70: FOR i = 1 TO 64: M$ = "2014": GOSUB L75
      INPUT #2, M$: FOR P = 1 TO 63 STEP 4: GOSUB L70: NEXT
      INPUT #2, M$: FOR P = 1 TO 63 STEP 4: GOSUB L70: NEXT
      PRINT "*"; : NEXT: M$ = "1014": GOSUB L75: INPUT #2, M$
      FOR P = 7 TO 70 STEP 4: GOSUB L70: NEXT: M$ = "000400": GOSUB L75
      PRINT "Prepared in memory:"; TEL; "bytes  "; : RETURN
L70:  B = ASC(MID$(M$, P, 1)) - 48: IF B > 10 THEN B = B - 7
      y = ASC(MID$(M$, P + 1, 1)) - 48: IF y > 10 THEN y = y - 7
      Z = ASC(MID$(M$, P + 2, 1)) - 48: IF Z > 10 THEN Z = Z - 7
      A = 16 * y + Z: POKE OBUF + TEL, A: POKE OBUF + TEL + 1, B: TEL = TEL + 2: RETURN
L75:  FOR P = 1 TO LEN(M$) STEP 2
      y = ASC(MID$(M$, P, 1)) - 48: IF y > 10 THEN y = y - 7
      Z = ASC(MID$(M$, P + 1, 1)) - 48: IF Z > 10 THEN Z = Z - 7
      A = 16 * y + Z: POKE OBUF + TEL, A: TEL = TEL + 1: NEXT: RETURN
L76:  'initialise assembler-drivers
      DIM ASM%(30000), TM$(26): DEF SEG = VARSEG(ASM%(0)): ONESHOT = &H100
      TYPE TestRecord: Instructie AS STRING * 41: Dummy AS STRING * 1: END TYPE
      DIM SrcCode AS TestRecord: SCREEN 0, 0, 0, 0: RESTORE L79: TEL = &H100
      FOR i = 1 TO 12: READ M$: FOR P = 1 TO LEN(M$) STEP 2
      y = ASC(MID$(M$, P, 1)) - 48: IF y > 10 THEN y = y - 7
      Z = ASC(MID$(M$, P + 1, 1)) - 48: IF Z > 10 THEN Z = Z - 7
      A = 16 * y + Z: POKE OBUF + TEL, A: TEL = TEL + 1: NEXT: NEXT
      READFILE$ = "READ_KEY.TXT": IF COMPORT = 1 THEN CPR = &H3F8: GOTO L77
      CPR = &H2F8: POKE &H14D, 2: POKE &H15C, 2: POKE &H17E, 2: POKE &H192, 2: POKE &H20B, 2
L77:  OUT (CPR + 3), &H80: OUT (CPR + 0), &H2: OUT (CPR + 1), &H0
      OUT (CPR + 3), &H3: OUT (CPR + 4), &H8: PRINT "Assembler-part loaded"
      SXKEY = &H108: OUTIN = &H10C: BREEK = &H107: IBUF = &H26D: OBUF = &H3D05
      TM3 = &H103: SBUSY = &H102: CRYPT = &H106: ASCIN = &H10A: DEBUG = 0: pollrequest = 0
L78:  IF DEBUG = 1 THEN RETURN ELSE POKE TM3, 10: POKE SBUSY, 0: POKE CRYPT, 0
      POKE ASCIN, 0: POKE ASCIN + 1, 0: HX% = INP(CPR + 5): HX% = INP(CPR): RETURN
L79:  DATA "EB0E0032FFFF000000000000000000001E55538BEC8B760C8B0C2E890E0E018B"
      DATA "760A8B0C2E803E0601027509E8F0002EC60606010183F900742A492E8B1E0C01"
      DATA "2E8A87053D432E891E0C01BAF8032E803E0601007403E80601EEBAFD03EC2440"
      DATA "74F8EBD1BB00002E391E0E01746E2E8B0E04012E8A260301BB0000FABAFD03EC"
      DATA "241F74503C0174082E803E0201007459BAF803EC2E803E02010074092EC60602"
      DATA "0100EB26902E803E0601007403E89E00532E8B1E0A012E88876D02432E891E0A"
      DATA "015B432E391E0E0174112E8A2603012E8B0E04014975A5FECC75F4FB8B760A89"
      DATA "1C8BE55B5D1FCA0400502410587410512E8B0E0401E2FE592EFE060701EBD5B4"
      DATA "000580008B760C8904BAF803EC2E8B1E0A012E88876D02432E891E0A01EBBC50"
      DATA "512EA108018AE832E08AC4B106D2E032C424808AE5D0EC02C42E8B0E0801D0E5"
      DATA "80E10102CD8AE12EA308015958C32E320609018AE02EA008012AC4E8C1FFC3E8"
      DATA "BDFF2E2A0609012E32060801C3424242"
      'see .ASM-file for content of assembler-routines
L80:  'the following code is in use for debugging with the SXKEY
      DATA &H20,&H53,&H58,&H2D,&H4B,&H65,&H79,&H0,&HFF,7,9,1,0,&HFF
L81:  DATA &H20,&H53,&H58,&H2D,&H4B,&H65,&H79,&H8,&HE0,&HE4,&H3E,&H4
      DATA &HFF,7,9,4,1,1,1,&HFF
L82:  LOCATE 24, 1: PRINT SPACE$(77); : LOCATE 24, 1: PRINT "End DEBUGMODE    ";
      M% = 2: MX% = 0: M$ = "0900": GOSUB L105: DEBUG = 0: TIMER OFF: CLOSE : GOTO L78
L83:  SCREEN 0, 0, 3, 3: CLS : 'prepare helpscreen and put SXKEY in DEBUG-mode
      PRINT : PRINT SPACE$(20); "Commands in READ/PROGRAM mode"
      PRINT "<R> = read content SX-chip and fill file: READ_KEY.TXT and DESDEBM.TXT"
      PRINT "<P> = programming SX-chip (default from file: READ_KEY.TXT)"
      PRINT "<Q> = stop the QBASIC-program"
      PRINT "<D> = goto DEBUG-mode   Nb: the disassembler use READ_KEY.TXT"
      PRINT SPACE$(28); "if not present or actual, do READ first"
      PRINT : PRINT SPACE$(20); "Commands in DEBUG-mode"
      PRINT "<ESC> = show this helpscreen  In use: COMport="; COMPORT
      PRINT "<.> = alternate between 'show all RAM' and 'show only system-RAM'"
      PRINT "      Nb: 'all RAM' shows 2 steps, 'system-RAM' shows 6 steps"
      PRINT "<,> = show disassembler-code on actual position"
      PRINT "</> = show actual string in use to command SXKEY (not all find out)"
      PRINT "<H> = exit DEBUG-mode"
      PRINT "<M> = modify RAM-data"
      PRINT "<B> = modify breakpoint-adress"
      PRINT "<A> = modify program-counter"
      PRINT "<W> = walk one instruction and show results"
      PRINT "<P> = run until breakpoint"
      PRINT "<R> = run until <S> stop-command"
      PRINT "<S> = STOP running SX-chip"
      PRINT "<C> = reset SX-chip": PRINT
      PRINT "On top of DEBUG-screen: '--- ' or  'INT'  (like INT-knob on SXKEY28L.exe)"
      PRINT SPACE$(24); "'----' or 'SKIP' (like SKIP-knob on SXKEY28L.exe)"
      PRINT "On bottom of DEBUG-screen: next PC-adress"
      SCREEN 0, 0, 0, 0: CLOSE : OPEN "DISDEBM.TXT" FOR RANDOM AS #1 LEN = LEN(SrcCode)
      FOR i = 0 TO 22: TM$(i) = "": NEXT: RESTORE L80: GOSUB L15: RESTORE L81: DEBUG = 1: GOSUB L15
      ON TIMER(1) GOSUB L110: flt = 0: TIMER ON: toon = 1: aanvang = 1: PRINT : PRINT "DEBUG-MODE"
      TDEB = 0: WHILE TDEB < 2: WEND: REG$ = "070401500233"
      CMD$ = "071C040B000708FD1006201000FF001F00F700F700F700104000000F8008"
      M% = 2: MX% = 152: M$ = "0698": GOSUB L105: GOSUB L115
L84:  LOCATE 24, 1: PRINT SPACE$(77); : LOCATE 24, 1: PRINT "Possible commands on help-screen <ESC>";
L90:  IF flt = 1 THEN GOTO L82
      IF pollrequest = 1 THEN pollrequest = 0: GOTO L103
      IK$ = INKEY$: IF IK$ = "" THEN FOR ikn = 1 TO 100: NEXT: GOTO L90
      IF IK$ = "." THEN GOTO L91
      IF IK$ = "," THEN GOTO L94
      IF IK$ = "/" THEN GOTO L96
      IF IK$ = "H" THEN GOTO L82
      IF IK$ = "M" THEN GOTO L95
      IF IK$ = "B" THEN GOTO L92
      IF IK$ = "A" THEN GOTO L93
      IF IK$ = "W" THEN MID$(CMD$, 35, 6) = "EB00F7": GOTO L100
      IF IK$ = "P" THEN MID$(CMD$, 35, 6) = "E900F7": GOTO L100
      IF IK$ = "R" THEN MID$(CMD$, 35, 6) = "EA00EA": M% = 30: MX% = 0: M$ = CMD$: GOSUB L105: GOTO L90
      IF IK$ = "C" THEN M% = 1: MX% = 1: M$ = "04": aanvang = 1: GOTO L101
      IF IK$ = "S" THEN M% = 3: MX% = 0: M$ = "070100": GOTO L101
      IF ASC(IK$) = 27 THEN SCREEN 0, 0, 3, 3: WHILE INKEY$ = "": FOR ikn = 1 TO 100: NEXT: WEND: SCREEN 0, 0, 0, 0
      GOTO L90
L91:  toon = toon + 1: toon = toon MOD 2: MID$(CMD$, 35, 6) = "F700F7"
      FOR i = 0 TO 22: TM$(i) = "": NEXT: GOTO L100
L92:  LOCATE 24, 1: PRINT SPACE$(77); : LOCATE 24, 1
      PRINT "Present BREAK-adress= #"; MID$(CMD$, 48, 1); MID$(CMD$, 51, 2); " Modify (#HLL) or ENTER: ";
      ii$ = "": FOR i = 1 TO 4: IK$ = ""
      WHILE IK$ = "": IK$ = INKEY$: FOR ikn = 1 TO 100: NEXT: WEND: ii$ = ii$ + IK$
      IF ASC(IK$) = 13 THEN PRINT "Not modified"; : GOTO L84
      PRINT IK$; : NEXT: IF MID$(ii$, 1, 1) <> "#" THEN GOTO L92
      MID$(CMD$, 48, 1) = MID$(ii$, 2, 1): MID$(CMD$, 51, 2) = MID$(ii$, 3, 2): GOTO L84
L93:  PRINT "Present PC-counter= #"; MID$(CMD$, 12, 1); MID$(CMD$, 15, 2); " Modify (#HLL) or ENTER: ";
      ii$ = "": FOR i = 1 TO 4: IK$ = ""
      WHILE IK$ = "": IK$ = INKEY$: FOR ikn = 1 TO 100: NEXT: WEND: ii$ = ii$ + IK$
      IF ASC(IK$) = 13 THEN PRINT "Not modified"; : GOTO L84
      PRINT IK$; : NEXT: IF MID$(ii$, 1, 1) <> "#" THEN GOTO L93
      MID$(CMD$, 12, 1) = MID$(ii$, 2, 1): MID$(CMD$, 15, 2) = MID$(ii$, 3, 2): MID$(CMD$, 35, 6) = "F700F7": GOTO L100
L94:  SCREEN 0, 0, 1, 1: Adres$ = MID$(CMD$, 12, 1) + MID$(CMD$, 15, 2)
      CLS : PRINT "Disassembled code around present location"
      PRINT "----------------------------------------------"
      y = 0: FOR i = 1 TO 3: x = ASC(MID$(Adres$, i, 1)) - 48: IF x > 10 THEN x = x - 7
      y = 16 * y + x: NEXT: FOR i = y - 9 TO y + 11: IF i < 1 OR i > 4096 THEN GOTO skp
      GET #1, i, SrcCode: IF i = (y + 1) THEN COLOR 15
      PRINT SrcCode.Instructie; : COLOR 7
skp:  NEXT: WHILE INKEY$ <> ",": FOR ikn = 1 TO 100: NEXT: WEND: SCREEN 0, 0, 0, 0: GOTO L84
L95:  PRINT "Voer in: br=nn (b=BANK[0-8] r=REG[0-F] nn=waarde[00-FF] : ";
      MID$(CMD$, 35, 6) = "F700F7": CNVREG$ = "013579BDF": ii$ = "": FOR i = 1 TO 5: IK$ = ""
      WHILE IK$ = "": IK$ = INKEY$: FOR ikn = 1 TO 100: NEXT: WEND: ii$ = ii$ + IK$: PRINT IK$; : NEXT
      IF MID$(ii$, 3, 1) <> "=" THEN GOTO L95
      MID$(REG$, 7, 1) = MID$(CNVREG$, ASC(ii$) - 47, 1)
      MID$(REG$, 8, 1) = MID$(ii$, 2, 1): MID$(REG$, 11, 2) = MID$(ii$, 4, 2)
      M% = 6: MX% = 0: M$ = REG$: GOSUB L105
L96:  SCREEN 0, 0, 2, 2: CLS
      PRINT "Debug-commandstring (CMD$) to SXKEY. Meaning of 'XX' is still unknown!!"
      PRINT "----------------------------------------------------------------------------"
      FOR i = 0 TO 13: PRINT MID$(CMD$, 7 + (2 * i), 2); " "; : NEXT
      PRINT MID$(CMD$, 35, 6); " "; MID$(CMD$, 41, 6); " ";
      FOR i = 0 TO 6: PRINT MID$(CMD$, 47 + (2 * i), 2); " "; : NEXT
      PRINT " | XX  | XX  | XX  | XX  | XX  | XX  | XX  |   | XXXXXX  | XX  | XX  | XX  |"
      PRINT " |     |     |     |     |     |     |     |   |         |     |     |     |"
      PRINT "reg-W  |     |     |     |     |     |     |   |         |     |     |     |"
      PRINT "PC-high+     |     |     |     |     |     |   |         |     |     |     |"
      PRINT "PC-low-------+     |     |     |     |     |   |         |     |     |     |"
      PRINT "STATUS-------------+     |     |     |     |   |         |     |     |     |"
      PRINT "FSR----------------------+     |     |     |   |         |     |     |     |"
      PRINT "reg_0E-------------------------+     |     |   |         |     |     |     |"
      PRINT "reg_0F-------------------------------+     |   |         |     |     |     |"
      PRINT "command------------------------------------+---+         |     |     |     |"
      PRINT "BREAK_adr_high-------------------------------------------+     |     |     |"
      PRINT "BREAK_adr_low--------------------------------------------------+     |     |"
      PRINT "reg-M----------------------------------------------------------------+     |"
      PRINT "reg_0D---------------------------------------------------------------------+"
      PRINT "After <071C04><commandstring> or STOP <070100>"
      PRINT "                     wait for poll-answer=<02>, then <0698> for content"
      PRINT "CMD$-command= F700F7 --> Modify ram-adress (after <070401><3bytes>)"
      PRINT "CMD$-command= EB00F7 --> Do SINGLE STEP"
      PRINT "CMD$-command= E900F7 --> RUN until BREAK-adress"
      PRINT "CMD$-command= EA00EA --> RUN until STOP-command <070100>"
      PRINT "SXBLITZ++: POLL=<05> CONTENT=<06> COMMAND=<07> DEBUG-ON=<08> DEBUG-OFF=<09>";
      WHILE INKEY$ = "":  FOR ikn = 1 TO 100: NEXT: WEND: SCREEN 0, 0, 0, 0: GOTO L90
L100: M% = 30: MX% = 0: M$ = CMD$
L101: GOSUB L105
L102: TDEB = 0: WHILE TDEB < 2: WEND
L103: TDEB = 0: M% = 2: MX% = 152: M$ = "0698": GOSUB L105: GOSUB L115: GOTO L84
L105: TIMER OFF: TEL = 0: GOSUB L75: POKE SBUSY, 1: POKE OUTIN, 0
      POKE OUTIN + 1, 0: POKE BREEK, 0: POKE ASCIN, 0: POKE ASCIN + 1, 0
      CALL ABSOLUTE(MX%, M%, ONESHOT): IF MX% <> M% THEN flt = 1: PRINT "Something wrong"
      TIMER ON: RETURN
L110: 'Polling routine. Send every second a poll and check response
      TIMER OFF: TDEB = TDEB + 1: POKE SBUSY, 1: POKE OUTIN, 0: POKE OUTIN + 1, 0
      POKE OBUF, &H5: PM% = 1: PMX% = 1: CALL ABSOLUTE(PMX%, PM%, ONESHOT)
      IF PMX% <> PM% THEN PRINT "Polling stopped": flt = 1: TDEB = 100: RETURN
      IF (PEEK(IBUF + PEEK(ASCIN) + (256 * PEEK(ASCIN + 1)) - 1) = 2) AND (TDEB > 3) THEN pollrequest = 1
      TIMER ON: RETURN
      'make up the tables and give presentation on screen
L115: M$ = "": T0 = 0: T1 = 0: FOR x = 0 TO 151
      y = PEEK(IBUF + x): IF y < 16 THEN M$ = M$ + "0"
      M$ = M$ + HEX$(y) + " ": T0 = T0 + 1
      IF T1 = 0 AND T0 = 8 THEN T1 = 1: T0 = 0: REDM$(0) = M$: GOSUB L120: M$ = ""
      IF T0 = 16 AND T1 = 1 THEN GOSUB L117
      IF T0 = 16 THEN GOSUB L119
      NEXT: MID$(REDM$(1), 40, 2) = MID$(REDM$(0), 19, 2): MID$(REDM$(1), 43, 2) = MID$(REDM$(0), 22, 2)
      MID$(REDM$(1), 46, 2) = MID$(REDM$(1), 1, 2): MID$(REDM$(1), 7, 2) = MID$(REDM$(0), 7, 2)
      MID$(REDM$(1), 10, 2) = MID$(REDM$(0), 13, 2): MID$(REDM$(1), 13, 2) = MID$(REDM$(0), 16, 2)
      RG = ASC(MID$(REDM$(1), 14, 1)) - 48: IF RG > 10 THEN RG = RG - 7
      BK = ASC(MID$(REDM$(1), 13, 1)) - 48: IF BK > 10 THEN BK = BK - 7
      IF (BK MOD 2) = 0 THEN BK = (BK / 2) + 2 ELSE BK = 2
      MID$(REDM$(1), 1, 2) = MID$(REDM$(BK), 1 + (3 * RG), 2): RESTORE L116
      FOR i = 0 TO 15: READ M$: TM$(i + 6) = TM$(i + 6) + M$ + " "
      HX$ = MID$(REDM$(1), 1 + (3 * i), 2): IF i <> 3 THEN GOTO NOST
      jj = ASC(MID$(HX$, 2, 1)) - 48: IF jj > 10 THEN jj = jj - 7
      jj = jj OR PD: MID$(HX$, 2, 1) = HEX$(jj)
      jj = ASC(MID$(HX$, 1, 1)) - 48: IF jj > 10 THEN jj = jj - 7
      jj = jj OR 1: MID$(HX$, 1, 1) = HEX$(jj)
NOST: TM$(i + 6) = TM$(i + 6) + HX$: GOSUB L118: TM$(i + 6) = TM$(i + 6) + " " + HX$
      IF toon = 1 THEN FOR j = 2 TO 9: TM$(i + 6) = TM$(i + 6) + " " + MID$(REDM$(j), 1 + (3 * i), 2): NEXT
      TM$(i + 6) = TM$(i + 6) + "  ": NEXT
      TM$(22) = TM$(22) + "  Next= #" + MID$(REDM$(0), 11, 1) + MID$(REDM$(0), 7, 2) + "    "
      IF toon = 1 THEN TM$(22) = TM$(22) + "                        "
      CLS : FOR i = 0 TO 22: PRINT TM$(i): NEXT: RETURN
L116: DATA "IN","RT","PC","ST","FS","RA","RB","RC","08","09","0A","0B","0C","0D","0E","0F"
L117: T1 = 2: T0 = 0: GOSUB L125
      IF LEN(TM$(1)) > 75 THEN FOR i = 0 TO 22: TM$(i) = RIGHT$(TM$(i), 64 - (toon * 24)): NEXT
      HX$ = MID$(REDM$(0), 13, 2): y = ASC(MID$(HX$, 1, 1)) - 48: IF y > 10 THEN y = y - 7
      Z = ASC(MID$(HX$, 2, 1)) - 48: IF Z > 10 THEN Z = Z - 7
      HX% = 16 * y + Z
      IF (HX% AND 16) <> 0 THEN TM$(0) = TM$(0) + "   INT " ELSE TM$(0) = TM$(0) + "   --- "
      IF (HX% AND 8) <> 0 THEN TM$(0) = TM$(0) + " SKIP    " ELSE TM$(0) = TM$(0) + " ----    "
      HX$ = MID$(REDM$(0), 1, 2): TM$(1) = TM$(1) + "M= " + HX$ + " ": GOSUB L118: TM$(1) = TM$(1) + HX$ + "  "
      HX$ = MID$(REDM$(0), 4, 2): TM$(2) = TM$(2) + "W= " + HX$ + " ": GOSUB L118: TM$(2) = TM$(2) + HX$ + "  "
      HX$ = MID$(M$, 7, 2): TM$(3) = TM$(3) + "U1= " + HX$
      HX$ = MID$(M$, 40, 2): TM$(3) = TM$(3) + "  U4= " + HX$ + "  "
      IF toon = 1 THEN TM$(0) = TM$(0) + "                        ": TM$(1) = TM$(1) + "                        "
      HX$ = MID$(M$, 10, 2): TM$(4) = TM$(4) + "U2= " + HX$
      PD = ASC(MID$(HX$, 2, 1)) - 48: IF PD > 10 THEN PD = PD - 7
      PD = (PD AND 8)
      HX$ = MID$(M$, 43, 2): TM$(4) = TM$(4) + "  U5= " + HX$ + "  "
      IF toon = 1 THEN TM$(2) = TM$(2) + "                        ": TM$(3) = TM$(3) + "                        "
      HX$ = MID$(M$, 13, 2): TM$(5) = TM$(5) + "U3= " + HX$
      HX$ = MID$(M$, 46, 2): TM$(5) = TM$(5) + "  U6= " + HX$ + "  "
      IF toon = 1 THEN TM$(4) = TM$(4) + "                        ": TM$(5) = TM$(5) + "                        "
      REDM$(1) = M$: M$ = "": RETURN
L118: y = ASC(MID$(HX$, 1, 1)) - 48: IF y > 10 THEN y = y - 7
      Z = ASC(MID$(HX$, 2, 1)) - 48: IF Z > 10 THEN Z = Z - 7
      HX% = 16 * y + Z: HX$ = "": FOR G = 0 TO 7
      HX$ = CHR$(48 + (HX% MOD 2)) + HX$: HX% = INT(HX% / 2): NEXT
      RETURN
L119: T0 = 0: T1 = T1 + 1: REDM$(T1 - 1) = M$: M$ = "": RETURN
L120: MID$(CMD$, 55, 2) = MID$(M$, 1, 2):          'MODE
      MID$(CMD$, 7, 2) = MID$(M$, 4, 2):           'W-reg
      MID$(CMD$, 23, 2) = MID$(M$, 16, 2):         'FSR
      MID$(CMD$, 59, 2) = MID$(M$, 19, 2):         'reg-0D
      MID$(CMD$, 27, 2) = MID$(M$, 22, 2):         'reg-0E
      MID$(CMD$, 19, 2) = MID$(M$, 13, 2):         'STATUS
      IF aanvang = 0 THEN GOTO L121 ELSE aanvang = 0
      MID$(REDM$(0), 13, 1) = "0": MID$(CMD$, 19, 1) = "0"
      i = ASC(MID$(CMD$, 20, 1)) - 48: IF i > 10 THEN i = i - 7
      MID$(CMD$, 20, 1) = CHR$((i AND 7) + 48)
      MID$(CMD$, 11, 2) = "07": MID$(CMD$, 15, 2) = "FD": RETURN: 'PC-adress
L121: MID$(CMD$, 11, 2) = MID$(M$, 10, 2): MID$(CMD$, 15, 2) = MID$(M$, 7, 2): RETURN: 'PC-adress
L125: MID$(CMD$, 31, 2) = MID$(M$, 1, 2): RETURN:  'reg-0F
      'this is the internal disassembler. Result in file: DISDEBM.TXT
      'the input is always READ_KEY.TXT !!!
L127: CLOSE : OPEN "read_key.txt" FOR INPUT AS #1
      OPEN "disdebm.txt" FOR OUTPUT AS #2: LINE INPUT #1, A$: adr = 0
      PRINT "I'm busy to create the disassembler-file. One moment please!!"
Csrc: PRINT "."; : M$ = "": LINE INPUT #1, A$: IF LEN(A$) <> 64 THEN GOTO Cstp
      FOR i = 0 TO 15
      c3 = ASC(MID$(A$, 1 + (4 * i), 1)) - 48: IF c3 > 10 THEN c3 = c3 - 7
      c2 = ASC(MID$(A$, 2 + (4 * i), 1)) - 48: IF c2 > 10 THEN c2 = c2 - 7
      c1 = ASC(MID$(A$, 3 + (4 * i), 1)) - 48: IF c1 > 10 THEN c1 = c1 - 7
      M$ = M$ + "$": IF (adr + i) < 16 THEN M$ = M$ + "00": GOTO Cadr
      IF (adr + i) < 256 THEN M$ = M$ + "0"
Cadr: M$ = M$ + HEX$(adr + i): M$ = M$ + "    [" + HEX$(c3) + HEX$(c2) + HEX$(c1) + "]    "
      GOSUB Cxxx
      IF LEN(M$) < 40 THEN M$ = M$ + SPACE$(40 - LEN(M$))
      PRINT #2, M$: M$ = "": NEXT i: adr = adr + 16: IF adr < 2047 THEN GOTO Csrc
Cstp: CLOSE : RETURN
Cxxx: ON (c3 + 1) GOTO C0xx, C1xx, C2xx, C3xx, C4xx, C5xx, C6xx, C7xx, C8xx, C9xx, CAxx, CBxx, CCxx, CDxx, CExx, CFxx
C0xx: ON (c2 + 1) GOTO C00x, C01x, C02x, C03x, C04x, C05x, C06x, C07x, C08x, C09x, C0Ax, C0Bx, C0Cx, C0Dx, C0Ex, C0Fx
C00x: ON (c1 + 1) GOTO C000, C001, C002, C003, C004, C005, C006, C007, C008, C009, C00A, C00B, C00C, C00D, C00E, C00F
C000: M$ = M$ + "NOP     ": RETURN
C001: M$ = M$ + "TRIS   unknown": RETURN
C002: M$ = M$ + "OPTION  ": RETURN
C003: M$ = M$ + "SLEEP   ": RETURN
C004: M$ = M$ + "CLRWDT  ": RETURN
C005: M$ = M$ + "TRIS   prt_A": RETURN
C006: M$ = M$ + "TRIS   prt_B": RETURN
C007: M$ = M$ + "TRIS   prt_C": RETURN
C00C: M$ = M$ + "RET     ": RETURN
C00D: M$ = M$ + "RETP    ": RETURN
C00E: M$ = M$ + "RETI    ": RETURN
C00F: M$ = M$ + "RETIW   ": RETURN
C008:
C009:
C00A:
C00B: M$ = M$ + "unknown": RETURN
C01x: IF c1 < 8 THEN M$ = M$ + "PAGE   " + HEX$(c1) + "  start on $" + HEX$(2 * c1) + "00": RETURN
                     M$ = M$ + "BANK   " + HEX$(c1 - 8): RETURN
C02x: M$ = M$ + "MOVWF  ": GOSUB C200: M$ = M$ + "": RETURN
C03x: M$ = M$ + "MOVWF  Reg#1" + HEX$(c1): RETURN
C06x: M$ = M$ + "CLRF   ": GOSUB C200: RETURN
C07x: M$ = M$ + "CLRF   Reg#1" + HEX$(c1): RETURN
C05x: M$ = M$ + "MODE    #" + HEX$(c1): RETURN
C08x: M$ = M$ + "SUBWF  ": GOSUB C200: M$ = M$ + ",W": RETURN
C09x: M$ = M$ + "SUBWF  Reg#1" + HEX$(c1) + ",W": RETURN
C0Ax: M$ = M$ + "SUBWF  ": GOSUB C200: M$ = M$ + ",f": RETURN
C0Bx: M$ = M$ + "SUBWF  Reg#1" + HEX$(c1) + ",f": RETURN
C0Cx: M$ = M$ + "DECF   ": GOSUB C200: M$ = M$ + ",W": RETURN
C0Dx: M$ = M$ + "DECF   Reg#1" + HEX$(c1) + ",W": RETURN
C0Ex: M$ = M$ + "DECF   ": GOSUB C200: M$ = M$ + ",f": RETURN
C0Fx: M$ = M$ + "DECF   Reg#1" + HEX$(c1) + ",f": RETURN
C04x: ON (c1 + 1) GOTO C040, C041, C042, C043, C044, C045, C046, C047, C048, C049, C04A, C04B, C04C, C04D, C04E, C04F
      M$ = M$ + "unknown": RETURN
C040: M$ = M$ + "CLRW    ": RETURN
C041: M$ = M$ + "IREAD   ": RETURN
C042: M$ = M$ + "MOVMW   ": RETURN
C043: M$ = M$ + "CLRW    ": RETURN
C044: M$ = M$ + "DEBUG-command_[044]": RETURN: 'special DEBUG-command in SX28
C045: M$ = M$ + "DEBUG-command_[045]": RETURN: 'special DEBUG-command in SX28
C046: M$ = M$ + "DEBUG-command_[046]": RETURN: 'special DEBUG-command in SX28
C047: M$ = M$ + "DEBUG-command_[047]": RETURN: 'special DEBUG-command in SX28
C048: M$ = M$ + "DEBUG-command_[048]": RETURN: 'special DEBUG-command in SX28
C049: M$ = M$ + "DEBUG-command_[049]": RETURN: 'special DEBUG-command in SX28
C04A: M$ = M$ + "DEBUG-command_[04A]": RETURN: 'special DEBUG-command in SX28
C04B: M$ = M$ + "DEBUG-command_[04B]": RETURN: 'special DEBUG-command in SX28
C04C: M$ = M$ + "DEBUG-command_[04C]": RETURN: 'special DEBUG-command in SX28
C04D: M$ = M$ + "DEBUG-command_[04D]": RETURN: 'special DEBUG-command in SX28
C04E: M$ = M$ + "DEBUG-command_[04E]": RETURN: 'special DEBUG-command in SX28
C04F: M$ = M$ + "DEBUG-command_[04F]": RETURN: 'special DEBUG-command in SX28
C1xx: ON (c2 + 1) GOTO C10x, C11x, C12x, C13x, C14x, C15x, C16x, C17x, C18x, C19x, C1Ax, C1Bx, C1Cx, C1Dx, C1Ex, C1Fx
C10x: M$ = M$ + "IORWF  ": GOSUB C200: M$ = M$ + ",W": RETURN
C11x: M$ = M$ + "IORWF  Reg#1" + HEX$(c1) + ",W": RETURN
C12x: M$ = M$ + "IORWF  ": GOSUB C200: M$ = M$ + ",f": RETURN
C13x: M$ = M$ + "IORWF  Reg#1" + HEX$(c1) + ",f": RETURN
C14x: M$ = M$ + "ANDWF  ": GOSUB C200: M$ = M$ + ",W": RETURN
C15x: M$ = M$ + "ANDWF  Reg#1" + HEX$(c1) + ",W": RETURN
C16x: M$ = M$ + "ANDWF  ": GOSUB C200: M$ = M$ + ",f": RETURN
C17x: M$ = M$ + "ANDWF  Reg#1" + HEX$(c1) + ",f": RETURN
C18x: M$ = M$ + "XORWF  ": GOSUB C200: M$ = M$ + ",W": RETURN
C19x: M$ = M$ + "XORWF  Reg#1" + HEX$(c1) + ",W": RETURN
C1Ax: M$ = M$ + "XORWF  ": GOSUB C200: M$ = M$ + ",f": RETURN
C1Bx: M$ = M$ + "XORWF  Reg#1" + HEX$(c1) + ",f": RETURN
C1Cx: M$ = M$ + "ADDWF  ": GOSUB C200: M$ = M$ + ",W": RETURN
C1Dx: M$ = M$ + "ADDWF  Reg#1" + HEX$(c1) + ",W": RETURN
C1Ex: M$ = M$ + "ADDWF  ": GOSUB C200: M$ = M$ + ",f": RETURN
C1Fx: M$ = M$ + "ADDWF  Reg#1" + HEX$(c1) + ",f": RETURN
C2xx: ON (c2 + 1) GOTO C20x, C21x, C22x, C23x, C24x, C25x, C26x, C27x, C28x, C29x, C2Ax, C2Bx, C2Cx, C2Dx, C2Ex, C2Fx
C20x: M$ = M$ + "MOVF   ": GOSUB C200: M$ = M$ + ",W": RETURN
C21x: M$ = M$ + "MOVF   Reg#1" + HEX$(c1) + ",W": RETURN
C22x: M$ = M$ + "MOVF   ": GOSUB C200: M$ = M$ + ",f": RETURN
C23x: M$ = M$ + "COMF   Reg#1" + HEX$(c1) + ",f": RETURN
C24x: M$ = M$ + "COMF   ": GOSUB C200: M$ = M$ + ",W": RETURN
C25x: M$ = M$ + "COMF   Reg#1" + HEX$(c1) + ",W": RETURN
C26x: M$ = M$ + "COMF   ": GOSUB C200: M$ = M$ + ",f": RETURN
C27x: M$ = M$ + "COMF   Reg#1" + HEX$(c1) + ",f": RETURN
C28x: M$ = M$ + "INCF   ": GOSUB C200: M$ = M$ + ",W": RETURN
C29x: M$ = M$ + "INCF   Reg#1" + HEX$(c1) + ",W": RETURN
C2Ax: M$ = M$ + "INCF   ": GOSUB C200: M$ = M$ + ",f": RETURN
C2Bx: M$ = M$ + "INCF   Reg#1" + HEX$(c1) + ",f": RETURN
C2Cx: M$ = M$ + "DECFSZ ": GOSUB C200: M$ = M$ + ",W": RETURN
C2Dx: M$ = M$ + "DECFSZ Reg#1" + HEX$(c1) + ",W": RETURN
C2Ex: M$ = M$ + "DECFSZ ": GOSUB C200: M$ = M$ + ",f": RETURN
C2Fx: M$ = M$ + "DECFSZ Reg#1" + HEX$(c1) + ",f": RETURN
C3xx: ON (c2 + 1) GOTO C30x, C31x, C32x, C33x, C34x, C35x, C36x, C37x, C38x, C39x, C3Ax, C3Bx, C3Cx, C3Dx, C3Ex, C3Fx
C30x: M$ = M$ + "RRF    ": GOSUB C200: M$ = M$ + ",W": RETURN
C31x: M$ = M$ + "RRF    Reg#1" + HEX$(c1) + ",W": RETURN
C32x: M$ = M$ + "RRF    ": GOSUB C200: M$ = M$ + ",f": RETURN
C33x: M$ = M$ + "RRF    Reg#1" + HEX$(c1) + ",f": RETURN
C34x: M$ = M$ + "RLF    ": GOSUB C200: M$ = M$ + ",W": RETURN
C35x: M$ = M$ + "RLF    Reg#1" + HEX$(c1) + ",W": RETURN
C36x: M$ = M$ + "RLF    ": GOSUB C200: M$ = M$ + ",f": RETURN
C37x: M$ = M$ + "RLF    Reg#1" + HEX$(c1) + ",f": RETURN
C38x: M$ = M$ + "SWAPF  ": GOSUB C200: M$ = M$ + ",W": RETURN
C39x: M$ = M$ + "SWAPF  Reg#1" + HEX$(c1) + ",W": RETURN
C3Ax: M$ = M$ + "SWAPF  ": GOSUB C200: M$ = M$ + ",f": RETURN
C3Bx: M$ = M$ + "SWAPF  Reg#1" + HEX$(c1) + ",f": RETURN
C3Cx: M$ = M$ + "INCFSZ ": GOSUB C200: M$ = M$ + ",W": RETURN
C3Dx: M$ = M$ + "INCFSZ Reg#1" + HEX$(c1) + ",W": RETURN
C3Ex: M$ = M$ + "INCFSZ ": GOSUB C200: M$ = M$ + ",f": RETURN
C3Fx: M$ = M$ + "INCFSZ Reg#1" + HEX$(c1) + ",f": RETURN
C4xx: M$ = M$ + "BCF    ": GOSUB C150: M$ = M$ + ",bit" + HEX$(INT(c2 / 2)): RETURN
C5xx: M$ = M$ + "BSF    ": GOSUB C150: M$ = M$ + ",bit" + HEX$(INT(c2 / 2)): RETURN
C6xx: M$ = M$ + "BTFSC  ": GOSUB C150: M$ = M$ + ",bit" + HEX$(INT(c2 / 2)): RETURN
C7xx: M$ = M$ + "BTFSS  ": GOSUB C150: M$ = M$ + ",bit" + HEX$(INT(c2 / 2)): RETURN
C8xx: M$ = M$ + "RETLW  #" + HEX$(c2) + HEX$(c1): RETURN
C9xx: M$ = M$ + "CALL   $" + HEX$(c2) + HEX$(c1): RETURN
CAxx: M$ = M$ + "GOTO   $0" + HEX$(c2) + HEX$(c1): RETURN
CBxx: M$ = M$ + "GOTO   $1" + HEX$(c2) + HEX$(c1): RETURN
CCxx: M$ = M$ + "MOVLW  #" + HEX$(c2) + HEX$(c1): RETURN
CDxx: M$ = M$ + "IORLW  #" + HEX$(c2) + HEX$(c1): RETURN
CExx: M$ = M$ + "ANDLW  #" + HEX$(c2) + HEX$(c1): RETURN
CFxx: M$ = M$ + "XORLW  #" + HEX$(c2) + HEX$(c1): RETURN
C150: IF (c2 MOD 2) = 1 THEN M$ = M$ + "Reg#" + HEX$(c2 MOD 2) + HEX$(c1): RETURN
C200: IF c1 > 7 THEN M$ = M$ + "Reg#0" + HEX$(c1): RETURN
      ON (c1 + 1) GOTO REG0, REG1, REG2, REG3, REG4, REG5, REG6, REG7
REG0: M$ = M$ + "IND": RETURN
REG1: M$ = M$ + "RTCC": RETURN
REG2: M$ = M$ + "PC": RETURN
REG3: M$ = M$ + "STATUS": RETURN
REG4: M$ = M$ + "FSR": RETURN
REG5: M$ = M$ + "Port_A": RETURN
REG6: M$ = M$ + "Port_B": RETURN
REG7: M$ = M$ + "Port_C": RETURN
      M$ = M$ + "unknown code.................": RETURN
     



file: /Techref/parallax/sxkey/qbl99v3.bas, 28KB, , updated: 2001/1/9 19:30, local time: 2023/1/27 05:55,
TOP NEW HELP FIND: 
18.232.31.206:LOG IN

 ©2023 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://www.sxlist.com/techref/parallax/sxkey/qbl99v3.bas"> parallax sxkey qbl99v3</A>

Did you find what you needed?

 

Welcome to sxlist.com!


Site supported by
sales, advertizing,
& kind contributors
just like you!

Please don't rip/copy
(here's why

Copies of the site on CD
are available at minimal cost.
 

Welcome to www.sxlist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .