Subversion Repositories ngs

Rev

Rev 112 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 28.05.2021 savelij
  3.  
  4.                 include ../../../pentevo/rom/macros.a80
  5.                 include ports_ngs.a80
  6.                 include vers.a80
  7.  
  8. DDMMYY          EQU "28.05.20121"
  9.  
  10. DD              EQU 28                          ;ЧИСЛО
  11. MM              EQU 5                           ;МЕСЯЦ
  12. YY              EQU 21                          ;ГОД
  13. DATA            EQU DD|MM<<5|YY<<9|0X8000       ;ЗАКОДИРОВАННАЯ ДАТА
  14.  
  15. SM_LDT          EQU 0X54
  16. ADR_PROGR       EQU 0X5800
  17.  
  18. BUFTSC          EQU 0XB800
  19. TXT_DEC         EQU BUFTSC+0X0180
  20. TXT_HEX         EQU TXT_DEC+0X10
  21.  
  22. BUF_CRC16_TABL  EQU 0X9000                      ;200
  23. BUFFER_ZAG      EQU BUF_CRC16_TABL+0X200        ;200
  24. SKLAD           EQU BUFFER_ZAG+0X200            ;100
  25. DRV_VAR         EQU SKLAD+0X100
  26.  
  27. ;ФОРМАТ ФЛАГОВОГО БАЙТА ОКНА
  28. ;X,Y,V,H,C,C
  29. ;IX+8
  30. ;7-1-НИЖНИЙ ЗАГОЛОВОК
  31. ;6-0-С РАМКОЙ,1-БЕЗ РАМКИ
  32. ;5-1-ВЕРХНИЙ ЗАГОЛОВОК
  33. ;4-0-ТЕКСТ ОКНА,1-БЕЗ ТЕКСТА
  34. ;3
  35. ;2-0-FILE,1-*.TRD
  36. ;1-0-MENU,1-FILES
  37. ;0-0-TRDOS,1-MSDOS
  38.  
  39. ;BIT 4,(IY+55)
  40. ;BIT 3,(IY+55) 1-НЕТ ДИСКА, 0-ЕСТЬ
  41. ;BIT 2,(IY+55) 1-НЕ НАЙДЕНО, 0-FAT ЕСТЬ
  42.  
  43. ;ОПИСАТЕЛЬ ОКНА (АДРЕС В IX)
  44. ;+00 X
  45. ;+01 Y
  46. ;+02 V
  47. ;+03 H
  48. ;+04 C
  49. ;+05 C
  50. ;+06 | АДРЕСА
  51. ;+07 | ПОДПРОГРАММ
  52. ;+08 F
  53. ;+09 X
  54. ;+0A Y
  55. ;+0B V
  56. ;+0C H
  57. ;+0D | АДРЕС
  58. ;+0E | ТЕКСТА
  59. ;+0F : НОМЕР ПУНКТА В ОКНЕ
  60. ;+10 : КОЛИЧЕСТВО
  61. ;+11 : ПУНКТОВ МЕНЮ
  62. ;+12 "C" | ТЕКУЩИЙ
  63. ;+13 "B" | ПУНКТ МЕНЮ
  64.  
  65.                 ORG 0x8000
  66. START_          DI
  67.                 LD A,0X10
  68.                 LD BC,0X7FFD
  69.                 OUT (C),A                       ;ВКЛЮЧИЛИ СТРАНИЦУ 0
  70.                 CALL INITLOADER
  71.                 PUSH AF
  72.                 LD A,0X0A
  73.                 OUT (GSCOM),A
  74.                 SET 3,(IY+48)
  75.                 LD HL,0X0110
  76.                 LD (0X5C09),HL                  ;УСТАНОВИЛИ ПАРАМЕТРЫ ОПРОСА КЛАВИАТУРЫ
  77.                 LD A,0X28
  78.                 CALL CLS                        ;ОЧИСТКА ЭКРАНА
  79.                 RES 5,(IY+1)
  80.                 RES 7,(IY+48)
  81.                 RES 3,(IY+55)                   ;УСТАНОВКА ЕЩЕ НЕКОТОРЫХ ПАРАМЕТРОВ
  82.                 CALL ADRTSC                     ;ФОРМИРОВАНИЕ ТАБЛИЦЫ АДРЕСОВ ЭКРАНА
  83.                 POP AF
  84.                 JP NZ,NGSNOTFOUND
  85. RESTARTUPD      LD A,7
  86.                 OUT (GSCOM),A
  87.                 CALL WC
  88.                 IN A,(GSDAT)
  89.                 AND A
  90.                 JR Z,PROD001
  91.                 PUSH AF
  92.                 LD IX,ERROR_UPDATE
  93.                 CALL WINW
  94.                 POP AF
  95.                 LD HL,TXT_ERRUPD1
  96.                 CP 0XAA
  97.                 JR Z,ERRORRING
  98.                 LD HL,TXT_ERRUPD2
  99.                 CP 0XDD
  100.                 JR Z,ERRORRING
  101.                 LD HL,TXT_ERRUPD3
  102. ERRORRING       CALL NEXT
  103.                 CALL KEYS
  104.                 LD IX,ALLSCR
  105.                 CALL WINW                       ;ВЫВОД ОСНОВНОГО ОКНА
  106. PROD001         LD A,9
  107.                 OUT (GSCOM),A
  108.                 CALL WC
  109.                 IN A,(GSDAT)                    ;код ошибки
  110.                 EX AF,AF'
  111.                 CALL WN
  112.                 IN A,(GSDAT)                    ;младший байт ответа
  113.                 LD L,A
  114.                 CALL WN
  115.                 IN A,(GSDAT)                    ;старший байт ответа
  116.                 LD H,A
  117.                 EX AF,AF'
  118.                 AND 3
  119.                 JR Z,PROD000
  120.                 LD IX,ERROR_UPDATE
  121.                 CALL WINW
  122.                 LD HL,TXT_CRC
  123.                 CALL NEXT
  124. PROD000         LD IX,ALLSCR
  125.                 CALL WINW
  126.                 LD IX,HELPS
  127.                 CALL WINW
  128.                 LD IX,VERS_PAGESNGS
  129.                 CALL WINW
  130.                 CALL RD_VERS_NGS
  131.                 LD IX,WEKS2
  132.                 CALL WINW
  133. PROD01          CALL UPDOWN
  134.                 CALL CP_KEYS
  135.                 DB 0X0D
  136.                 DW KENTER
  137.                 DB 0
  138.                 JR PROD01
  139.  
  140. RD_VERS_NGS     LD IXL,"0"
  141.                 LD DE,TEXT_VERSUS
  142. RVN2            LD HL,TXT_PAGES
  143.                 LD BC,ETXT_PAGES-TXT_PAGES
  144.                 LDIR
  145.                 LD A,IXL
  146.                 INC IXL
  147.                 LD (DE),A
  148.                 LD A," "
  149.                 EX DE,HL
  150.                 INC HL
  151.                 LD (HL),":"
  152.                 INC HL
  153.                 LD (HL),A
  154.                 INC HL
  155.                 LD (HL),A
  156.                 INC HL
  157.                 LD A,IXL
  158.                 SUB "1"
  159.                 OUT (GSDAT),A
  160.                 LD A,8
  161.                 OUT (GSCOM),A
  162.                 CALL WC
  163.                 LD BC,GSDAT
  164. RVN1            CALL WN
  165.                 IN A,(C)
  166.                 LD (HL),A
  167.                 INC HL
  168.                 AND A
  169.                 JR NZ,RVN1
  170.                 DEC HL
  171.                 EX DE,HL
  172.                 LD A,IXL
  173.                 CP '2'
  174.                 CALL Z,COPY_VERS
  175.                 CP "8"
  176.                 JR C,RVN2
  177.                 LD HL,TEXT_VERSUS
  178.                 JP NEXT
  179.  
  180. COPY_VERS       PUSH AF
  181.                 PUSH DE
  182.                 EXX
  183.                 POP DE
  184.                 LD HL,MAINROM_VERS
  185. .L2             LD A,(HL)
  186.                 AND A
  187.                 JR Z,.L1
  188.                 LDI
  189.                 JR .L2
  190.  
  191. .L1             PUSH DE
  192.                 EXX
  193.                 POP DE
  194.                 POP AF
  195.                 RET
  196.  
  197. NGSNOTFOUND     LD IX,ERROR_UPDATE
  198.                 CALL WINW
  199.                 LD HL,TXT_NONGS
  200.                 CALL NEXT
  201.                 CALL KEYS
  202.                 LD HL,0
  203.                 PUSH HL
  204.                 JP 0X3D2F
  205.  
  206. ;ОТРАБОТКА ПЕДАЛИ ENTER
  207. KENTER          LD A,(IX+0X12)
  208.                 AND A
  209.                 JR Z,KENTER1            ;ПЕРЕХОД ДЛЯ ПУНКТА 1-ЗАГРУЗКА ОБНОВЛЕНИЯ
  210.                 JP KENTER4              ;ПЕРЕХОД ДЛЯ ПУНКТА 3-ВЫХОД В TR-DOS
  211.  
  212. ;ВЫБОР И ЗАГРУЗКА ОБНОВЛЕНИЯ ПЗУ
  213. KENTER1         LD IX,UPDATE_NGS
  214.                 CALL WINW
  215.                 LD A,7
  216.                 OUT (GSCOM),A
  217.                 CALL WC
  218.                 IN A,(GSDAT)
  219.                 AND A
  220.                 JP NZ,RESTARTUPD
  221.                 LD A,9
  222.                 OUT (GSCOM),A
  223.                 CALL WC
  224.                 IN A,(GSDAT)                    ;код ошибки
  225.                 EX AF,AF'
  226.                 CALL WN
  227.                 IN A,(GSDAT)                    ;младший байт ответа
  228.                 LD L,A
  229.                 CALL WN
  230.                 IN A,(GSDAT)                    ;старший байт ответа
  231.                 LD H,A
  232.                 EX AF,AF'
  233.                 CP 0X80
  234.                 JP NZ,RESTARTUPD
  235.  
  236.                 XOR A
  237.                 OUT (GSDAT),A
  238.                 LD A,6
  239.                 OUT (GSCOM),A
  240.                 CALL WC
  241.                 XOR A
  242.                 OUT (GSDAT),A
  243.                 CALL WD
  244.                 LD A,0X58
  245.                 OUT (GSDAT),A
  246.                 CALL WD
  247.                 IN A,(GSDAT)
  248.                 CP 0X99
  249.                 JR NZ,$-4
  250.                 EI
  251.                 REPT 5
  252.                 HALT
  253.                 ENDM
  254.                 DI
  255.                 LD IX,ERROR_UPDATE
  256.                 CALL WINW
  257.                 LD HL,TXT_OKUPDATE
  258.                 CALL NEXT
  259.                 CALL KEYS
  260.                 JP START_
  261.  
  262.                 LD A,0X0A
  263.                 OUT (GSCOM),A
  264.                 EI
  265.                 HALT
  266.                 HALT
  267.                 HALT
  268.                 DI
  269.                 JP RESTARTUPD
  270.  
  271. ;ВЫХОД ИЗ ПРОШИВАЛЬЩИКА
  272. KENTER4         LD HL,0
  273.                 PUSH HL
  274.                 JP 0X3D2F
  275.  
  276. UPDOWN          LD C,(IX+0X12)
  277.                 LD B,(IX+0X13)
  278.                 CALL RVERT
  279.                 SET 3,(IY+55)
  280. UPD04           BIT 3,(IY+55)
  281.                 JR Z,UPD02
  282.                 RES 3,(IY+55)
  283. UPD02           EI
  284.                 HALT
  285.                 DI
  286.                 BIT 5,(IY+1)
  287.                 JR Z,UPD04
  288.                 LD A,(IY-0X32)
  289.                 RES 5,(IY+1)
  290.                 CP 0X0A
  291.                 JR NZ,UPD01
  292.                 CALL DOWN
  293.                 SET 3,(IY+55)
  294.                 JR UPD02
  295.  
  296. UPD01           CP 0X0B
  297.                 JR NZ,UPD03
  298.                 CALL UP
  299.                 SET 3,(IY+55)
  300.                 JR UPD02
  301.  
  302. UPD03           RES 7,(IY+48)
  303.                 LD (IX+0X12),C
  304.                 LD (IX+0X13),B
  305.                 PUSH AF
  306.                 LD A,(IX+4)
  307.                 CALL WYDELK
  308.                 POP AF
  309.                 RET
  310.  
  311. DOWN            LD L,(IX+0X10)
  312.                 LD H,(IX+0X11)
  313.                 LD A,H
  314.                 OR L
  315.                 RET Z
  316.                 SCF
  317.                 SBC HL,BC
  318.                 RET Z
  319.                 INC BC
  320.                 LD A,(IX+2)
  321.                 SUB 3
  322.                 CP (IX+0X0F)
  323.                 JR Z,DOWN1
  324.                 INC (IX+0X0F)
  325.                 LD A,(IX+4)
  326.                 CALL WYDELK
  327.                 LD DE,0X20
  328.                 ADD HL,DE
  329.                 LD (ADRAT+1),HL
  330.                 LD A,(IX+5)
  331.                 JP WYDELK
  332.  
  333. DOWN1           LD A,(IX)
  334.                 ADD A,A
  335.                 ADD A,A
  336.                 ADD A,A
  337.                 INC A
  338.                 LD H,A
  339.                 LD A,(IX+1)
  340.                 ADD A,(IX+2)
  341.                 SUB 2
  342.                 ADD A,A
  343.                 ADD A,A
  344.                 ADD A,A
  345.                 LD L,A
  346.                 LD (ADRSTR+1),HL
  347.                 JP SCRUP
  348.  
  349. UP              LD A,B
  350.                 OR C
  351.                 RET Z
  352.                 DEC BC
  353.                 LD A,(IX+0X0F)
  354.                 AND A
  355.                 JR Z,UP1
  356.                 DEC (IX+0X0F)
  357.                 LD A,(IX+4)
  358.                 CALL WYDELK
  359.                 AND A
  360.                 LD DE,0X20
  361.                 SBC HL,DE
  362.                 LD (ADRAT+1),HL
  363.                 LD A,(IX+5)
  364.                 JR WYDELK
  365.  
  366. UP1             LD A,(IX)
  367.                 ADD A,A
  368.                 ADD A,A
  369.                 ADD A,A
  370.                 INC A
  371.                 LD H,A
  372.                 LD A,(IX+1)
  373.                 INC A
  374.                 ADD A,A
  375.                 ADD A,A
  376.                 ADD A,A
  377.                 LD L,A
  378.                 LD (ADRSTR+1),HL
  379.                 JP SCRDN
  380.  
  381. RVERT           PUSH DE
  382.                 LD H,(IX)
  383.                 LD L,(IX+1)
  384.                 LD A,(IX+0X0F)
  385.                 ADD A,L
  386.                 LD L,A
  387.                 INC L
  388.                 CALL ADRDIS
  389.                 EX DE,HL
  390.                 LD (ADRAT+1),HL
  391.                 LD A,(IX+5)
  392.                 POP DE
  393. WYDELK          PUSH BC
  394. ADRAT           LD HL,0
  395.                 PUSH HL
  396.                 LD B,(IX+3)
  397.                 LD (HL),A
  398.                 INC HL
  399.                 DJNZ $-2
  400.                 POP HL
  401.                 POP BC
  402.                 RET
  403.  
  404. READ_NGS_VERS   EXX
  405.                 LD HL,BUFRD
  406.                 LD DE,0x138
  407.                 LD B,8
  408.                 LD A,B
  409.                 CALL SD                 ; LEN LOW
  410.                 LD A,0X15
  411.                 CALL SC
  412.                 EI
  413.                 HALT
  414.                 DI
  415.                 XOR A
  416.                 CALL SD                 ; LEN HIGH
  417.                 CALL WD
  418.                 LD A,E
  419.                 CALL SD                 ; ADR LOW
  420.                 CALL WD
  421.                 LD A,D
  422.                 CALL SD                 ; ADR HIGH
  423. .L1             CALL WN
  424.                 CALL GD
  425.                 LD (HL),A
  426.                 INC HL
  427.                 INC DE
  428.                 DJNZ .L1
  429. .L2             DEC HL
  430.                 LD A,'!'
  431.                 CP (HL)
  432.                 JR NC,.L2
  433.                 INC HL
  434.                 LD (HL),0
  435.                 EXX
  436.                 RET
  437.  
  438. MAINROM_VERS    DB "ver "
  439. BUFRD           DUPL 0x18
  440.  
  441. FINDNGS         LD A,0X80
  442.                 OUT (GSCTR),A
  443.  
  444. ;DS 3:LD A,0X55:OUT (GSDAT),A
  445. ;OUT (GSCOM),A:CALL WC:LD A,0XAA
  446. ;OUT (GSDAT),A,(GSCOM),A:XOR A
  447. ;OUT (GSDAT),A:LD A,0X1D
  448. ;OUT (GSCOM),A:CALL WC
  449. ;IN A,(GSDAT)
  450.  
  451.                 EI
  452.                 HALT
  453.                 HALT
  454.                 DI
  455.                 LD A,0XF3
  456.                 OUT (GSCOM),A
  457.                 EI
  458.                 HALT
  459.                 HALT
  460.                 DI
  461.                 LD B,0X30
  462. FNDNGS1         EI
  463.                 HALT
  464.                 DI
  465.                 DEC B
  466.                 JR Z,FNDNGS2
  467.                 IN A,(GSCOM)
  468.                 RRA
  469.                 JR C,FNDNGS1
  470.                 LD E,GSCFG0
  471.                 CALL INPORT
  472.                 INC A
  473.                 JR Z,NONGS
  474.                 XOR A
  475.                 RET
  476.  
  477. NONGS           XOR A
  478.                 INC A
  479.                 RET
  480.  
  481. FNDNGS2         XOR A
  482.                 DEC A
  483.                 RET
  484.  
  485. INPORT          LD A,E
  486.                 OUT (GSDAT),A
  487.                 LD A,0X11
  488.                 OUT (GSCOM),A
  489.                 CALL WC
  490.                 IN A,(GSDAT)
  491.                 RET
  492.  
  493. INITLOADER      CALL FINDNGS
  494.                 AND A
  495.                 RET NZ
  496.                 CALL READ_NGS_VERS
  497.                 LD BC,GSDAT
  498.                 LD HL,0X5800
  499.                 LD DE,MINILDE-MINILD
  500.                 OUT (C),E
  501.                 LD A,0X14
  502.                 OUT (GSCOM),A
  503.                 CALL WC
  504.                 OUT (C),D
  505.                 CALL WD
  506.                 OUT (C),L
  507.                 CALL WD
  508.                 OUT (C),H
  509.                 CALL WD
  510.                 LD HL,MINISTR
  511. OUTCOD          OUTI
  512.                 CALL WD
  513.                 DEC DE
  514.                 LD A,D
  515.                 OR E
  516.                 JR NZ,OUTCOD
  517.                 LD HL,0X5800
  518.                 OUT (C),L
  519.                 LD A,0X13
  520.                 OUT (GSCOM),A
  521.                 CALL WC
  522.                 OUT (C),H
  523.                 CALL WD
  524.                 LD DE,NGS_LOADERE-NGS_LOADER
  525.                 OUT (C),E
  526.                 CALL WD
  527.                 OUT (C),D
  528.                 CALL WD
  529.                 LD HL,NGS_LOADER
  530. OUTCOD1         OUTI
  531.                 CALL WD
  532.                 DEC DE
  533.                 LD A,D
  534.                 OR E
  535.                 JR NZ,OUTCOD1
  536.                 EI
  537.                 HALT
  538.                 HALT
  539.                 HALT
  540.                 DI
  541.                 XOR A
  542.                 RET
  543.  
  544. SC              OUT (GSCOM),A
  545.                 RET
  546.  
  547. SD              OUT (GSDAT),A
  548.                 RET
  549.  
  550. GD              IN A,(GSDAT)
  551.                 RET
  552.  
  553. WC              IN A,(GSCOM)
  554.                 RRCA
  555.                 JR C,WC
  556.                 RET
  557.  
  558. WD              IN A,(GSCOM)
  559.                 RLCA
  560.                 JR C,WD
  561.                 RET
  562.  
  563. WN              IN A,(GSCOM)
  564.                 RLCA
  565.                 JR NC,WN
  566.                 RET
  567.  
  568. MINISTR
  569.                 PHASE ADR_PROGR
  570. MINILD          DI
  571.                 IN A,(ZXDATRD)
  572.                 OUT (CLRCBIT),A
  573.                 LD A,0X11
  574.                 OUT (GSCFG0),A                  ;ОТКЛЮЧИЛИ ПЗУ И ВКЛЮЧИЛИ ЧАСТОТЦ 12МГЦ
  575.                 LD HL,0                         ;АДРЕС ЗАГРУЗКИ КОДА СО СПЕКА
  576.                 XOR A
  577.                 OUT (MPAG),A                    ;СТРАНИЦА 0
  578.                 LD BC,ZXDATRD
  579.                 IN A,(ZXSTAT)
  580.                 RLA
  581.                 JR NC,$-3
  582.                 IN E,(C)
  583.                 IN A,(ZXSTAT)
  584.                 RLA
  585.                 JR NC,$-3
  586.                 IN D,(C)                        ;DE=ДЛИНА КОДА ДЛЯ ЗАГРУЗКИ В НГС
  587. MINILD1         IN A,(ZXSTAT)
  588.                 RLA
  589.                 JR NC,$-3
  590.                 INI
  591.                 DEC DE
  592.                 LD A,D
  593.                 OR E
  594.                 JR NZ,MINILD1
  595.                 LD HL,MINILD
  596.                 LD (HL),0XC3
  597.                 INC HL
  598.                 LD (HL),LOW (PROGR)
  599.                 INC HL
  600.                 LD (HL),HIGH (PROGR)
  601.                 LD A,0X11
  602.                 OUT (GSCFG0),A
  603.                 LD SP,0X4080
  604.                 XOR A
  605.                 JP 0X0045
  606.  
  607. PROGR           DI
  608.                 LD A,2
  609.                 OUT (MPAG),A
  610.                 LD A,0X11
  611.                 OUT (GSCFG0),A
  612.                 LD HL,0X8000
  613.                 LD A,(HL)
  614.                 RRCA
  615.                 RRCA
  616.                 RRCA
  617.                 RRCA
  618.                 AND 7
  619.                 LD B,A
  620.                 LD DE,8
  621.                 ADD HL,DE
  622. PROG0           LD A,2
  623.                 OUT (MPAG),A
  624.                 PUSH BC
  625.                 LD DE,MINILD+0X10
  626.                 LD BC,0X10
  627.                 LDIR
  628.                 PUSH HL
  629.                 CALL PROGR0
  630.                 POP HL
  631.                 POP BC
  632.                 DJNZ PROG0
  633.                 LD A,0X99
  634.                 OUT (ZXDATWR),A
  635.                 DJNZ $
  636.                 XOR A
  637.                 OUT (MPAG),A
  638.                 LD A,0X31
  639.                 LD HL,0X80D3
  640.                 OUT (GSCFG0),A
  641.                 LD (0XFFFE),HL
  642.                 XOR A
  643.                 JP 0XFFFE
  644.  
  645. PROGR0          LD HL,(MINILD+0X12)
  646.                 LD A,L
  647.                 AND 0X7F
  648.                 LD DE,(MINILD+0X11)
  649.                 LD D,A
  650.                 ADD HL,HL
  651.                 LD A,2
  652.                 ADD A,H
  653.                 LD IYH,A;HY,A
  654.                 LD HL,0
  655.                 LD A,(MINILD+0X10)
  656.                 AND 7
  657.                 LD IX,0X8000
  658.                 ADD IX,DE
  659.                 CALL SET_ADR
  660.                 CALL ERA_BLK
  661.                 LD DE,(MINILD+0X14)
  662.                 CALL PROGR1
  663.                 LD A,(MINILD+0X10)
  664.                 AND 7
  665.                 LD HL,0XFFF8
  666.                 CALL SET_ADR
  667.                 LD IX,MINILD+0X18
  668.                 LD DE,8
  669.  
  670. PROGR1          LD A,IYH
  671.                 OUT (MPAG),A
  672.                 LD A,(IX)
  673.                 INC IX
  674.                 PUSH DE
  675.                 CALL WR_BYTE
  676.                 LD A,IXH
  677.                 OR IXL
  678.                 JR NZ,PROGR2
  679.                 INC IYH
  680.                 LD IX,0X8000
  681. PROGR2          POP DE
  682.                 DEC DE
  683.                 LD A,D
  684.                 OR E
  685.                 JR NZ,PROGR1
  686.                 RET
  687.  
  688.                 include flasher_ngs.a80
  689. MINILDE
  690.                 DEPHASE
  691.  
  692. NGS_LOADER      binclude ../loader_ngs/loader_ngs.rom
  693. NGS_LOADERE
  694.  
  695.                 include window.a80
  696. CHARS           binclude altstd.bin
  697.                 include flasher_data.a80
  698.  
  699. TEXT_VERSUS
  700.