home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib22b.dsk
/
HEX.PPC.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
43 lines
10 REM ************************
20 REM * HEX.PPC.DEMO *
30 REM * BY VANCE GIBONEY *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA. 01742 *
70 REM ************************
80 REM LOAD THE ROUTINE
90 PRINT CHR$(4);"BRUN HEX.PPC"
100 HIMEM: 37888: REM $9400
110 REM POKE MACHINE LANGUAGE ROUTINE
120 & POKE $303,AD,00,03/49,FF/8D,01,03/AA/E8/8E,02,03/60
130 REM
140 REM LDA $300
150 REM EOR #$FF
160 REM STA $301
170 REM TAX
180 REM INX
190 REM STX $302
200 REM RTS
210 REM
220 REM DEFINE VARIABLES
230 NUMBER% = 0:FIRST% = 0:TWOS% = 0
240 REM CLEAR SCREEN
250 & CALL $FC58
260 REM ********************
270 REM * PROGRAM LOOP *
280 REM ********************
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
300 REM GET NUMBER
310 INPUT "ENTER ONE-BYTE NUMBER (0-255): ";NUMBER$:NUMBER% = VAL(NUMBER$): IF NUMBER$ = "" THEN END
320 IF NUMBER% >255 OR NUMBER% <0 THEN 310
330 REM POKE NUMBER & CALL THE SUBROUTINE
340 & POKE $300,NUMBER%
350 & CALL $303
360 REM GET VALUES
370 & FIRST% = PEEK($301): & TWOS% = PEEK($302)
380 REM PRINT COMPLEMENTS
390 PRINT : PRINT "ONES COMPLEMENT: ";FIRST%
400 PRINT : PRINT "TWOS COMPLEMENT: ";TWOS%
410 PRINT : PRINT
420 REM GET NEXT NUMBER
430 VTAB 22: CALL -958: PRINT "PRESS ANY KEY TO CONTINUE": GET K$: PRINT : GOTO 290