home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #2
/
Commodore_Disk_User_Vol.4_2_1990_-.d64
/
commonv1.1.asm
< prev
next >
Wrap
Assembly Source File
|
2022-10-26
|
3KB
|
97 lines
E
_*********************************************************
_* *
_* MODULE NAME : common.asm *
_* *
_* mAINTENANCE LOG *
_* --------------- *
_* *
_* DATE TIME ACTION *
_* ---- ---- ------ *
_* 28/03/89 17:00 INITIAL CODING *
_* *
_*********************************************************
_*********************************************************
_* *
_* ROUTINE : convram - CONVERT RAM NUMBER TO A *
_* CONFIGURATION *
_* *
_* ENTRY *
_* ----- *
_* a - ram CONFIGURATION NUMBER *
_*.......................................................*
_* USED *
_* ---- *
_* a,x *
_*.......................................................*
_* EXIT *
_* ---- *
_*********************************************************
CONVRAMEQU *
{CBM-R}
CONVTAB,X
{CBM-N}
CONVTABDB $3E,$7E
_*********************************************************
_* *
_* ROUTINE : readname - READ NAME FROM THE CMD *
_* BUFFER *
_* *
_* ENTRY *
_* ----- *
_* charbuff - COMMAND BUFFER *
_* y - CURRENT POSITION IN THE BUFFER *
_*.......................................................*
_* USED *
_* ---- *
_* a,x,y *
_*.......................................................*
_* EXIT *
_* ---- *
_* prgname - PROGRAM NAME ENTERED *
_* namelen - LENGTH OF THE NAME *
_* C = 0, NO ERROR. C = 1, NAME TOO LONG *
_*********************************************************
READNAME EQU *
#0
READLOP1EQU *
_ POINT TO NEXT CHARACTER
CHARBUFF,Y
#SPACE
READLOP1
READLOP2EQU *
#CR
READEND
_ FIRST NON BLANK FOUND, SO PULL INFO OFF
{CBM-P} PRGNAME,X
#17
TOOLONG
CHARBUFF,Y
READLOP2
READENDEQU *
{CBM-A} NAMELEN
{CBM-N}
TOOLONGEQU *
{CBM-D}
{CBM-N}
iend