Важная информация

User Tag List

Показано с 1 по 1 из 1

Тема: Раскопки в софте с Квант-4C

  1. #1
    Guru
    Регистрация
    30.11.2015
    Адрес
    г. Самара
    Сообщений
    4,583
    Спасибо Благодарностей отдано 
    130
    Спасибо Благодарностей получено 
    271
    Поблагодарили
    230 сообщений
    Mentioned
    8 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию Раскопки в софте с Квант-4C

    С одной стороны, там не только Квант-овское, но даже и для БК. С другой стороны - осталось это именно на Квант-е

    Для затравки

    Код:
    Directory DU1:[BK0]
    2021-04-06 20:42
    
    BK.MAC;1            14.        1994-10-04 23:31
    BKROM0.CRF;1        37.        1994-10-04 23:50
    BKROM0.FNT;1        104.       1994-10-04 23:49
    BKROM0.LST;1        208.       1992-04-03 12:15
    BKROM1.LST;1        612.       1994-10-04 23:52
    BYTE.BLD;1          1.         1994-10-04 23:40
    BYTE.FTN;1          6.         1992-04-10 15:45
    CRF.BLD;1           1.         1994-10-04 23:40
    CRF.FTN;1           15.        1992-04-01 15:46
    FONT.BLD;1          1.         1994-10-04 23:41
    FONT.FTN;1          4.         1992-04-01 11:52
    GFNAME.MAC;1        3.         1992-04-01 10:32
    MICROS.DIR;1        4.         1994-10-04 23:57
    SCAN.BLD;1          1.         1994-10-04 23:42
    SCAN.FTN;1          2.         1992-04-28 13:18
    TEST.BLD;1          1.         1994-10-04 23:42
    TEST.FTN;1          2.         1992-04-01 11:03
    
    Total of 1016./1016. blocks in 17. files
    
    >
    Код:
    Directory DU1:[BK1]
    2021-04-06 20:43
    
    BLOCK0.BKF;1        1.         1993-12-08 22:17
    D1.DSK;1            1600.      1993-12-08 22:17
    D1.LST;1            14.        1994-10-05 12:13
    GETBKF.BLD;1        1.         1994-10-14 16:06
    GETBKF.PAS;1        13.        1994-10-15 14:20
    GETBKF.TSK;1        13.     C  1994-10-15 14:35
    HICOPIR.BIN;1       6.         1994-10-15 14:36
    MICROS.DIR;1        4.         1995-07-15 19:46
    SYSTEM.;1           20.        1994-10-14 18:42
    SYSTEM.DOC;1        13.        1994-10-14 18:40
    SYSTEM1.;1          26.        1994-10-14 18:42
    SYSTEM10.;1         21.        1994-10-14 22:15
    SYSTEM11.;1         19.        1994-10-14 22:16
    SYSTEM12.;1         21.        1994-10-14 22:16
    SYSTEM13.;1         21.        1994-10-14 22:17
    SYSTEM2.;1          21.        1994-10-14 18:43
    SYSTEM2A.;1         14.        1994-10-14 22:09
    SYSTEM3.;1          20.        1994-10-14 22:09
    SYSTEM3A.;1         21.        1994-10-14 22:10
    SYSTEM4.;1          19.        1994-10-14 22:11
    SYSTEM5.;1          20.        1994-10-14 22:11
    SYSTEM6.;1          20.        1994-10-14 22:12
    SYSTEM6A.;1         20.        1994-10-14 22:13
    SYSTEM7.;1          29.        1994-10-14 22:13
    SYSTEM8.;1          19.        1994-10-14 22:14
    SYSTEM9.;1          21.        1994-10-15 13:28
    PROT.LST;1          6.         2021-04-06 20:38
    
    Total of 2023./2023. blocks in 27. files
    
    >
    >RUN GETBKF
    Floppy:D1
    L - List  C - Copy  E - Exit
    
         0  SOPWITH              20      31     760, 37000
         0  STONENIGHTMARE       20      19     720, 22303
         0  PANGO                70      24     400, 30000
         0  FORT                 94      15     760, 16020
         0  PIF-PAF             109      12     760, 13020
         0  CACHE               121      23     766, 26250
         0  рай                 144      23    5000, 26700
         0  стена               167    -143     760, 34000
         0  PIF-PAF             188      12     760, 13020
         0  CACHE               200      23     766, 26250
         0  SUPERMAN*           223       5     400,  4520
         0  SUPERMAN.PIC        228      23    6026, 26350
         0  SUPERMAN.GMC        251      32    6026, 37130
         0  рай                 283      23    5000, 26700
         0  HOBBIT*BAS          306      17     600, 20110
         0  HOBBIT.GM2          323      31    1000, 37000
         0  KINGS VALLEY        354      31     400, 36426
         0  MARS                385      15     760, 16020
         0  MARS PLAY           400      30    1000, 35500
         0  TRAVEL*             430      15     600, 16200
         0  TRAVEL PLAY        445      31    1000, 37000
         0  биллиард            476      26     732, 31766
         0  RACE                502      15     600, 16200
         0  RACEPLAY            517      31    1000, 37000
         0  дорога              548      28     600, 34000
         0  DIGGER              576      22     732, 25456
         0  REVERSY*FOC         598      26    1752, 31362
         0  SWREKL1             624      30     732, 35400
         0  десантник           654      16     732, 17146
    Next [y/n] ?
    Код:
    
    
    **************************************************************
    *                       с и с т е м а                        *
    *   руководство по системному программированию для бк-0010   *
    *             и программированию на ассемблере.              *
    *    зальцман ю.а., Г.алма-ата, ТЕЛ.691797. 1987-1988 ГГ.    *
    **************************************************************
     8.04.88 Г.
    
                              посвящается жене автора, которая
                            занималась воспитанием нашего сына,
                            пока автор занимался  "воспитанием"
                            бк-0010,и писал данное руководство.
    
     уважаемые читатели! вашему вниманию предлагается руководство
    по системному программированию и программированию на ассемблере
    для бк-0010.
    
     данное руководство отнюдь не повторяет известную литературу,
    а существенно ее дополняет. при написании руководства автор
    стремился сделать текст максимально доступным, наглядным и
    живым, что иногда шло в ущерб строгости изложения, что может
    - - - Добавлено - - -

    Код:
    >TYP GDZ.MC
            .TITLE GET DZ DISKETTE
            .IDENT  /WAS.01/
    
            .MCALL  .LOCK, .UNLOCK
            .MCALL  .LOOKUP, .ENTER, .CLOSE
            .MCALL  .READW, .WRITW
            .MCALL  .PRINT, .TTINR, .TTYIN
            .MCALL  .EXIT
    
    ILUN=1
    OLUN=2
    
    DZLEN=800.
    UNIT=10.
    
    AREA:   .BLKW   10
    
    INAM:   .RAD50  /MZ1         /
    ONAM:   .RAD50  /MZ0DZDISKDSK/
    
    BLK:    .WORD   0
    
    BUF:    .BLKW   256.*UNIT
    
    START:  .LOCK
            CALL    ASK1
            BCS     EXIT
            CALL    INIT
            CLR     BLK
            MOV     #DZLEN/UNIT,R5
    LOOP:   MOV     R5,-(SP)
            CALL    GET
            CALL    PUT
            ADD     #UNIT,BLK
            MOV     (SP)+,R5
            SOB     R5,LOOP
            .CLOSE  #ILUN
            .CLOSE  #OLUN
    EXIT:   CALL    ASK2
            .UNLOCK
            .EXIT
    ;
    M1:     .ASCII  /DZ diskette copier V01. (c) by WAS, 1992./<15><12>
            .ASCII  /Insert input disk into MZ1: /<15><12>
            .ASCII  /  and disk for output file "DZDISK.DSK" into MZ0:/<15><12>
            .ASCII  /Continue ?/<200>
            .EVEN
    ASK1:   .PRINT  #M1
            .TTYIN
            CALL    REST
            CMPB    #'N,R0
            BEQ     20$
            CMPB    #'Y,R0
            BNE     ASK1
            TST     (PC)+
    20$:    SEC
            RETURN
    ;
    M2:     .ASCII  /Insert system disk. Continue ?/<200>
            .EVEN
    ASK2:   .PRINT  #M2
            .TTYIN
            CALL    REST
            CMPB    #'Y,R0
            BNE     ASK2
            RETURN5
    ;
    INIT:   .LOOKUP #AREA,#ILUN,#INAM
            .ENTER  #AREA,#OLUN,#ONAM,#DZLEN
            RETURN
    ;
    GET:    MOV     BLK,BL0
            MOV     #UNIT,R4
            MOV     #BUF,R5
    L:      MOV     R4,-(SP)
            MOV     R5,-(SP)
            CALL    CONV
            MOV     (SP)+,R5
            MOV     (SP)+,R4
            .READW  #AREA,#ILUN,R5,#256.,BL
            INC     BL0
            ADD     #256.*2,R5
            SOB     R4,L
            RETURN
    ;
    PUT:
            .WRITW  #AREA,#OLUN,#BUF,#256.*UNIT,BLK
            RETURN
    ;
    BL0:    .WORD   0
    BL:     .WORD   0
    TRACK:  .BYTE   0
    SECTOR: .BYTE   0
    TRKOFF: .WORD   0
    ;
    CONV:   CALL    CNV1
            CALL    CNV2
            RETURN
    ;
    CNV1:   MOV     BL0,R5
            MOV     (PC)+,R4
            .BYTE   -7.,-10.
    50$:    CMP     #1280.,R5
            BHI     60$
            ADD     #-1280.,R5
    60$:    ROL     R5
            INCB    R4
            BLE     50$
            MOVB    R5,R1
            ADD     R4,R5
            MOV     R1,R4
            ASL     R1
    70$:    SUB     #10.,R1
            BGT     70$
            MOV     R1,TRKOFF
            MOV     R5,TRACK
    TTTT:
            MOVB    SECTOR,R2
            BGT     50$
            SUB     #-6.,R2
            BGT     40$
            ADD     #4.,R2
            SEC
    40$:    ROL     R2
            ADD     TRKOFF,R2
            BGT     50$
            ADD     #10.,R2
    50$:    MOVB    TRACK,R0
            CMPB    R0,#80.
            BNE     60$
            CLR     R0
    60$:    MOVB    R0,TRACK
            MOVB    R2,SECTOR
            RETURN
    ;
    CNV2:   CLR     R1
            BISB    TRACK,R1
            MUL     #20.,R1
            MOV     R1,R0
            CLR     R1
            BISB    SECTOR,R1
            DEC     R1
            ADD     R1,R0
            MOV     R0,BL
            RETURN
    ;
    REST:   MOV     R0,-(SP)
    10$:    .TTINR
            BCC     10$
            MOV     (SP)+,R0
            RETURN
    
            .END    START
    >

  2. Этот пользователь поблагодарил Hunta за это полезное сообщение:

    hobot (07.04.2021)

  3. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Квант-8 - информация
    от esl в разделе Корвет
    Ответов: 42
    Последнее: 29.05.2020, 16:48
  2. Квант
    от Mx_Serg в разделе Специалист
    Ответов: 45
    Последнее: 20.03.2017, 02:58
  3. расскажите о PDP-11 и его софте
    от bigral в разделе ДВК, УКНЦ
    Ответов: 88
    Последнее: 16.03.2013, 19:27
  4. Квант 4С
    от Sergei Frolov в разделе ДВК, УКНЦ
    Ответов: 0
    Последнее: 16.04.2008, 14:23

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •