This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
-
Entry name:XLoad
-
Category:Disk utilities
-
Publisher/Developer:Flop 8
-
Year:1991
Listing 1
10 .OPT NO LIST 20 ;XLOAD V1.0 5.1.1991 30 ; 40 ;Petr Vicar, Roznov p.R 50 ; 60 ;Zavedeni libovolneho souboru 70 ;na zadanou adresu 80 ; .INCLUDE #D:SYSEQU.M65 90 .INCLUDE #D:IOMAC.LIB 100 .INCLUDE #D:SYSADR.M65 110 .INCLUDE #D:MACRO.M65 120 HX = $D4 130 POI = $D7 140 PR = $D8 150 CBL = $DA 155 NZ = $DC 160 ; 170 *= $2000 180 JMP ZAC 190 NAM .BYTE " Nazev souboru: " 195 KAM .BYTE " Na adresu ( hexa>21ff): " 196 SLUS .BYTE " 1.volna adresa: " 200 CB .BYTE " Blok c.: " 210 IOER .BYTE " I/O err n." 220 BUF *= *+15 230 ZAC 240 MOVA 1,CBL 250 BPUT 0,NAM,15 260 INPUT 0,BUF 270 OPEN 1,4,0,BUF 280 BPL DAL 290 STY HX 300 BPUT 0,IOER,10 310 LDA HX 320 JSR HO 330 JSR CROU 340 CLOSE 1 350 JMP ZAC 360 DAL BPUT 0,KAM,24 370 JSR HEXI 450 VEN BGET 1,BUF,0 460 BMI KON 470 ; LDA BUF 480 LDY #0 490 STA (HX),Y 500 INC HX 520 BNE VEN 530 INC HX+1 540 BNE VEN 610 KON 612 BPUT 0,SLUS,16 620 JSR HEXO 630 CLOSE 1 640 RTS 650 ; 660 ; 670 CROU LDA #$9B 680 JMP EOUTCH 690 ; 700 .OPT LIST 710 HEXO LDA HX+1 ;Vystup HEX 712 JSR HO 714 LDA HX 720 HO HEXOUT 730 .OPT NO LIST 740 HEXI LDY #5 750 HI HEXIN 760 .END
References
Listing downloads
Copyright holder