?login_element?

Subversion Repositories NedoOS

Rev

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

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