6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-11 15:39:14 +00:00
Code Issues Projects Releases Wiki Activity

update images with FOR/NEXT changes

Browse Source
This commit is contained in:
David Schmenk 2018-04-17 11:11:11 -07:00
parent c1d849946f
commit d0eb8a5897
6 changed files with 0 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
PLASMA-BLD2.PO
View File

Binary file not shown.

BIN
PLASMA-DEM2.PO
View File

Binary file not shown.

BIN
PLASMA-SOS2.PO
View File

Binary file not shown.

BIN
PLASMA-SYS2.PO
View File

Binary file not shown.

20
src/vmsrc/apple/cmd.pla
View File

@ -128,13 +128,6 @@ word lastsym = symtbl
//
//asm equates included from cmdstub.s
//
asm saveX#0
STX XREG+1
end
asm restoreX#0
XREG LDX #$00
RTS
end
// CALL PRODOS
// SYSCALL(CMD, PARAMS)
//
@ -204,14 +197,6 @@ asm exec()#0
JMP $2000
end
//
// EXIT
//
asm reboot()#0
BIT ROMEN
DEC $03F4 ; INVALIDATE POWER-UP BYTE
JMP ($FFFC) ; RESET
end
//
// SET MEMORY TO VALUE
// MEMSET(ADDR, VALUE, SIZE)
// With optimizations from Peter Ferrie
@ -1383,9 +1368,6 @@ while 1
if ^getlnbuf
strcpy(@cmdln, getlnbuf)
when toupper(parsecmd(getlnbuf))
is 'Q'
reboot()
break
is 'C'
catalog(getlnbuf)
break
@ -1407,12 +1389,10 @@ while 1
execsys(getlnbuf)
break
is '+'
//saveX
execmod(striptrail(getlnbuf))
//
// Clean up
//
//restoreX
resetmemfiles
break
otherwise

20
src/vmsrc/apple/cmdjit.pla
View File

@ -146,13 +146,6 @@ word lastsym = symtbl
//
//asm equates included from cmdstub.s
//
//asm saveX#0
// STX XREG+1
//end
//asm restoreX#0
//XREG LDX #$00
// RTS
//end
// CALL PRODOS
// SYSCALL(CMD, PARAMS)
//
@ -222,14 +215,6 @@ asm exec()#0
JMP $2000
end
//
// EXIT
//
asm reboot()#0
BIT ROMEN
DEC $03F4 ; INVALIDATE POWER-UP BYTE
JMP ($FFFC) ; RESET
end
//
// SET MEMORY TO VALUE
// MEMSET(ADDR, VALUE, SIZE)
// With optimizations from Peter Ferrie
@ -1451,9 +1436,6 @@ while 1
if ^getlnbuf
strcpy(@cmdln, getlnbuf)
when toupper(parsecmd(getlnbuf))
is 'Q'
reboot()
break
is 'C'
catalog(getlnbuf)
break
@ -1475,12 +1457,10 @@ while 1
execsys(getlnbuf)
break
is '+'
//saveX
execmod(striptrail(getlnbuf))
//
// Clean up
//
//restoreX
resetmemfiles
break
otherwise