Blame |
Last modification |
View Log
| Download
| RSS feed
| ?url?
;LAST UPDATE: 12.09.2019 savelij
; £¥¥à æ¨ï SCL ®¡à §
; ¨¨æ¨ «¨§ æ¨ï ¯¥à¥¬¥®© ¤«ï áç¥â稪 ª®«¨ç¥áâ¢ë ä ©«®¢
SCL_INIT_VAR MACRO
SCL_NUMBERS_FILES := 0
ENDM
; ¯®«ã票¥ áç¥â稪 ª®«¨ç¥áâ¢ ä ©«®¢ ¢ SCL ®¡à §¥
SCL_GET_NUMBERS MACRO NAME
NAME := SCL_NUMBERS_FILES
ENDM
; ¤®¡ ¢«¥¨¥ § ¯¨á¨ ¢ SCL § £®«®¢®ª
; INC ¯¥à¥¬¥ ï ª®«¨ç¥áâ¢ ä ©«®¢ ¢ SCL ä ©«¥
; SECTORS ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤®¡ ¢«ï¥¬®£® ä ©« ,
; ¥á«¨ 0 â® à §¬¥à ¢ëç¨á«ï¥âáï ¨§ BYTES
; TEXT ¨¬ï ä ©« ª ª ¢ TR-DOS
; ¥á«¨ "filenameB" ¤à¥á ¡¥à¥âáï ¨§ ADRES
; ¨ ç¥ "filenameEXT" ¨ ADRES ¥ ¢áâ ¢«ï¥âáï
; BYTES à §¬¥à ä ©« ¢ ¡ ©â å
; ADRES ¤à¥á § £à㧪¨
SCL_RECORD MACRO INC,SECTORS,TEXT,BYTES,ADRES
IF MOMPASS > 1
IF LOW (BYTES)
$$TMP := (BYTES>>8)+1
ELSE
$$TMP := (BYTES>>8)
ENDIF
IF STRLEN(TEXT) = 9
DB TEXT
DW ADRES
ELSE
DB TEXT
ENDIF
DW BYTES
IF SECTORS
DB SECTORS+$$TMP
ELSE
IF LOW(BYTES)
DB ((BYTES)>>8)+1
ELSE
DB ((BYTES)>>8)
ENDIF
ENDIF
INC := INC+1
ENDIF
ENDM
; ᮧ¤ ¨¥ ¬ થà SCL ä ©« ¨ ª®«¨ç¥áâ¢ ä ©«®¢
SCL_HEADER MACRO NUMS
DB "SINCLAIR"
IF MOMPASS > 1
DB NUMS
ELSE
DB 0
ENDIF
ENDM
; ãáâ ®¢ª ORG ¤«ï SCL ä ©«
SCL_ORG MACRO ADDRS,NUMS
IF MOMPASS > 1
ORG ADDRS-NUMS
ELSE
ORG ADDRS
ENDIF
ENDM
; ¢ëç¨á«¥¨¥ à §¬¥à ª â «®£ SCL ä ©« ¡¥§ ¬ àª¥à ¨ ª®«¨ç¥áâ¢ ä ©«®¢
SCL_HEADER_SIZE MACRO INNUMS,OUTNUMS
OUTNUMS := (9+INNUMS*14+0x100)
ENDM
; ¢ëç¨á«¥¨¥ ª®«¨ç¥á⢠ᥪâ®à®¢ BASIC ¡«®ª ¤«ï SCL ä ©«
SCL_BASIC_SIZE MACRO START,END,VARS
IF LOW(END-START)
VARS := ((END-START)>>8)+1
ELSE
VARS := ((END-START)>>8)
ENDIF
ENDM