Top secrets sources NedoPC pentevo

Rev

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