Shell for the ZX81 Assembler included with the Atari ST 
ZX81 Emulator.

File: DSHELL.P

 10  REM SHELL FOR DISASSEMBLER
 15  PRINT "RUNTIME OPTIONS: PRESS"
 16  PRINT "A FOR ADRESS CHANGE"
 17  PRINT "F FOR FORWARD DISASSEMBLY"
 18  PRINT 
 19  PRINT "STARTING ADDRESS?";
 20  INPUT P$
 21  IF P$(1 TO 1)="H" THEN  GOSUB 100
 22  LET P= VAL P$
 23  LET X= INT (P/256)
 25  POKE 32705,X
 30  POKE 32704,(P-X*256)
 35  CLS 
 40  LET P= PEEK 32704+ PEEK 32705*256
 50  CLS 
 51  LET L= USR 32032
 60  IF  INKEY$ ="F" THEN  GOTO 50
 70  IF  INKEY$  <> "A" THEN  GOTO 60
 79  CLS 
 80  GOTO 15
 100  LET P$=P$(2 TO )
 105  LET P=0
 110  FOR X=1 TO  LEN P$
 120  LET P=P+( CODE P$(X)-28)*(16 ** ( LEN P$-X))
 125  NEXT X
 130  LET P$= STR$ (P)
 140  RETURN 


Variables Resident in Memory for File: 
DSHELL.P

P$="00"
P=0
X=0
L

