?login_element?

Subversion Repositories NedoOS

Rev

Rev 126 | Blame | Compare with Previous | Last modification | View Log | Download

  1. /*
  2.  
  3. SjASMPlus Z80 Cross Compiler
  4.  
  5. This is modified sources of SjASM by Aprisobal - aprisobal@tut.by
  6.  
  7. Copyright (c) 2006 Sjoerd Mastijn
  8.  
  9. This software is provided 'as-is', without any express or implied warranty.
  10. In no event will the authors be held liable for any damages arising from the
  11. use of this software.
  12.  
  13. Permission is granted to anyone to use this software for any purpose,
  14. including commercial applications, and to alter it and redistribute it freely,
  15. subject to the following restrictions:
  16.  
  17. 1. The origin of this software must not be misrepresented; you must not claim
  18. that you wrote the original software. If you use this software in a product,
  19. an acknowledgment in the product documentation would be appreciated but is
  20. not required.
  21.  
  22. 2. Altered source versions must be plainly marked as such, and must not be
  23. misrepresented as being the original software.
  24.  
  25. 3. This notice may not be removed or altered from any source distribution.
  26.  
  27. */
  28.  
  29. // io_tape_ldrs.h
  30.  
  31. #define SaveTAP_ZX_Spectrum_48K_SZ 52
  32.  
  33. /*
  34.         OUTPUT "SaveTAP_ZX_Spectrum_48K.bin"
  35.  
  36.         ORG 0x5E00
  37. Loader:
  38.         LD A,7*8
  39.         LD (23693),A
  40.         CALL 0x0D6B
  41.        
  42.         ; Load Screen$
  43.         LD A,(Settings.LoadScreen)
  44.         OR A
  45.         JR Z,.SkipScreen
  46.        
  47.         LD IX,0x4000
  48.         LD DE,6912
  49.         LD A,255
  50.         SCF  
  51.         CALL 1366
  52.          
  53. .SkipScreen:                
  54.         ; Load Code Block
  55.         LD HL,(Settings.Start)
  56.         PUSH HL
  57.         LD IX,(Settings.MainBlockStart)
  58.         LD DE,(Settings.MainBlockLength)
  59.         LD A,255
  60.         SCF  
  61.         JP 1366
  62.        
  63. Settings:    
  64. .LoadScreen:      DB 0 ; Is Load Screen$?
  65. .Start:           DW 0 ; start address
  66. .MainBlockStart:  DW 0 ;
  67. .MainBlockLength: DW 0 ; block from 0x5E00(may be) to 0xBFFF
  68.  
  69. */
  70.  
  71. const unsigned char SaveTAP_ZX_Spectrum_48K[]={
  72.         0x3E,0x38,0x32,0x8D,0x5C,0xCD,0x6B,0x0D,0x3A,0x2D,
  73.         0x5E,0xB7,0x28,0x0D,0xDD,0x21,0x00,0x40,0x11,0x00,
  74.         0x1B,0x3E,0xFF,0x37,0xCD,0x56,0x05,0x2A,0x2E,0x5E,
  75.         0xE5,0xDD,0x2A,0x30,0x5E,0xED,0x5B,0x32,0x5E,0x3E,
  76.         0xFF,0x37,0xC3,0x56,0x05,0x00,0x00,0x00,0x00,0x00,
  77.         0x00,0x00
  78. };
  79.  
  80. #define SaveTAP_ZX_Spectrum_128K_SZ 116
  81.  
  82. /*
  83.         OUTPUT "SaveTAP_ZX_Spectrum_128K.bin"
  84.  
  85.         ORG 0x5E00
  86. Loader:
  87.        
  88.  
  89.         LD A,7*8
  90.         LD (23693),A
  91.         CALL 0x0D6B
  92.        
  93.         ; Load Screen$
  94.         LD A,(Settings.LoadScreen)
  95.         OR A
  96.         JR Z,.SkipScreen
  97.        
  98.         LD IX,$4000
  99.         LD DE,6912
  100.         LD A,255
  101.         SCF  
  102.         CALL 1366
  103.        
  104. .SkipScreen:
  105.  
  106.         LD HL,Table_BlockList.Table
  107.         LD A,(Table_BlockList.Count)
  108.         OR A
  109.         JR Z,.CodeBlock
  110.        
  111.         ; Load Pages' Code Block
  112. .Loop:  PUSH AF,HL
  113.        
  114.         CALL .LoadPage
  115.        
  116.         POP HL,AF
  117.         INC HL,HL,HL,HL,HL
  118.         DEC A        
  119.         JR NZ,.Loop
  120.        
  121. .CodeBlock:          
  122.         ; Set Default RAM Page
  123.         LD A,(Settings.Page)
  124.         CALL .SetPage
  125.        
  126.         ; Load Code Block
  127.         LD HL,(Settings.Start)
  128.         PUSH HL
  129.         LD IX,(Settings.MainBlockStart)
  130.         LD DE,(Settings.MainBlockLength)
  131.         LD A,255
  132.         SCF  
  133.         JP 1366        
  134.        
  135. .LoadPage:
  136.         DI
  137.         LD A,(HL)
  138.         CALL .SetPage
  139.         EI
  140.         INC HL
  141.         LD A,(HL)
  142.         LD LX,A
  143.         INC HL
  144.         LD A,(HL)
  145.         LD HX,A
  146.         INC HL
  147.         LD E,(HL)
  148.         INC HL
  149.         LD D,(HL)
  150.         LD A,255
  151.         SCF  
  152.         JP 1366  
  153.  
  154. .SetPage:
  155.         OR 16
  156.         LD BC,#7FFD
  157.         OUT (C),A
  158.         RET        
  159.  
  160. Settings:    
  161. .LoadScreen:      DB 0 ; Is Load Screen$?
  162. .Start:           DW 0 ; start address
  163. .MainBlockStart:  DW 0
  164. .MainBlockLength: DW 0 ; block from 0x5E00 to 0xBFFF
  165. .Page:            DB 0 ; set 0 page by default  
  166.  
  167. Table_BlockList:
  168. .Count:           DB 0
  169. .Table:          ;DB PAGENUM
  170.                  ;DW START
  171.                  ;DW LENGTH
  172. */
  173.  
  174. const unsigned char SaveTAP_ZX_Spectrum_128K[]={
  175.         0x3E,0x38,0x32,0x8D,0x5C,0xCD,0x6B,0x0D,0x3A,0x6B,
  176.         0x5E,0xB7,0x28,0x0D,0xDD,0x21,0x00,0x40,0x11,0x00,
  177.         0x1B,0x3E,0xFF,0x37,0xCD,0x56,0x05,0x21,0x74,0x5E,
  178.         0x3A,0x73,0x5E,0xB7,0x28,0x0F,0xF5,0xE5,0xCD,0x4B,
  179.         0x5E,0xE1,0xF1,0x23,0x23,0x23,0x23,0x23,0x3D,0x20,
  180.         0xF1,0x3A,0x72,0x5E,0xCD,0x63,0x5E,0x2A,0x6C,0x5E,
  181.         0xE5,0xDD,0x2A,0x6E,0x5E,0xED,0x5B,0x70,0x5E,0x3E,
  182.         0xFF,0x37,0xC3,0x56,0x05,0xF3,0x7E,0xCD,0x63,0x5E,
  183.         0xFB,0x23,0x7E,0xDD,0x6F,0x23,0x7E,0xDD,0x67,0x23,
  184.         0x5E,0x23,0x56,0x3E,0xFF,0x37,0xC3,0x56,0x05,0xF6,
  185.         0x10,0x01,0xFD,0x7F,0xED,0x79,0xC9,0x00,0x00,0x00,
  186.         0x00,0x00,0x00,0x00,0x00,0x00
  187. };
  188.  
  189. #define SaveTAP_ZX_Spectrum_256K_SZ 757
  190.  
  191. /*
  192.         OUTPUT "SaveTAP_ZX_Spectrum_256K.bin"
  193.  
  194.         ORG 0x5E00
  195. Loader:
  196.         DI
  197.        
  198.         CALL MEMORY.START
  199.  
  200.         EI
  201.        
  202.         LD A,7*8
  203.         LD (23693),A
  204.         CALL 0x0D6B
  205.        
  206.         ; Load Screen$
  207.         LD A,(Settings.LoadScreen)
  208.         OR A
  209.         JR Z,.SkipScreen
  210.        
  211.         LD IX,$4000
  212.         LD DE,6912
  213.         LD A,255
  214.         SCF  
  215.         CALL 1366
  216.        
  217. .SkipScreen:
  218.  
  219.         LD HL,Table_BlockList.Table
  220.         LD A,(Table_BlockList.Count)
  221.         OR A
  222.         JR Z,.CodeBlock
  223.        
  224.         ; Load Pages' Code Block
  225. .Loop:  PUSH AF,HL
  226.        
  227.         CALL .LoadPage
  228.        
  229.         POP HL,AF
  230.         INC HL,HL,HL,HL,HL
  231.         DEC A        
  232.         JR NZ,.Loop
  233.        
  234. .CodeBlock:          
  235.         ; Set Default RAM Page
  236.         LD A,(Settings.Page)
  237.         CALL MEMORY.EX_RAM        
  238.    
  239.         ; Load Code Block
  240.         LD HL,(Settings.Start)
  241.         PUSH HL
  242.         LD IX,(Settings.MainBlockStart)
  243.         LD DE,(Settings.MainBlockLength)
  244.         LD A,255
  245.         SCF  
  246.         JP 1366        
  247.        
  248. .LoadPage:
  249.         DI
  250.         LD A,(HL)
  251.         PUSH HL
  252.         CALL MEMORY.EX_RAM
  253.         POP HL
  254.         EI
  255.         INC HL
  256.         LD A,(HL)
  257.         LD LX,A
  258.         INC HL
  259.         LD A,(HL)
  260.         LD HX,A
  261.         INC HL
  262.         LD E,(HL)
  263.         INC HL
  264.         LD D,(HL)
  265.         LD A,255
  266.         SCF  
  267.         JP 1366  
  268.        
  269.     MODULE MEMORY
  270.  
  271. ;Memory driver
  272. ;(C) Pawel/RS
  273. ;(C) Creator
  274. ;Ïåðåä  ðàáîòîé ñ äðàéâåðîì âûçîâèòå ïîäï-
  275. ;ðîãðàììó START, äëÿ èíèöèàëèçàöèè è îïðå-
  276. ;äåëåíèÿ ñâîáîäíîé ïàìÿòè.
  277.  
  278. ;Ïîäêëþ÷åíèå ëîãè÷åñêîãî áàíêà, íîìåð â A,
  279. ;íóìåðàöèÿ íà÷èíàåòñÿ ñ íóëÿ.
  280. ONPAGE  PUSH    BC
  281.         PUSH    HL
  282.         LD      C,A
  283.         LD      B,0
  284.         LD      HL,TABL_PG
  285.         ADD     HL,BC
  286.         LD      A,(HL)
  287.         POP     HL
  288.         POP     BC
  289. EX_RAM  DI
  290.         PUSH    HL
  291.         PUSH    AF
  292.         PUSH    BC
  293.         LD      HL,TYPE
  294.         BIT     1,(HL)
  295.         JR      NZ,ZS256
  296.         BIT     2,(HL)
  297.         JR      NZ,PROFI
  298.         BIT     3,(HL)
  299.         JR      NZ,TURBO_2
  300.         BIT     4,(HL)
  301.         JR      NZ,ATM1
  302.         BIT     0,(HL)
  303.         JR      NZ,SPECCY
  304.         BIT     7,(HL)
  305.         JR      NZ,SPECCY
  306.         JR      TDK
  307.  
  308. TURBO_2 PUSH    AF
  309.         PUSH    IX
  310.         AND     24
  311.         CPL
  312.         LD      BC,#FFF7
  313.         CALL    OUTC_A
  314.         POP     IX
  315.         POP     AF
  316.         JP      SPECCY
  317.  
  318. ATM1    LD      BC,#FDFD
  319.         PUSH    AF
  320.         RRCA
  321.         RRCA
  322.         RRCA
  323.         AND     3
  324.         JR      HOME
  325.  
  326. PROFI   LD      BC,#DFFD
  327.         PUSH    AF
  328.         RRCA
  329.         RRCA
  330.         RRCA
  331.         AND     7
  332.         JR      HOME
  333.  
  334. ZS256   PUSH    AF
  335.         LD      B,A
  336.         AND     %00001000
  337.         RLCA
  338.         LD      C,A
  339.         LD      A,B
  340.         AND     %00110000
  341.         RLCA
  342.         RLCA
  343.         ADD     A,C
  344.         LD      BC,#1FFD
  345. HOME    OUT     (C),A
  346.         NOP
  347.         POP     AF
  348.  
  349. SPECCY  LD      B,A
  350.         AND     24
  351.         RLCA
  352.         RLCA
  353.         RLCA
  354.         LD      C,A
  355.         LD      A,B
  356.         AND     7
  357.         ADD     A,C
  358.         OR      16
  359.         LD      BC,#7FFD
  360.         OUT     (C),A
  361.         NOP
  362. TDK     POP     BC
  363.         POP     AF
  364.         POP     HL
  365.         RET
  366.  
  367. OUTC_A  LD      IX,10835
  368.         PUSH    IX
  369.         JP      15663
  370.  
  371.  
  372. ;Èíèöèàëèçàöèÿ  è òåñò ïàìÿòè, âûçûâàåòñÿ
  373. ;â íà÷àëå ðàáîòû, ïîñëå ÷åãî ïàìÿòü çàíè-
  374. ;ìàåìóþ ïðîãðàììîé íèæå, ìîæíî èñïîëüçî-
  375. ;âàòü ïî ñâîåìó óñìîòðåíèþ.
  376.  
  377. START   CALL    TEST
  378.         LD      A,(8)
  379.         CP      #2A   ;åñëè SCORPION, òî
  380.         RET     Z     ;óäàëèòü èç ñïèñêà
  381.         LD      C,8   ;8-é áàíê, èñïîëü-
  382.         JP      DEBUG ;çóþùèéñÿ ìîíèòîðîì.
  383.  
  384. TEST    CALL    TABINIT
  385.         XOR     A
  386.         LD      (TYPE),A
  387.         INC     A
  388.         LD      (PAGE),A
  389.         DI
  390.         LD      A,(#08)
  391.         CP      #C3
  392.         JR      NZ,ITURBO
  393.         LD      HL,TYPE
  394.         SET     7,(HL)
  395. ITURBO  LD      HL,(1111)
  396.         LD      BC,#FFF7
  397.         LD      A,%00011111
  398.         CALL    OUTC_A
  399.         LD      DE,(#C000+1111)
  400.         AND     A
  401.         SBC     HL,DE
  402.         LD      BC,#FFF7
  403.         LD      A,255
  404.         CALL    OUTC_A
  405.         JR      NZ,IDFFD
  406.         LD      HL,TYPE
  407.         SET     3,(HL)
  408.         JR      I7FFD
  409. MM_ATM  DB      #DB,#1F,#C9
  410. IDFFD   LD      HL,#80
  411.         LD      DE,#1000
  412.         LD      BC,#DFFD
  413.         OUT     (C),D
  414.         NOP
  415.         LD      A,(HL)
  416.         INC     (HL)
  417.         CP      (HL)
  418.         LD      (HL),A
  419.         OUT     (C),E
  420.         NOP
  421.         JR      Z,I1FFD
  422.         LD      HL,TYPE
  423.         SET     2,(HL)
  424.         OUT     (C),D
  425.         NOP
  426.         LD      B,#7F
  427.         OUT     (C),D
  428.         NOP
  429.         LD      B,#DF
  430.         OUT     (C),E
  431.         NOP
  432.         JR      I7FFD
  433. I1FFD   LD      DE,#1110
  434.         LD      B,#1F
  435.         OUT     (C),D
  436.         NOP
  437.         LD      A,(HL)
  438.         INC     (HL)
  439.         CP      (HL)
  440.         LD      (HL),A
  441.         OUT     (C),E
  442.         NOP
  443.         JR      Z,IFDFD
  444.         XOR     A
  445.         OUT     (C),A
  446.         LD      HL,TYPE
  447.         SET     1,(HL)
  448.         JP      I7FFD
  449. IFDFD   LD      B,C
  450.         LD      HL,#FFFF
  451.         OUT     (C),D
  452.         NOP
  453.         LD      B,#7F
  454.         OUT     (C),D
  455.         NOP
  456.         LD      A,(HL)
  457.         LD      (RBT2+1),A
  458.         LD      (HL),D
  459.         LD      B,C
  460.         OUT     (C),E
  461.         NOP
  462.         LD      B,#7F
  463.         OUT     (C),D
  464.         NOP
  465.         LD      A,(HL)
  466.         LD      (RBT+1),A
  467.         LD      (HL),E
  468.         LD      B,C
  469.         OUT     (C),D
  470.         NOP
  471.         LD      B,#7F
  472.         OUT     (C),D
  473.         NOP
  474.         LD      A,(HL)
  475.         CP      D
  476.         JR      NZ,I7FFD
  477.         LD      HL,TYPE
  478.         SET     4,(HL)
  479. I7FFD   LD      HL,#FFFF
  480.         LD      B,#7F
  481.         OUT     (C),E
  482.         NOP
  483.         LD      A,(HL)
  484.         LD      (RBT0+1),A
  485.         LD      (HL),E
  486.         OUT     (C),D
  487.         NOP
  488.         LD      (HL),D
  489.         OUT     (C),E
  490.         NOP
  491.         LD      A,D
  492.         CP      (HL)
  493.         JR      Z,SIZED
  494.         LD      HL,TYPE
  495.         SET     0,(HL)
  496. SIZED   LD      HL,#FFFF
  497. RBT0    LD      (HL),0
  498.         LD      B,C
  499.         OUT     (C),E
  500.         NOP
  501.         LD      B,#7F
  502.         OUT     (C),D
  503.         NOP
  504. RBT     LD      (HL),0
  505.         LD      B,C
  506.         OUT     (C),D
  507.         NOP
  508.         LD      B,#7F
  509.         OUT     (C),D
  510.         NOP
  511. RBT2    LD      (HL),0
  512.         CALL    VIRT
  513.         LD      A,(PAGE)
  514.         CP      8
  515.         JR      C,ENDING
  516.         LD      A,(TYPE)
  517.         CP      1
  518.         JR      NZ,ENDING
  519.         LD      HL,TYPE
  520.         SET     5,(HL)
  521. ENDING  XOR     A
  522.         CALL    EX_RAM
  523.         EI
  524.         RET
  525.  
  526. VIRT    LD      IX,#C000
  527.         LD      HL,VTABL+63
  528.         LD      B,64
  529. V_R11   LD      A,B
  530.         DEC     A
  531.         CALL    EX_RAM
  532.         LD      C,(IX+0)
  533.         LD      (HL),C
  534.         LD      (IX+0),A
  535.         DEC     HL
  536.         DJNZ    V_R11
  537.         PUSH    AF
  538.         LD      A,LENTABL-1
  539.         LD      (PAGE),A
  540.         POP     AF
  541.         LD      DE,TABL_PG
  542. V_R20   LD      A,(DE)
  543.         CP      #FF
  544.         JR      Z,V_R30
  545.         CALL    EX_RAM
  546.         CP      (IX+0)
  547.         JR      Z,V_R22
  548.         PUSH    DE
  549.         LD      HL,TABL_PG+LENTABL
  550.         AND     A
  551.         SBC     HL,DE
  552.         PUSH    HL
  553.         POP     BC
  554.         PUSH    DE
  555.         POP     HL
  556.         INC     HL
  557.         LDIR
  558.         PUSH    HL
  559.         LD      HL,PAGE
  560.         DEC     (HL)
  561.         POP     HL
  562.         POP     DE
  563.         DEC     DE
  564. V_R22   INC     DE
  565.         JR      V_R20
  566. V_R30   LD      B,64
  567.         LD      HL,VTABL
  568. V_R31   LD      A,64
  569.         SUB     B
  570.         CALL    EX_RAM
  571.         LD      A,(HL)
  572.         LD      (IX+0),A
  573.         INC     HL
  574.         DJNZ    V_R31
  575.         RET
  576.  
  577. ;óäàëåíèå èç òàáëèöû áàíêà ñ íîìåðîì â
  578. ;ðåãèñòðå C, âûçûâàòü ñðàçó ïîñëå òåñòà.
  579.  
  580. DEBUG   PUSH    DE
  581.         POP     HL
  582. NO_PG1  DEC     DE
  583.         LD      A,(DE)
  584.         CP      #FF
  585.         JR      Z,NO_PG2
  586.         CP      C
  587.         JR      NZ,NO_PG1
  588.         SBC     HL,DE
  589.         PUSH    HL
  590.         POP     BC
  591.         PUSH    DE
  592.         POP     HL
  593.         INC     HL
  594.         LDIR
  595.         PUSH    HL
  596.         LD      HL,PAGE
  597.         DEC     (HL)
  598.         POP     HL
  599.         DEC     HL
  600.         DEC     HL
  601. NO_PG2  EX      DE,HL
  602.         RET
  603.  
  604. ;Ñîçäàíèå òàáëèöû áàíêîâ, ñ èñêëþ÷åíèåì
  605. ;íå èñïîëüçóþùèõñÿ, â äàííîì âàðèàíòå
  606. ;óäàëÿþòñÿ 2-é è 5-é áàíêè.
  607.  
  608. TABINIT LD      HL,TABL_PG-1
  609.         LD      (HL),255
  610.         INC     HL
  611.         XOR     A
  612. TABI1   LD      (HL),A
  613.         INC     A
  614.         CP      2
  615.         JR      Z,TABI1A
  616.         CP      5
  617.         JR      Z,TABI1A
  618.         JR      TABI2
  619. TABI1A  INC     A
  620. TABI2   INC     HL
  621.         CP      LENTABL+1
  622.         JR      NZ,TABI1
  623.         LD      (HL),255
  624.         LD      HL,VTABL
  625.         PUSH    HL
  626.         POP     DE
  627.         INC     DE
  628.         LD      BC,63
  629.         LD      (HL),0
  630.         LDIR
  631.         RET
  632.  
  633. LENTABL EQU     62 ;ìàêñèìàëüíîå êîëè÷åñ-
  634.                    ;òâî èñïîëüçóþùèõñÿ
  635.                    ;áàíêîâ.
  636.  
  637.         DB      0  ;êîä íà÷àëà òàáëèöû
  638. TABL_PG DS      LENTABL+1
  639.  
  640. TYPE    DB      0  ;òèï êîìïüþòåðà
  641.  
  642. PAGE    DB      0  ;îáùåå ÷èñëî äîñòóïíûõ
  643.                    ;áàíêîâ
  644.  
  645. VTABL   EQU     0xBB00 ;23296 ;òàáëèöà áàíêîâ, èñ-
  646.                       ;ïîëüçóåòñÿ òîëüêî
  647.                       ;ïðè òåñòå, 64 áàéòà
  648.                          
  649.     ENDMODULE  
  650.        
  651. Settings:    
  652. .LoadScreen:      DB 0 ; Is Load Screen$?
  653. .Start:           DW 0 ; start address
  654. .MainBlockStart:  DW 0
  655. .MainBlockLength: DW 0 ; block from 0x5E00 to 0xBFFF
  656. .Page:            DB 0 ; set 0 page by default  
  657.  
  658. Table_BlockList:
  659. .Count:           DB 0
  660. .Table:          ;DB PAGENUM
  661.                  ;DW START
  662.                  ;DW LENGTH
  663. */
  664.  
  665. const unsigned char SaveTAP_ZX_Spectrum_256K[]={
  666.         0xF3,0xCD,0xF2,0x5E,0xFB,0x3E,0x38,0x32,0x8D,0x5C,
  667.         0xCD,0x6B,0x0D,0x3A,0xEC,0x60,0xB7,0x28,0x0D,0xDD,
  668.         0x21,0x00,0x40,0x11,0x00,0x1B,0x3E,0xFF,0x37,0xCD,
  669.         0x56,0x05,0x21,0xF5,0x60,0x3A,0xF4,0x60,0xB7,0x28,
  670.         0x0F,0xF5,0xE5,0xCD,0x50,0x5E,0xE1,0xF1,0x23,0x23,
  671.         0x23,0x23,0x23,0x3D,0x20,0xF1,0x3A,0xF3,0x60,0xCD,
  672.         0x76,0x5E,0x2A,0xED,0x60,0xE5,0xDD,0x2A,0xEF,0x60,
  673.         0xED,0x5B,0xF1,0x60,0x3E,0xFF,0x37,0xC3,0x56,0x05,
  674.         0xF3,0x7E,0xE5,0xCD,0x76,0x5E,0xE1,0xFB,0x23,0x7E,
  675.         0xDD,0x6F,0x23,0x7E,0xDD,0x67,0x23,0x5E,0x23,0x56,
  676.         0x3E,0xFF,0x37,0xC3,0x56,0x05,0xC5,0xE5,0x4F,0x06,
  677.         0x00,0x21,0xAB,0x60,0x09,0x7E,0xE1,0xC1,0xF3,0xE5,
  678.         0xF5,0xC5,0x21,0xEA,0x60,0xCB,0x4E,0x20,0x3E,0xCB,
  679.         0x56,0x20,0x2F,0xCB,0x5E,0x20,0x0E,0xCB,0x66,0x20,
  680.         0x1C,0xCB,0x46,0x20,0x41,0xCB,0x7E,0x20,0x3D,0x18,
  681.         0x4E,0xF5,0xDD,0xE5,0xE6,0x18,0x2F,0x01,0xF7,0xFF,
  682.         0xCD,0xE9,0x5E,0xDD,0xE1,0xF1,0xC3,0xD2,0x5E,0x01,
  683.         0xFD,0xFD,0xF5,0x0F,0x0F,0x0F,0xE6,0x03,0x18,0x1A,
  684.         0x01,0xFD,0xDF,0xF5,0x0F,0x0F,0x0F,0xE6,0x07,0x18,
  685.         0x0F,0xF5,0x47,0xE6,0x08,0x07,0x4F,0x78,0xE6,0x30,
  686.         0x07,0x07,0x81,0x01,0xFD,0x1F,0xED,0x79,0x00,0xF1,
  687.         0x47,0xE6,0x18,0x07,0x07,0x07,0x4F,0x78,0xE6,0x07,
  688.         0x81,0xF6,0x10,0x01,0xFD,0x7F,0xED,0x79,0x00,0xC1,
  689.         0xF1,0xE1,0xC9,0xDD,0x21,0x53,0x2A,0xDD,0xE5,0xC3,
  690.         0x2F,0x3D,0xCD,0x00,0x5F,0x3A,0x08,0x00,0xFE,0x2A,
  691.         0xC8,0x0E,0x08,0xC3,0x63,0x60,0xCD,0x81,0x60,0xAF,
  692.         0x32,0xEA,0x60,0x3C,0x32,0xEB,0x60,0xF3,0x3A,0x08,
  693.         0x00,0xFE,0xC3,0x20,0x05,0x21,0xEA,0x60,0xCB,0xFE,
  694.         0x2A,0x57,0x04,0x01,0xF7,0xFF,0x3E,0x1F,0xCD,0xE9,
  695.         0x5E,0xED,0x5B,0x57,0xC4,0xA7,0xED,0x52,0x01,0xF7,
  696.         0xFF,0x3E,0xFF,0xCD,0xE9,0x5E,0x20,0x0A,0x21,0xEA,
  697.         0x60,0xCB,0xDE,0x18,0x79,0xDB,0x1F,0xC9,0x21,0x80,
  698.         0x00,0x11,0x00,0x10,0x01,0xFD,0xDF,0xED,0x51,0x00,
  699.         0x7E,0x34,0xBE,0x77,0xED,0x59,0x00,0x28,0x14,0x21,
  700.         0xEA,0x60,0xCB,0xD6,0xED,0x51,0x00,0x06,0x7F,0xED,
  701.         0x51,0x00,0x06,0xDF,0xED,0x59,0x00,0x18,0x4D,0x11,
  702.         0x10,0x11,0x06,0x1F,0xED,0x51,0x00,0x7E,0x34,0xBE,
  703.         0x77,0xED,0x59,0x00,0x28,0x0B,0xAF,0xED,0x79,0x21,
  704.         0xEA,0x60,0xCB,0xCE,0xC3,0xB4,0x5F,0x41,0x21,0xFF,
  705.         0xFF,0xED,0x51,0x00,0x06,0x7F,0xED,0x51,0x00,0x7E,
  706.         0x32,0xEB,0x5F,0x72,0x41,0xED,0x59,0x00,0x06,0x7F,
  707.         0xED,0x51,0x00,0x7E,0x32,0xE0,0x5F,0x73,0x41,0xED,
  708.         0x51,0x00,0x06,0x7F,0xED,0x51,0x00,0x7E,0xBA,0x20,
  709.         0x05,0x21,0xEA,0x60,0xCB,0xE6,0x21,0xFF,0xFF,0x06,
  710.         0x7F,0xED,0x59,0x00,0x7E,0x32,0xD5,0x5F,0x73,0xED,
  711.         0x51,0x00,0x72,0xED,0x59,0x00,0x7A,0xBE,0x28,0x05,
  712.         0x21,0xEA,0x60,0xCB,0xC6,0x21,0xFF,0xFF,0x36,0x00,
  713.         0x41,0xED,0x59,0x00,0x06,0x7F,0xED,0x51,0x00,0x36,
  714.         0x00,0x41,0xED,0x51,0x00,0x06,0x7F,0xED,0x51,0x00,
  715.         0x36,0x00,0xCD,0x08,0x60,0x3A,0xEB,0x60,0xFE,0x08,
  716.         0x38,0x0C,0x3A,0xEA,0x60,0xFE,0x01,0x20,0x05,0x21,
  717.         0xEA,0x60,0xCB,0xEE,0xAF,0xCD,0x76,0x5E,0xFB,0xC9,
  718.         0xDD,0x21,0x00,0xC0,0x21,0x3F,0xBB,0x06,0x40,0x78,
  719.         0x3D,0xCD,0x76,0x5E,0xDD,0x4E,0x00,0x71,0xDD,0x77,
  720.         0x00,0x2B,0x10,0xF1,0xF5,0x3E,0x3D,0x32,0xEB,0x60,
  721.         0xF1,0x11,0xAB,0x60,0x1A,0xFE,0xFF,0x28,0x21,0xCD,
  722.         0x76,0x5E,0xDD,0xBE,0x00,0x28,0x16,0xD5,0x21,0xE9,
  723.         0x60,0xA7,0xED,0x52,0xE5,0xC1,0xD5,0xE1,0x23,0xED,
  724.         0xB0,0xE5,0x21,0xEB,0x60,0x35,0xE1,0xD1,0x1B,0x13,
  725.         0x18,0xDA,0x06,0x40,0x21,0x00,0xBB,0x3E,0x40,0x90,
  726.         0xCD,0x76,0x5E,0x7E,0xDD,0x77,0x00,0x23,0x10,0xF3,
  727.         0xC9,0xD5,0xE1,0x1B,0x1A,0xFE,0xFF,0x28,0x14,0xB9,
  728.         0x20,0xF7,0xED,0x52,0xE5,0xC1,0xD5,0xE1,0x23,0xED,
  729.         0xB0,0xE5,0x21,0xEB,0x60,0x35,0xE1,0x2B,0x2B,0xEB,
  730.         0xC9,0x21,0xAA,0x60,0x36,0xFF,0x23,0xAF,0x77,0x3C,
  731.         0xFE,0x02,0x28,0x06,0xFE,0x05,0x28,0x02,0x18,0x01,
  732.         0x3C,0x23,0xFE,0x3F,0x20,0xEE,0x36,0xFF,0x21,0x00,
  733.         0xBB,0xE5,0xD1,0x13,0x01,0x3F,0x00,0x36,0x00,0xED,
  734.         0xB0,0xC9,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  735.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  736.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  737.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  738.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  739.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  740.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  741.         0x00,0x00,0x00,0x00,0x00,0x00,0x00
  742. };
  743.  
  744. //eof io_tape_ldrs.h
  745.