home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / HEX.PPC.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  43 lines

  1. 10  REM  ************************
  2. 20  REM  *    HEX.PPC.DEMO      *
  3. 30  REM  *   BY VANCE GIBONEY   *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  REM  LOAD THE ROUTINE
  9. 90  PRINT  CHR$(4);"BRUN HEX.PPC"
  10. 100  HIMEM: 37888: REM  $9400
  11. 110  REM  POKE MACHINE LANGUAGE ROUTINE
  12. 120  &  POKE $303,AD,00,03/49,FF/8D,01,03/AA/E8/8E,02,03/60
  13. 130  REM 
  14. 140  REM  LDA $300
  15. 150  REM  EOR #$FF
  16. 160  REM  STA $301
  17. 170  REM  TAX
  18. 180  REM  INX
  19. 190  REM  STX $302
  20. 200  REM  RTS
  21. 210  REM 
  22. 220  REM  DEFINE VARIABLES
  23. 230 NUMBER% = 0:FIRST% = 0:TWOS% = 0
  24. 240  REM  CLEAR SCREEN
  25. 250  &  CALL $FC58
  26. 260  REM  ********************
  27. 270  REM  *   PROGRAM LOOP   *
  28. 280  REM  ********************
  29. 290  HOME : HTAB 14: PRINT "HEX.PPC.DEMO": PRINT : PRINT "* COPYRIGHT 1984 BY MICROSPARC, INC.  *": VTAB 22: PRINT "PRESS <RETURN> TO END": VTAB 4: FOR J = 1 TO 40: PRINT "-";: NEXT : PRINT 
  30. 300  REM  GET NUMBER
  31. 310  INPUT "ENTER ONE-BYTE NUMBER (0-255): ";NUMBER$:NUMBER% =  VAL(NUMBER$): IF NUMBER$ = ""  THEN  END 
  32. 320  IF NUMBER% >255  OR NUMBER% <0  THEN 310
  33. 330  REM  POKE NUMBER & CALL THE SUBROUTINE
  34. 340  &  POKE $300,NUMBER%
  35. 350  &  CALL $303
  36. 360  REM  GET VALUES
  37. 370  & FIRST% =  PEEK($301): & TWOS% =  PEEK($302)
  38. 380  REM  PRINT COMPLEMENTS
  39. 390  PRINT : PRINT "ONES COMPLEMENT: ";FIRST%
  40. 400  PRINT : PRINT "TWOS COMPLEMENT: ";TWOS%
  41. 410  PRINT : PRINT 
  42. 420  REM  GET NEXT NUMBER
  43. 430  VTAB 22: CALL  -958: PRINT "PRESS ANY KEY TO CONTINUE": GET K$: PRINT : GOTO 290