?login_element?

Subversion Repositories NedoOS

Rev

Rev 555 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.         DEVICE ZXSPECTRUM1024
  2.         include "../../_sdk/sys_h.asm"
  3.  
  4.         macro PUSHs
  5.         PUSH    HL
  6.         PUSH    DE
  7.         PUSH    BC
  8.         ENDM
  9.         macro POPs
  10.         POP     BC
  11.         POP     DE
  12.         POP     HL
  13.         ENDM
  14.  
  15.         slot 0
  16.         page 8
  17.  
  18.         slot 3
  19.         page 0
  20.  
  21.         org PROGSTART
  22. begin
  23. ORGX
  24.         jp START
  25.  
  26. ; Чёрный Ворон
  27. ; Стартовый менеджер загрузки заставки
  28. ; а затем - фильм, инструкция или игра
  29.  
  30. DSCR    EQU #4000
  31. SCR     EQU #C000
  32.  
  33.         ;DEFB #D1,#BB ;метка диска 1
  34.         ;JP F_CUT
  35.         db "  Black Raven StartUp Manager  "
  36. ;Декомпрессор
  37.  
  38. DLPCB   db "v101b"
  39.         include "xdelpz.asm"
  40.  
  41. DELPZF  LD DE,#FFFE
  42. ;Декомпрессор
  43. ;HL - ОТКУДА И КУДА, DE - ВЕРХНЯЯ ГРАНИЦА ОБЛАСТИ
  44. DELPZX  PUSH HL
  45.         LD C,(HL)
  46.         INC HL
  47.         LD B,(HL)
  48.         ADD     HL,BC
  49.         LDDR
  50.         EX      DE,HL
  51.         INC     HL
  52.         POP     DE
  53.         JP      DELPZ
  54.  
  55. MEM0    XOR A;Cтандартная страница-0
  56.         JR      MEM
  57.  
  58. MEM7    LD      A,7
  59. MEM    
  60.         if 1==1
  61. _128
  62.         push bc
  63.         ;LD     BC,#7FFD
  64.         ;LD     (R128),A
  65.         ;OUT    (C),A
  66.         ;and 7
  67.         ld ($+3+1),a
  68.         ld a,(ttexpgs)
  69.         ;LD     (R128),A
  70.         SETPG32KHIGH
  71.         pop bc
  72.         RET
  73.         else
  74.         OR      %10000
  75.         PUSH BC
  76.         LD      BC,#7FFD
  77.         OUT     (C),A
  78.         POP BC
  79.         RET
  80.         endif
  81.  
  82. OFFD    XOR     A
  83. OFFD__  LD      DE,DSCR+#1AFE
  84.         LD      HL,DSCR+#1AFF
  85.         LD      BC,768
  86.         LD      (HL),A
  87.         LDDR
  88.         RET
  89.  
  90. OFFS    CALL    MEM7
  91. OFFS_   LD      DE,SCR+#1AFE
  92.         LD      HL,SCR+#1AFF
  93.         LD      BC,768
  94.         LD      (HL),0
  95.         LDDR
  96.         RET
  97.  
  98. SW5     ;LD A,%10000 ;норм экр
  99.         ld e,0
  100.         JR SW_
  101. SW7     ;LD A,%11000
  102.         ld e,1
  103. SW_     ;LD (MEM+1),A ;доп экр
  104.         OS_SETSCREEN
  105.         RET
  106.  
  107.         ds 256+ORGX-$,#F6
  108.  
  109.         DEFW    S,S,S,S,S,S,S,S,S,S,S,S,S,S
  110.  
  111.         align 256
  112. ttexpgs
  113.         ds 256
  114.  
  115. ;TR00    DI
  116. ;        LD      IX,#2F5F
  117. ;        CALL    DOS
  118. ;        LD      IX,#2F65
  119. ;        JP      DOS
  120.  
  121. F_DAT
  122.  
  123. ;*F w&DISK1
  124.         if 1==0
  125. ;sec,trk,size
  126.   DEFB   #C0,0,16       ; none (0)
  127.   DEFB  #C0,2,9         ; file (1) name (..\W01\W&START1.B04)
  128.   DEFB  #C4,3,10        ; file (2) name (..\W01\W&START1.lp2)
  129.   DEFB  #C4,5,8         ; file (3) name (..\W01\W&START1.lp3)
  130.   DEFB  #C2,7,40        ; file (4) name (..\W01\W&START1.B01)
  131.   DEFB   #C1,15,16      ; none (5)
  132.   DEFB  #C2,15,12       ; file (6) name (..\game.lpz\w.lp0)
  133.   DEFB  #C4,17,11       ; file (7) name (..\game.lpz\w.lp1)
  134.   DEFB  #C0,20,12       ; file (8) name (..\game.lpz\w.lp5)
  135.   DEFB  #C2,22,9        ; file (9) name (..\game.lpz\w.lp7)
  136.   DEFB  #C1,24,8        ; file (10) name (..\game.lpz\w.lp3)
  137.   DEFB  #C4,25,8        ; file (11) name (..\game.lpz\w.lp4)
  138.   DEFB  #C2,27,1        ; file (12) name (..\game.lpz\w0_s1.lpz)
  139.   DEFB  #C3,27,9        ; file (13) name (..\game.lpz\w.lp6)
  140.   DEFB   #C2,42,16      ; none (14)
  141.   DEFB  #C2,29,16       ; file (15) name (..\W01\W&FINAL.BIN)
  142.   DEFB  #C3,32,5        ; file (16) name (..\intro\flick.lpz\waniB_0.lpz) ;используем файлы, начиная с этого №16
  143.   DEFB  #C3,33,5        ; file (17) name (..\intro\flick.lpz\waniB_1.lpz)
  144.   DEFB  #C3,34,10       ; file (18) name (..\intro\flick.lpz\waniD_0.lpz)
  145.   DEFB  #C3,36,9        ; file (19) name (..\intro\flick.lpz\waniD_1.lpz)
  146.   DEFB  #C2,38,5        ; file (20) name (..\intro\flick.lpz\wani8_0.lpz)
  147.   DEFB  #C2,39,4        ; file (21) name (..\intro\flick.lpz\wani8_1.lpz)
  148.   DEFB  #C1,40,10       ; file (22) name (..\intro\flick.lpz\waniJ_0.lpz)
  149.   DEFB  #C1,42,11       ; file (23) name (..\intro\flick.lpz\waniJ_1.lpz)
  150.   DEFB  #C2,44,11       ; file (24) name (..\intro\flick.lpz\waniA_0.lpz)
  151.   DEFB  #C3,46,11       ; file (25) name (..\intro\flick.lpz\waniA_1.lpz)
  152.   DEFB  #C4,48,11       ; file (26) name (..\intro\flick.lpz\waniC_0.lpz)
  153.   DEFB  #C0,51,12       ; file (27) name (..\intro\flick.lpz\waniC_1.lpz)
  154.   DEFB  #C2,53,13       ; file (28) name (..\intro\flick.lpz\waniG_0.lpz)
  155.   DEFB  #C0,56,12       ; file (29) name (..\intro\flick.lpz\waniG_1.lpz)
  156.   DEFB  #C2,58,10       ; file (30) name (..\intro\flick.lpz\waniI_0.lpz)
  157.   DEFB  #C2,60,9        ; file (31) name (..\intro\flick.lpz\waniI_1.lpz)
  158.   DEFB  #C1,62,11       ; file (32) name (..\intro\flick.lpz\wani7_0.lpz)
  159.   DEFB  #C2,64,9        ; file (33) name (..\intro\flick.lpz\wani7_1.lpz)
  160.   DEFB  #C1,66,10       ; file (34) name (..\intro\flick.lpz\waniE_0.lpz)
  161.   DEFB  #C1,68,11       ; file (35) name (..\intro\flick.lpz\waniE_1.lpz)
  162.   DEFB  #C2,70,13       ; file (36) name (..\intro\flick.lpz\waniF_0.lpz)
  163.   DEFB  #C0,73,12       ; file (37) name (..\intro\flick.lpz\waniF_1.lpz)
  164.   DEFB  #C2,75,11       ; file (38) name (..\intro\flick.lpz\wani9_0.lpz)
  165.   DEFB  #C3,77,12       ; file (39) name (..\intro\flick.lpz\wani9_1.lpz)
  166.   DEFB  #C0,80,12       ; file (40) name (..\intro\flick.lpz\wani2_0.lpz)
  167.   DEFB  #C2,82,11       ; file (41) name (..\intro\flick.lpz\wani2_1.lpz)
  168.   DEFB  #C3,84,11       ; file (42) name (..\intro\flick.lpz\wani6_0.lpz)
  169.   DEFB  #C4,86,12       ; file (43) name (..\intro\flick.lpz\wani6_1.lpz)
  170.   DEFB  #C1,89,9        ; file (44) name (..\intro\flick.lpz\waniH_0.lpz)
  171.   DEFB  #C0,91,6        ; file (45) name (..\intro\flick.lpz\waniH_1.lpz)
  172.   DEFB  #C1,92,8        ; file (46) name (..\intro\flick.lpz\wani3_0.lpz)
  173.   DEFB  #C4,93,8        ; file (47) name (..\intro\flick.lpz\wani3_1.lpz)
  174.   DEFB  #C2,95,10       ; file (48) name (..\intro\flick.lpz\wani4_0.lpz)
  175.   DEFB  #C2,97,10       ; file (49) name (..\intro\flick.lpz\wani4_1.lpz)
  176.   DEFB  #C2,99,10       ; file (50) name (..\intro\flick.lpz\wani5_0.lpz)
  177.   DEFB  #C2,101,10      ; file (51) name (..\intro\flick.lpz\wani5_1.lpz)
  178.   DEFB  #C2,103,11      ; file (52) name (..\intro\flick.lpz\waniU_0.lpz)
  179.   DEFB  #C3,105,12      ; file (53) name (..\intro\flick.lpz\waniU_1.lpz)
  180.   DEFB  #C0,108,8       ; file (54) name (..\intro\flick.lpz\waniV_0.lpz)
  181.   DEFB  #C3,109,9       ; file (55) name (..\intro\flick.lpz\waniV_1.lpz)
  182.   DEFB  #C2,111,10      ; file (56) name (..\intro\flick.lpz\waniW_0.lpz)
  183.   DEFB  #C2,113,9       ; file (57) name (..\intro\flick.lpz\waniW_1.lpz)
  184.   DEFB  #C1,115,10      ; file (58) name (..\intro\flick.lpz\waniX_0.lpz)
  185.   DEFB  #C1,117,11      ; file (59) name (..\intro\flick.lpz\waniX_1.lpz)
  186.   DEFB  #C2,119,11      ; file (60) name (..\intro\flick.lpz\waniY_0.lpz)
  187.   DEFB  #C3,121,11      ; file (61) name (..\intro\flick.lpz\waniY_1.lpz)
  188.   DEFB  #C4,123,10      ; file (62) name (..\intro\flick.lpz\waniZ_0.lpz)
  189.   DEFB  #C4,125,10      ; file (63) name (..\intro\flick.lpz\waniZ_1.lpz)
  190.         endif
  191.        
  192.         db "B"
  193.         db "D"
  194.         db "8"
  195.         db "J"
  196.         db "A"
  197.         db "C"
  198.         db "G"
  199.         db "I"
  200.         db "7"
  201.         db "E"
  202.         db "F"
  203.         db "9"
  204.         db "2"
  205.         db "6"
  206.         db "H"
  207.         db "3"
  208.         db "4"
  209.         db "5"
  210.         db "U"
  211.         db "V"
  212.         db "W"
  213.         db "X"
  214.         db "Y"
  215.         db "Z"
  216.        
  217. curfilename
  218. curfilename_letter=$+4
  219. curfilename_number=$+6
  220.         db "waniZ_1.lpz",0
  221.        
  222.  
  223. R128
  224.         db 0
  225.  
  226. br_path
  227.                 defb "br",0
  228.  
  229. texfilename
  230.         ;db 0,"bri0.dat",0 ;его нет, чисто для заказа страницы
  231.         db 3,"bri3.dat",0
  232.         db 4,"bri4.dat",0
  233.         db 7,"bri7.dat",0
  234. ntexfilenames=3
  235.  
  236. loadpic
  237.         ld e,3
  238.         OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
  239.         ld e,0
  240.         OS_SETSCREEN
  241.         ld e,0 ;color byte
  242.         OS_CLS
  243.         ld e,1
  244.         OS_SETSCREEN
  245.         ld e,0 ;color byte
  246.         OS_CLS
  247.  
  248.         ld b,25
  249. waitcls0
  250.         push bc
  251.         YIELD
  252.         pop bc
  253.         djnz waitcls0 ;чтобы nv не затёр pg7
  254.        
  255.                 ld de,br_path
  256.                 OS_CHDIR
  257.  
  258.         OS_GETMAINPAGES
  259. ;dehl=номера страниц в 0000,4000,8000,c000
  260.         ld a,l
  261.         ;LD (ttexpgs+0),A
  262.         ld hl,ttexpgs
  263.         ld (hl),a
  264.         ld b,7
  265. filltexpgs0
  266.         push bc
  267.         push hl
  268.         OS_NEWPAGE
  269.         pop hl
  270.         inc l
  271.         ld (hl),e
  272.         pop bc
  273.         djnz filltexpgs0
  274.  
  275.         ;OS_GETSCREENPAGES
  276. ;de=страницы 0-го экрана (d=старшая), hl=страницы 1-го экрана (h=старшая)
  277.         ld a,(user_scr1_high) ;ok
  278.          ld (ttexpgs+31),a ;ld (IR128),a ;на всякой случай, для прерывания
  279.          ld (getttexpgs_basepg7),a
  280.          
  281.         ld a,(user_scr0_high) ;ok
  282.         SETPG16K
  283.        
  284. ;не будем брать физические страницы, кроме 7, т.к. pg4 используется для запарывания осью
  285.  
  286.         ld hl,texfilename
  287.         ld b,ntexfilenames
  288. getttexpgs0
  289.         push bc
  290.         ld a,(hl)
  291.         cp 7
  292. getttexpgs_basepg7=$+1
  293.         ld a,0
  294.         jr z,getttexpgs7
  295.         push de
  296.         push hl
  297.         OS_NEWPAGE
  298.         ld a,e
  299.         pop hl
  300.         pop de
  301. getttexpgs7
  302.         ld c,(hl)
  303.         ld b,ttexpgs/256
  304.         ld (bc),a
  305.         inc hl
  306.         push hl
  307.         SETPG32KHIGH
  308.  
  309.         ld a,(hl)
  310.         cp ' '
  311.         jr nc,gettexpgs_noskipdata
  312.          ;jr $
  313.         inc hl
  314. gettexpgs_noskipdata
  315.         ex de,hl
  316.         push af
  317.         OS_OPENHANDLE
  318.         pop af ;CY=skip data, a=number of 8Ks to skip
  319.         jr nc,gettexpgs_noskipdata2
  320.         push bc
  321.         ld de,0
  322.         ld hl,0
  323.         rra
  324.         rr h
  325.         rra
  326.         rr h
  327.         rra
  328.         rr h
  329.         OS_SEEKHANDLE ;dehl=offset
  330.         pop bc
  331. gettexpgs_noskipdata2
  332.         push bc
  333.         ld de,0xc000 ;addr
  334.         ld hl,0x4000 ;size
  335.         OS_READHANDLE
  336.         pop bc
  337.         OS_CLOSEHANDLE
  338.                
  339.         pop hl
  340.         ld b,1
  341.         xor a
  342.         cpir ;after 0
  343.         pop bc
  344.         djnz getttexpgs0
  345.         ret
  346.  
  347.         ;ENT $
  348. S
  349. START   ;начало начал
  350.         ;DI
  351.         ;IM 1
  352.         LD SP,0x4000;#61FE
  353.         OS_HIDEFROMPARENT
  354.  
  355.         OS_GETMAINPAGES
  356. ;dehl=pages in 0000,4000,8000,c000
  357.         ld a,e
  358.         ld (curpginstr),a
  359.        
  360.         call loadpic
  361.         di
  362. ;               JP bFLAG
  363. ;               JP bINSTR
  364. ;               JP bFLICK
  365.         ;Теневик off
  366.         ;CALL ON256
  367.         ;CALL MEM0
  368.         ;LD HL,#C000
  369.         ;LD DE,#C001
  370.         ;LD BC,#5000
  371.         ;LD (HL),#A4 ;байт-заполнитель
  372.         ;LDIR ;;++
  373.         ;CALL OFF256
  374.         ;drive num
  375.         ;LD A,(23798)
  376.         ;LD (DRIVE),A
  377.         ;Заставка
  378.         LD A,%1001
  379.         OUT (254),A
  380.         CALL OFFD__
  381.         CALL MEM7
  382.         LD A,1
  383.         ;CALL LOADF
  384.         LD DE,SCR
  385.         LD HL,CROW+2
  386.         CALL DELPZ
  387.         CALL SW7
  388.         ;если ЕНТЕР нажат, сразу грузи игру
  389.         ;LD BC,#BFFE
  390.         ;IN A,(C)
  391.         ;RRA
  392.         ;JR NC,bGAME
  393.         ;
  394.         LD A,3
  395.         CALL MEM
  396.         LD A,2
  397.         ;CALL LOADG
  398.         LD A,4
  399.         CALL MEM
  400.         LD A,3
  401.         ;CALL LOADG
  402.         CALL MEM0
  403.         LD A,4
  404.         ;CALL LOADF
  405.         CALL bFLAG ;-->
  406.         ;
  407. LOADG   ;CALL LOADF
  408.         LD HL,#C000
  409.         JP DELPZF
  410.  
  411.        ;-------------
  412.         if 1==0
  413. bGAME   ;загрузка игры ; страницы 0(F6),1,*2,7,3,4,*5,6(F13)
  414.  
  415.         DI
  416.         CALL SW7
  417.         XOR A
  418.         CALL MEM
  419.         LD A,6
  420.         CALL LOADF
  421.         ;
  422.         LD A,1
  423.         CALL MEM
  424.         LD A,7
  425.         CALL LOADF
  426.         ;
  427.         LD A,2
  428.         CALL MEM
  429.         LD A,8
  430.         CALL LOADF
  431.         ;
  432.         CALL OFFD
  433.         CALL SW5
  434.         XOR A
  435.         OUT (254),A
  436.         CALL MEM7
  437.         LD A,9
  438.         CALL LOADG
  439.         CALL SW7
  440.         ;
  441.         LD A,3
  442.         CALL MEM
  443.         LD A,10
  444.         CALL LOADF
  445.         ;
  446.         LD A,4
  447.         CALL MEM
  448.         LD A,11
  449.         CALL LOADF
  450.         ;
  451.         LD A,5
  452.         CALL MEM
  453.         LD A,12 ;4k!
  454.         CALL LOADF
  455.         ;
  456.         LD A,6
  457.         CALL MEM
  458.         LD A,13
  459.         CALL LOADF
  460.         ;
  461.         DI
  462.         LD B,7 ;раскрыть страницы
  463. bGloo   PUSH BC
  464.         LD A,B
  465.         DEC A
  466.         CALL MEM
  467.         LD HL,#C000
  468.         CALL DELPZF
  469.         POP BC
  470.         DJNZ bGloo
  471.         ;
  472.         LD A,6
  473.         CALL MEM
  474.         CALL #FE00 ;-->перейти к старту игры в странице 6
  475.  
  476.         endif
  477.  
  478. ST_ADR  DEFB #70,#DB,#C0,#C0,#62,#C0 ;интро
  479.         DEFB #C0,#C0,#C0,#C0,#C0,#C0,#C0,#C0,#C0,#80 ;нач. игры
  480.         ;#C0-все флики
  481.  
  482. firstT  EQU #C0 ;перв сектор
  483. lastT   EQU #C4 ;последн сектор
  484.  
  485. READ    DI ;E-sec,D-trk,B-sec.num,HL-mem.adr
  486.         CALL    POS
  487.         LD      A,(#5CD6)
  488.         EX      AF,AF'
  489. NXT_S   DEFB    #DD
  490.        LD      L,#3 ;retry.num
  491. NXT_SC  PUSH    HL
  492.        PUSH    BC
  493. NXC_C1  PUSH    IX
  494.        LD      C,#5F
  495.        LD      A,E
  496.        CALL    RG_DOS
  497.        CALL    RD_SCT
  498.        DI ;обязательно
  499.        LD      HL,#5CD6
  500.        EX      AF,AF'
  501.         CP      (HL)
  502.         POP     IX
  503.         JR      Z,GOOD
  504.         LD      (HL),A
  505.         DEFB    #DD
  506.         DEC     L
  507.         POP     BC
  508.         POP     HL
  509.         JP      Z,ERR_RW
  510.         EX      AF,AF'
  511.        JR      NXT_SC
  512. GOOD    POP     BC
  513.        POP     HL
  514.        EX      AF,AF'
  515. GOOD1   INC     E
  516.         LD      A,E
  517.         CP      lastT+1
  518.         JR      C,OLD_TR
  519.         LD      E,firstT
  520.         INC     D
  521.         CALL    POS
  522. OLD_TR  INC     H
  523.         INC     H
  524.         INC     H
  525.         INC     H
  526.         DJNZ    NXT_S
  527.         DI
  528.         XOR     A
  529.         RET
  530.  
  531. DRIVE   DEFB 0 ;текущий дисковод
  532.  
  533. POS     LD      A,(DRIVE)
  534.         ADD     A,#3C
  535.         BIT     0,D
  536.         JR      Z,DW_SID
  537.         RES     4,A
  538. DW_SID  LD      C,#FF
  539.         CALL    RG_DOS
  540.         LD      A,D
  541.         SRL     A
  542.         LD      C,#7F
  543.         CALL    RG_DOS
  544.         LD      A,#18
  545.         LD      C,#1F
  546.         CALL    RG_DOS
  547.         CALL    COM_EX
  548.         DI ;обязательно
  549.         RET
  550.  
  551. RD_SCT  LD      BC,RD_SCT
  552.         PUSH    BC
  553.         LD      BC,#17F
  554.         LD      IX,#2090
  555.         JR      DOS
  556.  
  557. RG_DOS  LD      IX,#2A53
  558.         JR      DOS
  559.  
  560. COM_EX  LD      IX,#3EF5
  561. DOS     PUSH    IX
  562.         JP      #3D2F
  563.  
  564. ERR_RW  SCF
  565.         RET
  566.  
  567.  
  568. WA      RLCA
  569. BA      ADD     A,L
  570.         LD      L,A
  571.         JR      NC,B1
  572.         INC     H
  573. B1      LD      A,(HL)
  574.         RET
  575.  
  576. LOADF   ;A-N ф-ла (0..NN)
  577.         PUSH    AF
  578.          sub 16
  579.          rra
  580.         ;LD D,A
  581.         ;ADD A,A
  582.         ;ADD A,D
  583.         LD HL,F_DAT
  584.         CALL BA ;add hl,a:ld a,(hl)
  585.         ;LD E,(HL)
  586.         ;INC HL
  587.         ;LD D,(HL)
  588.         ;INC HL
  589.         ;LD B,(HL)
  590.          ld (curfilename_letter),a
  591.         POP AF
  592.          and 1
  593.          add a,'0'
  594.          ld (curfilename_number),a
  595.         ;LD H,#C0 ;флики
  596.         ;CP 16
  597.         ;JR NC,L16
  598.         ;LD HL,ST_ADR ;остальные файлы
  599.         ;CALL BA
  600.         ;LD H,A
  601. ;L16     XOR A
  602.         ;LD L,A
  603. ;RETRY1  ;CALL    READ
  604.         ;RET     NC
  605.         ;DI
  606.         ;CALL    TR00
  607.         ;CALL    TR00
  608.         ;CALL    TR00
  609.         ;JR      RETRY1
  610.         ld de,curfilename
  611.         OS_OPENHANDLE
  612.         push bc
  613.         ld de,0xc000 ;addr
  614.         ld hl,0x4000 ;size
  615.         OS_READHANDLE
  616.         pop bc
  617.         OS_CLOSEHANDLE
  618.         ret
  619.  
  620. ;===============================
  621.  
  622.         ;ORG #6200 ;.B01
  623.         include "WINTRO.asm"
  624. ;*L+
  625.         ;ds 0x4000-$
  626.         ds 0x5b00-$
  627.         include "WINSTR.asm"
  628. WFTXT
  629.         incbin "data/wflictxt.lpz"
  630. MUS     EQU 60000
  631.         ds MUS-$,#10
  632.         incbin "intro/forgivme.mus"
  633.  
  634. ;*L+
  635.         db "End of code"
  636. end
  637.  
  638. ;*P3;======3        .B02
  639.         ;slot 3
  640.         page 3
  641.         ORG #C000
  642. begin3
  643.         incbin "intro/xlag_bl0.dat"
  644. PIKE
  645.         incbin "intro/wxlag.lpz"
  646. end3
  647. ;*P4;======4        .B03
  648.         ;slot 3
  649.         page 4
  650.         ORG #C000
  651. begin4
  652.         incbin "intro/xlag_bl1.dat"
  653. end4
  654. ;*P7;======7        .B04
  655.         ;slot 3
  656.         page 7
  657.         ORG #DB00
  658. begin7=0xc000 ;лоадер иначе не умеет
  659. CROW
  660.         incbin "barkov/crow1.lpz"
  661. J45LPZ
  662.         incbin "intro/jammy45.lpz"
  663. end7
  664. ;*P0;======0
  665.         ;slot 3
  666.         page 0
  667.  
  668. ;*P0;
  669. ;       ORG #C000
  670. ;*B ..\INTRO\FLICK.LPZ\WANI3_0.LPZ
  671. ;*P1;
  672. ;       ORG #C000
  673. ;*B ..\INTRO\FLICK.LPZ\WANI3_1.LPZ
  674. ;*P3;
  675. ;       ORG #C000
  676. ;*B ..\INTRO\FLICK.LPZ\WANI4_0.LPZ
  677. ;*P4;
  678. ;       ORG #C000
  679. ;*B ..\INTRO\FLICK.LPZ\WANI4_1.LPZ
  680. ;*P6;
  681. ;       ORG #C000
  682. ;*B ..\INTRO\FLICK.LPZ\WANI5_0.LPZ
  683. ;*P7;
  684. ;       ORG #C000
  685. ;*B ..\INTRO\FLICK.LPZ\WANI5_1.LPZ
  686. ;*P0 ;==
  687.  
  688.         display "begin=",begin
  689.         display "end=",end
  690.         ;display "Free after end=",/d,#c000-end
  691.         display "Size ",/d,end-begin," bytes"
  692.        
  693.         page 0
  694.         savebin "brintro.com",begin,end-begin
  695.         page 3
  696.         savebin "br/bri3.dat",begin3,end3-begin3
  697.         page 4
  698.         savebin "br/bri4.dat",begin4,end4-begin4
  699.         page 7
  700.         savebin "br/bri7.dat",begin7,end7-begin7
  701.        
  702.         ;LABELSLIST "..\us\user.l"
  703.  
  704.