Pokey's Magazine 52/Pokeys_Magazine_52_1995_05___nl_Side_A.atr/edit.m65

Text File | 2023-02-26 | 3KB | 1 lines

1000 ;SECTOR EDITOR¢1010 ;(C) TML 1995¢1020 ;PUBLICATIE POKEY MAGAZINE¢1030 ;¢1040 ;¢1050 ;STARTADRES VAN HET PROGRAMMA¢1060     *=  $02E0¢1070     .WORD INIT¢1080 ;¢1090 ;¢1100     *=  $4000¢1110 ;   .OPT NO LIST¢1120     .INCLUDE #D8:MACRO.LIB¢1130 ;¢1140 ;¢1150 ;DIVERSE VARIABELEN¢1160 ZP1 =   203¢1170 ZP2 =   205¢1180 TMPA =  207¢1190 TMPXY = 208¢1200 DDEVIC = $0300¢1210 DUNIT = $0301¢1220 DCOMND = $0302¢1230 DSTATS = $0303¢1240 DBUFL = $0304¢1250 DAUX1 = $030A¢1260 LEES =  $52¢1270 SCHRIJF = $57¢1280 CIOV =  $E453¢1290 GETCHAR = $F2F8¢1300 SECTOR .WORD 317¢1310 BYTE .WORD 125¢1320 ACTIE .BYTE 0¢1330 BUFFER *= *+128¢1340 HEXVAL .SBYTE "0123456789ABCDEF"¢1350 ;¢1360 ;¢1370 ;INITIALISATIE VAN HET PROGRAMMA¢1380 ;¢1390 INIT¢1400      DPOKE  560,DL ; SCREEN ON¢1410      POKE  559,33 ;NARROW SCREEN¢1420      POKE  710,48 ;RED SCREEN¢1430      POKE  ACTIE,LEES ;EERSTE ACTIE IS LEZEN¢1440      DPOKE  DBUFL,BUFFER ;BUFFER VAN GELEZEN DATA¢1450     JSR SHOWALL¢1460     JMP MAIN¢1470 ;¢1480 ;¢1490 DL¢1500     .BYTE 112,64,2+64¢1510     .WORD TITLE¢1520     .BYTE 112,2,0,2,2,2,2,2,2,2,2¢1530     .BYTE 112,2,0,2,2,2,2¢1540     .BYTE 112,2,0,2,2,2,2¢1550     .BYTE 112,2,0,2¢1560     .BYTE 65¢1570     .WORD DL¢1580 ;¢1590 TITLE¢1600     .SBYTE "   SECTOREDITOR 1.0 (C) POKEY   "¢1610     .SBYTE "         ---HEX CODE---         "¢1620 HEXA¢1630     *=  *+8*32¢1640     .SBYTE "        ---ASCII CODE---        "¢1650 ASCII¢1660     *=  *+4*32¢1670     .SBYTE "         ---INTERNAL---         "¢1680 INTERNAL¢1690     *=  *+4*32¢1700 MENU¢1710     .SBYTE "    SECTOR $001     BYTE $01     "¢1720     .SBYTE " ½¡   פEAD   תRITE   דDIT  עUIT "¢1730 ;¢1740 ;¢1750 ;SHOW BUFFER AND NUMBERS...¢1760 ;¢1770 SHOWALL¢1780      DPOKE  ZP1,HEXA¢1790 ;¢1800     LDY #0¢1810 SHOWALL.LOOP¢1820     LDA BUFFER,Y¢1830     STA TMPA¢1840 ;¢1850 SHOWHEX¢1860     LSR A¢1870     LSR A¢1880     LSR A¢1890     LSR A¢1900     TAX ¢1910     LDA HEXVAL,X¢1920     STA (ZP1),Y¢1930      ADD  ZP1,1¢1940     LDA TMPA¢1950     AND #$0F¢1960     TAX ¢1970     LDA HEXVAL,X¢1980     STA (ZP1),Y¢1990     LDA TMPA¢2000 ;¢2010 SHOWINTERNAL¢2020     STA INTERNAL,Y¢2030 ;¢2040 SHOWASC¢2050     PHA ¢2060     AND #128¢2070     STA TMPXY¢2080     PLA ¢2090     AND #127¢2100     CMP #96¢2110     BCS LOWR¢2120     CMP #32¢2130     BCS NOTCTRL¢2140     CLC ¢2150     ADC #64¢2160     JMP LOWR¢2170 NOTCTRL¢2180     SEC ¢2190     SBC #32¢2200 LOWR¢2210     ORA TMPXY¢2220     STA ASCII,Y¢2230 ;¢2240     INY ¢2250     BPL SHOWALL.LOOP¢2260 ;¢2270 ;SHOW SECTOR- AND BYTENUMBERS¢2280 ;¢2290     LDA SECTOR+1¢2300     JSR TOHEX¢2310     STY MENU+12¢2320     LDA SECTOR¢2330     JSR TOHEX¢2340     STA MENU+13¢2350     STY MENU+14¢2360     LDA BYTE¢2370     JSR TOHEX¢2380     STA MENU+26¢2390     STY MENU+27¢2400     RTS ¢2410 ;¢2420 ;¢2430 TOHEX¢2440     PHA ¢2450     AND #$0F¢2460     TAX ¢2470     LDA HEXVAL,X¢2480     TAY ¢2490     PLA ¢2500     LSR A¢2510     LSR A¢2520     LSR A¢2530     LSR A¢2540     TAX ¢2550     LDA HEXVAL,X¢2560     RTS ¢2570 ;¢2580 ;¢2590 MAIN¢2600      POKE  DDEVIC,49¢2610      POKE  DUNIT,1¢2620      MOVE  SECTOR,DAUX1,2¢2630      DPOKE  DBUFL,BUFFER¢2640      MOVE  ACTIE,DCOMND,1¢2650     JSR CIOV¢2660 ;¢2670     JSR SHOWALL¢2680     JSR GETCHAR¢2690     CMP #'+¢2700     BNE MAIN1¢2710      ADD  SECTOR,1¢2720 MAIN1¢2730     CMP #'-¢2740     BNE MAIN¢2750      SUB  SECTOR,1¢2760     JMP MAIN¢