This page (revision-7) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 27-Dec-2010 19:04 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
7 03-Feb-2023 15:21 85 KB Carsten Strotmann to previous
6 27-Dec-2010 19:12 85 KB Carsten Strotmann to previous | to last
5 27-Dec-2010 19:11 85 KB Carsten Strotmann to previous | to last
4 27-Dec-2010 19:07 26 KB Carsten Strotmann to previous | to last
3 27-Dec-2010 19:06 5 KB Carsten Strotmann to previous | to last
2 27-Dec-2010 19:05 3 KB Carsten Strotmann to previous | to last
1 27-Dec-2010 19:04 3 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links
Speedy 1050 Backup
Speedy 1050 Backup

Version management

Difference between version and

At line 199 added 709 lines
!MENU.ASM
{{{
00010 ------------------------------
00020 .LION
00030 ;"†Õ≈Œ’†"
00040 .LIOFF
00050 ------------------------------
00060 ; STAND: 18/11/86'
00070 ------------------------------
00080 BASE = $58 DISPLAY START
00090 HSCROLL = $D404
00100 MAXSCROL = 145
00110 ------------------------------
00120 MENUEST JSR RAMDISKINIT
00130 JSR OEFFNE
00140 JSR RDCAP
00150 JMP COPYST
00160 OEFFNE JSR TEXTOUT
00170 .HX 7D9B
00180 .AS ' SPEEDY 1050 BACKUP INITIALIZER'
00190 .HX 9B9BEA
00200 RTS
00210 ------------------------------
00220 RDCAP JSR TEXTOUT
00230 .AS 'RAM - SIZE : '
00240 .HX EA
00250 LDA RAMDISKFLG
00260 BEQ .1 NO RAMDISK LOCATED
00270 CMP #$10
00280 BEQ .2
00290 CMP #8
00300 BEQ .3
00310 CMP #4
00320 BEQ .4
00330 LDA #0
00340 STA RAMDISKFLG
00350 .1 JSR TEXTOUT
00360 .DA "MAX. 64 K BYTES",#$9B,#$EA
00370 RTS
00380 .2 JSR TEXTOUT
00390 .DA "320 K BYTES",#$9B,#$EA
00400 RTS
00410 .3 JSR TEXTOUT
00420 .DA "192 K BYTES",#$9B,#$EA
00430 RTS
00440 .4 JSR TEXTOUT
00450 .DA "128 K BYTES",#$9B,#$EA
00460 RTS
00470 ------------------------------
00480 VPX .HX 0F
00490 HSCNT .HX 00
00500 NOSCROL .HX 00
00510 DEFVBI .DA $E462
00520 ------------------------------
00530 ;"Õ≈Œ’≈†ƒ…”–ំÅ”‘"
00540 ------------------------------
00550 MENUDL LDA #DL
00560 STA $230
00570 LDA /DL
00580 STA $231
00590 LDA #14
00600 STA $2C5
00610 LDA #2
00620 STA $2C6
00630 LDA $D6AE
00640 CMP #$A9
00650 BNE .1
00660 JSR $D6AE
00670 LDA $224
00680 STA DEFVBI
00690 LDA $225
00700 STA DEFVBI+1
00710 ------------------------------
00720 ;"…Œ…‘†…ÕƆ÷¬…†§≤≤≤Ƨ≤≤≥"
00730 ------------------------------
00740 .1 LDA #0
00750 STA $D40E
00760 LDA #VBI
00770 STA $222
00780 LDA /VBI
00790 STA $223
00800 LDA #DVBI
00810 STA $224
00820 LDA /DVBI
00830 STA $225
00840 LDA #$40
00850 STA $D40E
00860 RTS
00870 ------------------------------
00880 DVBI LDX #$18
00890 .1 LDA $3CF,X
00900 AND #$7F
00910 STA CLK,X
00920 DEX
00930 BPL .1
00940 JMP (DEFVBI)
00950 ------------------------------
00960 VBI LDA HSCNT
00970 CMP #MAXSCROL
00980 BCC .0
00990 LDA NOSCROL
01000 BMI .2
01010 LDA #TXTSP
01020 STA HSLMS
01030 LDA /TXTSP
01040 STA HSLMS+1
01050 LDA #MAXSCROL-44
01060 STA HSCNT
01070 LDA #$FF
01080 STA NOSCROL
01090 ------------------------------
01100 .0 LDX VPX
01110 DEX
01120 CPX #$C
01130 BCC .1
01140 STX HSCROLL
01150 STX VPX
01160 JMP $E45F
01170 .1 LDA #$F
01180 STA HSCROLL
01190 STA VPX
01200 INC HSCNT
01210 INC HSLMS
01220 BNE .2
01230 INC HSLMS+1
01240 .2 JMP $E45F
01250 ------------------------------
01260 ;"¡†Ω†”‘¡‘’”"
01270 ;"ÿ†Ω†”≈√‘œ“"
01280 ;"Ÿ†Ω†‘“¡√À"
01290 ------------------------------
01300 CLRBASE LDA #19
01310 STA VAL
01320 .1 LDY TRACKNUM
01330 LDX VAL
01340 JSR CALC
01350 LDA #0
01360 STA (DISPLAY),Y
01370 DEC VAL
01380 BNE .1
01390 RTS
01400 PUTBASE CPX #20
01410 BCS RTN1
01420 CPY #40
01430 BCS RTN1
01440 PHA
01450 JSR CALC
01460 LDA (DISPLAY),Y
01470 BEQ D
01480 PLA
01490 ORA #$80
01500 STA (DISPLAY),Y
01510 RTN1 RTS
01520 ------------------------------
01530 D PLA
01540 STA (DISPLAY),Y
01550 RTS
01560 ------------------------------
01570 CALC LDA #0
01580 STA $1
01590 DEX
01600 TXA
01610 ASL
01620 ASL
01630 ASL
01640 STA $0
01650 ASL
01660 ROL $1
01670 ASL
01680 ROL $1
01690 ADC $0
01700 BCC .1
01710 INC $1
01720 CLC
01730 .1 ADC BASE
01740 STA DISPLAY
01750 LDA $1
01760 ADC BASE+1
01770 STA DISPLAY+1
01780 RTS
01790 ------------------------------
01800 DL .HX 707046
01810 .DA TXT1
01820 .HX 1000020002021042
01830 LMS .DA $9C40
01840 .HX 020202020202
01850 .HX 020202020202
01860 .HX 020202020202
01870 ZDL .HX 00
01880 .HX 52 ;H SCROLL
01890 HSLMS .DA TXT2
01900 .HX 0046
01910 .DA MESSAGE
01920 .HX 41
01930 .DA DL
01940 MESSAGE .AT ' '
01950 .AT ' '
01960 TXT1 .AT ' SPEEDY BACKUP V1.1'
01970 .AT ' '
01980 .AT ' TRACK '
01990 .AT ' STATUS '
02000 .AT ' 1 2 3 '
02010 .AT '0123456789012345678901234567890123456789'
02020 TXTSP .AT ' '
02030 .AT ' '
02040 TXT2 .AT ' COPYRIGHT BY COMPY'
02050 .AT ' - SHOP MH 10 / 86 '
02060 .AT ' *** '
02070 .AT ' -SPEEDY BACKUP V1.1 -'
02080 .AT ' BY '
02090 .AT -' TAPS '
02100 .AT ' ,THOMAS NIEHAUS '
02110 .AT '(p) '
02120 CLK .AT ' '
02130 .AT ' '
02140 .AT ' '
02150 MSOURCE
02160 .AT 'INSERT SOURCE,PLEASE'
02170 MDEST
02180 .AT ' INSERT DESTINATION '
02190 ------------------------------
02200 RAMDISKINIT
02210 LDA $D301
02220 STA PB
02230 LDA #$23
02240 STA $D301
02250 LDA #0
02260 STA $4000
02270 LDA PB
02280 STA $D301
02290 LDA #$23
02300 STA $4000
02310 STA $D301
02320 LDA $4000
02330 CMP #$23
02340 BEQ .2 NO RAMD.!
02350 LDY #0
02360 LDX #0
02370 .1 LDA $D301
02380 AND #$23
02390 ORA RDTAB,Y
02400 STA $D301
02410 LDA RDTAB1,X
02420 STA $4000
02430 INX
02440 INY
02450 INY
02460 INY
02470 INY
02480 CPX #4
02490 BCC .1
02500 LDA $D301
02510 AND #$23
02520 ORA #$CC
02530 STA $D301
02540 LDA $4000
02550 BCS .3 =JMP
02560 .2 LDA #0
02570 .3 STA RAMDISKFLG
02580 LDA PB
02590 STA $D301
02600 RTS
02610 ------------------------------
02620 RAMDISKFLG .HX 00
02630 PB .HX 00
02640 RDTAB .HX CCC8C4C0
02650 .HX 8C888480
02660 .HX 4C484440
02670 .HX 0C080400
02680 RDTAB1 .HX 100C0804
02690 ------------------------------
02700 ;"“¡Õƒ…”À‘“≈…¬≈“†‘≈”‘≈Œ"
02710 ;
02720 ;"–¡“¡Õ≈‘≈“Ã…”‘≈†ƒ≈“†“¡Õƒ…”À†∫"
02730 ;
02740 RDSKPAR0 .DA $140
02750 .DA $A000
02760 ------------------------------
02770 ;"≈…Œ”–“’Œ«†–¡“¡Õ≈‘≈“†∫"
02780 ;X= LO ,Y = HI
02790 ;ACCU BIT0=0 READ
02800 ;ACCU BIT0=1 WRITE
02810 ------------------------------
02820 ;"“≈…»≈Œ∆œÃ«≈†ƒ≈“†≈Ã≈Õ≈Œ‘≈†∫"
02830 ;1.Sector No. Lo
02840 ;2.Sector No. Hi
02850 ;3.Buffer Adr. Lo
02860 ;4.Buffer Adr. Hi
02870 ;"“’≈√ÀÀ≈»“†∫"
02880 ;Y=$01 ERFOLGREICH
02890 ;Y=$FF FEHLER
02900 ------------------------------
02910 LFLG .HX 00
02920 BANK .HX 00
02930 LSEC .HX 00
02940 HSEC .HX 00
02950 ------------------------------
02960 ;"Œœ‘≈†∫"
02970 ;"√Ω∞†Ω憓¡Õƒ…”À÷≈“◊¡Ã‘’Œ«†Õ…‘†ÕÔˆÂÚ†°"
02980 ;"√Ω±†Ω憒≈¬≈“«…¬‘†ÿ¨Ÿ†Ω†¬’∆∆≈“¨†¬¡ŒÀ†…”‘†¬≈“≈…‘”†¡À‘…÷…≈“‘"
02990 ------------------------------
03000 RDSKVER PHP
03010 AND #$7F
03020 STA LFLG
03030 ------------------------------
03040 ;"¡’∆†”‘¡√À†Ã…≈«‘† ≈‘⁄‘†”≈√‘œ“†ŒœÆ†Ãœ†œ¬≈Œ"
03050 ;"∆’≈“†±≤∏†”≈√‘œ“≈Œ†Ã…≈«‘†ƒ≈“†¬≈“≈…√»†ƒ≈“†”≈√‘œ“Œ’ÕÕ≈“Œ†⁄◊…”√»≈Œ"
03060 ------------------------------
03070 ;"a) 0-2047 fuer 256 KB Bank"
03080 ;"b) 0-1023 fuer 128 KB Bank"
03090 ;"c) 0- 511 fuer 64 KB Bank"
03100 ;"d) 0- ... fuer den linearen Speicher"
03110 ------------------------------
03120 LDA RDSKPAR0
03130 STA LSEC
03140 LDA RDSKPAR0+1
03150 STA HSEC
03160 ------------------------------
03170 ;"‘≈”‘†…∆†”≈√‘œ“†æΩ†§±¥∞"
03180 ------------------------------
03190 LDA HSEC
03200 BEQ .1
03210 CMP #2
03220 BCS .2
03230 LDA LSEC
03240 CMP #$40
03250 BCS .2
03260 .1 LDA LFLG
03270 ORA #$80
03280 STA LFLG
03290 BNE .3
03300 .2 LDA LSEC
03310 SEC
03320 SBC #$40
03330 STA LSEC
03340 LDA HSEC
03350 SBC #1
03360 STA HSEC
03370 ------------------------------
03380 ;"¬≈Õ≈“À’Œ«†∫"
03390 ;ACCU =MINUS HEISST RAMDISK IM LINEAREN SPEICHER
03400 ;ACCU =PLUS RAMDISK IN BANK LOGIK
03410 ;"Œœ◊†√¡Ã√’á‘≈†Õ≈Õœ“Ÿ†–œ”…‘…œŒ†¡Œƒ†¬¡ŒÀ": BANK = SECTOR/128
03420 ------------------------------
03430 .3 LDA HSEC
03440 STA BANK
03450 LDA LSEC
03460 ASL
03470 ROL BANK
03480 ------------------------------
03490 ;"–œ”ÆΩ†”≈√‘œ“†™†±≤∏"
03500 ------------------------------
03510 LDA #0
03520 LSR HSEC
03530 ROR LSEC
03540 ROR
03550 STA DLOC
03560 LDA LSEC
03570 LDX LFLG ;TEST OF BANKED RAMDISK,MINUS SET = LINEAR MEMORY
03580 BPL .5
03590 TAX ;SAVE HIGH BYTE OF CALCULATE POSITION
03600 LDA DLOC ;GET LO BYTE AND ADD BOUNDARY
03610 CLC
03620 ADC #LOMEM
03630 STA DLOC
03640 TXA
03650 ADC /LOMEM
03660 STA DLOC+1
03670 BNE .6 =JMP
03680 .5 AND #$3F ;HIGHER BIT'S DO NOT BUILD THE ADRESS
03690 CLC
03700 ADC #$40 ;BANK BASIS= $4000
03710 STA DLOC+1
03720 ------------------------------
03730 ;"«≈‘†”‘œ“≈†¬’∆∆≈“†∆“œÕ†”‘¡√À"
03740 ------------------------------
03750 .6 LDA RDSKPAR0+2
03760 STA SLOC
03770 LDA RDSKPAR0+3
03780 STA SLOC+1
03790 ------------------------------
03800 ;NOW, BANK NO. AND LOC HAS TOC CHECKED, IF AN ERROR OCCURED,
03810 ;THE MINUS FLAG WILL BE SET AND THE OPERATION IS ABORTED.
03820 ------------------------------
03830 LDA LFLG
03840 BPL .7
03850 LDA DLOC+1
03860 CMP HIMEM
03870 BCS ERR
03880 BCC .8 =JMP
03890 .7 LDA BANK ; CHECK,IF CALCULATED BANK IS
03900 CMP RAMDISKFLG ; IN COMPUTER'S RAMDISK-SIZE
03910 BCS ERR
03920 LDA DLOC+1 ; CHECK, IF THERE'S A BANK OVERFLOW ERROR
03930 CMP #$80 ; NORMALLY,THIS ERROR CANNOT
03940 BCS ERR ; OCCUR,BUT PERHAPS THERE'S A MISTAKE IN THIS PROGRAMM
03950 ------------------------------
03960 ;ALL CALCULATED PARAMETER'S WERE OKAY.LET'S MOVE
03970 ;THE MEMORY BLOCK !
03980 ;CAUTION: NO INTERRUPT IS DISABLED DURING BANK OPERATION !
03990 ------------------------------
04000 .8 LDX BANK
04010 LDA $D301
04020 AND #$23
04030 ORA RDTAB,X
04040 STA BANK
04050 LDA LFLG TEST FOR RDSK
04060 BPL .9
04070 LDX $D301
04080 STX BANK
04090 .9 PLP ; GET CARRY BACK AND TEST, IF DATA SHOULD BE MOVED
04100 BCS NOMOV
04110 AND #1 ;ACCU=1 WRITE
04120 BEQ SVD301
04130 LDA $D301 ;SAVE $D301 's VALUE TO SWITCH
04140 STA .21+1 ; THE BANKS
04150 ;
04160 LDY #$7F
04170 .20 LDA (SLOC),Y
04180 LDX BANK ;ENABLE BANK
04190 STX $D301
04200 STA (DLOC),Y
04210 .21 LDX #$FF
04220 STX $D301
04230 DEY
04240 BPL .20
04250 LDY #1 ;OKAY, 128 BYTES TRANSFERRED.
04260 RTS
04270 ------------------------------
04280 ;THE ERROR,THAT HAS BEEN OCCURED, IS MARKED WITH Y=FF
04290 ;AND SET MINUS FLAG !
04300 ------------------------------
04310 ERR PLP ; REGET PH WITH CARRY
04320 LDY #$FF
04330 RTS
04340 ------------------------------
04350 ; THIS PART IS ADVANCED READ FOR RAMDISK !
04360 ------------------------------
04370 SVD301 LDA $D301 ;SAVE $D301 's VALUE TO SWITCH
04380 STA .22+1 ; THE BANKS
04390 LDY #$7F
04400 .21 LDX BANK ;ENABLE BANK
04410 STX $D301
04420 LDA (DLOC),Y
04430 .22 LDX #$FF
04440 STX $D301
04450 STA (SLOC),Y
04460 DEY
04470 BPL .21
04480 LDY #1 ;OKAY, 128 BYTES TRANSFERRED.
04490 RTS
04500 NOMOV LDA BANK
04510 STA $D301
04520 LDX DLOC
04530 LDY DLOC+1
04540 LDA #1
04550 RTS
04560 ------------------------------
04570 ;HERE'S THE 'SPEEDY DRIVES' ROUTINE
04580 ------------------------------
04590 SPEEDYD JSR TEXTOUT
04600 .AS ' SPEEDY DRIVES :'
04610 .HX EA
04620 LDA #1
04630 STA DRVSEL
04640 TSTDRVL LDA DRVSEL
04650 JSR SELDRV
04660 BCS .2
04670 PHA
04680 JSR TEXTOUT
04690 .DA " D",#$EA
04700 PLA
04710 CLC
04720 ADC #$30
04730 JSR EOUT
04740 INC DRVSEL
04750 JMP TSTDRVL
04760 .2 LDA #$9B
04770 JMP EOUT
04780 ------------------------------
04790 ;RAMDISK STATUS MESSAGE (IF R.D. PRESENT)
04800 ------------------------------
04810 RDSKSTAT .HX 00
04820 ------------------------------
04830 RDSTAT LDA RAMDISKFLG
04840 BEQ .1
04850 JSR TEXTOUT
04860 .AS ' RAMDISK STATUS : '
04870 .HX EA
04880 LDA RDSKSTAT
04890 BEQ .2
04900 JSR TEXTOUT
04910 .DA "USED",#$9B,#$EA
04920 .1 RTS
04930 ------------------------------
04940 .2 JSR TEXTOUT
04950 .DA "FREE",#$9B,#$EA
04960 RTS
04970 ------------------------------
04980 ;"Õ≈Œ’≈†∆’Œ√‘…œŒ”†¡∆‘≈“†Õ¡…Œ†Õ≈Œ’≈"
04990 ------------------------------
05000 MAXPAR = 6
05010 ------------------------------
05020 MENUE JSR OPENSCR
05030 LDA $230
05040 STA DISPLAY
05050 LDA $231
05060 STA DISPLAY+1
05070 LDY #$1C
05080 LDA #$10
05090 STA (DISPLAY),Y
05100 INY
05110 LDA #1 ; DLIST JUMP
05120 STA (DISPLAY),Y
05130 INY
05140 LDA #ZDL
05150 STA (DISPLAY),Y
05160 INY
05170 LDA /ZDL
05180 STA (DISPLAY),Y
05190 LDA #0
05200 STA $52
05210 JSR TEXTOUT
05220 .HX 7D9B
05230 .AS ' *** SPEEDY PARAMETER MENUE ***'
05240 .HX 9B9B9B
05250 ------------------------------
05260 .DA " 1: VERIFY WRITES",#$9B
05270 .DA " 2: R/W RETRIES",#$9B
05280 .DA " 3: R/W BY DISK CHANGE",#$9B
05290 .DA " 4: TRACK ANALYZING MODE",#$9B
05300 .DA " 5: SOURCE DRIVE",#$9B
05310 .AS " 6: DESTINATION DRIVE"
05320 .HX 9B9B9B
05330 ------------------------------
05340 .DA "†√’““≈Œ‘†»¡“ƒ◊¡“≈†–¡“¡Õ≈‘≈“†∫†",#$9B,#$EA
05350 ------------------------------
05360 JSR RDCAP
05370 JSR RDSTAT
05380 JSR SPEEDYD
05390 ------------------------------
05400 ;"–¡“¡Õ≈‘≈“†¡’”«≈¬≈Œ"
05410 ------------------------------
05420 LDA #2
05430 STA $52
05440 LDA NOSCROL
05450 CMP #$FF
05460 BNE NOLAUF
05470 JSR SETSC ; SETZE LAUFBAND IN BEWEGUNG !
05480 ------------------------------
05490 ;"Œ’Œ†–¡“¡Õ≈‘≈“†÷œŒ†À≈Ÿ¬œ¡“ƒ†”≈‘⁄≈Œ"
05500 ------------------------------
05510 NOLAUF LDA #0
05520 STA VAL
05530 .2 LDA VAL ; HOLE TABELLEN POSITION
05540 JSR PARSET
05550 INC VAL
05560 LDA VAL
05570 CMP #MAXPAR ;6
05580 BCC .2
05590 MENUEKEY JSR GETKEY
05600 CMP #27 ESCAPE ?
05610 BEQ .27
05620 SEC
05630 SBC #$31
05640 BMI MENUEKEY
05650 CMP #MAXPAR ;6
05660 BCS MENUEKEY
05670 TAY
05680 ASL
05690 TAX
05700 LDA VECTAB+1,X
05710 PHA
05720 LDA VECTAB,X
05730 PHA
05740 TYA
05750 RTS
05760 ------------------------------
05770 .27 JMP BIGST
05780 ------------------------------
05790 VECTAB .DA FUNC1-1
05800 .DA FUNC2-1
05810 .DA FUNC3-1
05820 .DA FUNC4-1
05830 .DA FUNC5-1
05840 .DA FUNC6-1
05850 ------------------------------
05860 FUNC1 PHA
05870 LDA PVERIFY ;VERIFY ON/OFF
05880 EOR #$80
05890 STA PVERIFY
05900 PLA
05910 JSR PARSET
05920 JMP MENUEKEY
05930 ------------------------------
05940 FUNC2 PHA
05950 INC PRETRY ; RERIES
05960 LDA PRETRY
05970 CMP #5 ;MAX 5 RETRIES
05980 BCC .1
05990 LDA #0
06000 STA PRETRY
06010 .1 PLA
06020 JSR PARSET
06030 JMP MENUEKEY
06040 ------------------------------
06050 FUNC3 PHA
06060 LDA PCHANGE ; AUTOMATIC COPY
06070 EOR #$80
06080 STA PCHANGE
06090 PLA
06100 JSR PARSET
06110 JMP MENUEKEY
06120 ------------------------------
06130 FUNC4 JMP MENUEKEY ; TRACK ANALYSING MODE SELECT :
06140 ------------------------------
06150 FUNC5 PHA ; CHANGE SOURCE DRIVE
06160 INC PSOURCE
06170 LDA PSOURCE
06180 JSR SELDRV
06190 BCC .1
06200 LDA #1
06210 STA PSOURCE
06220 .1 PLA
06230 JSR PARSET
06240 JMP MENUEKEY
06250 ------------------------------
06260 FUNC6 PHA ;CHANGE DESTINATION DRIVE
06270 INC PDEST
06280 LDA PDEST
06290 JSR SELDRV
06300 BCC .1
06310 LDA #1
06320 STA PDEST
06330 .1 PLA
06340 JSR PARSET
06350 JMP MENUEKEY
06360 ------------------------------
06370 ;"”≈‘⁄‘†ƒ≈Œ†–¡“¡Õ≈‘≈“†¡’∆†ƒ≈Œ†¬…Ô√»…“Õ"
06380 ------------------------------
06390 PARSET STA VAL ;TABELLEN POSITION
06400 TAX ; IN DEN INDEX
06410 LDY MTAB,X ; NUN HOLE DIE VERTICAL POSITION AUS DER TABELLE
06420 LDA MTAB2,X ; HOLE DAS FLAG
06430 LSR ; SETZE ES IN CARRY
06440 LDX VAL ; NUN LADE DEN PARAMETER IN DEN ACCU
06450 LDA PVERIFY,X
06460 ; JMP HMENUE ; AN SCHIRM AUSGEBEN
06470 ------------------------------
06480 ;"‘»…”†“œ’‘…Œ≈†–’‘”†‘»≈†–¡“¡Õ≈‘≈“”†”‘¡‘’”†œŒ‘œ†«“Æ∞†”√“≈≈Œ"
06490 ;CARRY = 0 AND :
06500 ; ACCU = 0 <=> "NOT AVIABLE"
06510 ; ACCU = 1-$7F <=> "YES"
06520 ; ACCU = $80-$FF <=> "NO"
06530 ;
06540 ; CARRY = 1 AND :
06550 ; ACCU = HEXNUMBER
06560 ;
06570 ;Y REGISTER <=> VERTICAL POSITION
06580 ------------------------------
06590 HMENUE STY $54 ; SET VERTICAL POSITION
06600 LDY #26 ; HORIZONTAL POSITION
06610 STY $55
06620 BCS .3
06630 TAY ; REFRESH CPU FLAG'S
06640 BEQ .2
06650 BPL .1
06660 JSR TEXTOUT
06670 .AS 'NO '
06680 .HX EA
06690 RTS
06700 .1 JSR TEXTOUT
06710 .AS 'YES '
06720 .HX EA
06730 RTS
06740 .2 JSR TEXTOUT
06750 .DA "NOT AVAILABLE",#$EA
06760 RTS
06770 ------------------------------
06780 .3 JMP PHEXOUT
06790 ------------------------------
06800 ;"≈Ã≈Õ≈Œ‘”†œ∆†–¡“¡Õ≈‘≈“†Ã…”‘†∫"
06810 ------------------------------
06820 PVERIFY .HX 01
06830 PRETRY .HX 03
06840 PCHANGE .HX 81
06850 PTRKAN .HX 00
06860 PSOURCE .HX 01
06870 PDEST .HX 01
06880 VAL .HX 00
06890 MTAB .HX 040506070809
06900 MTAB2 .HX 000100000101
06910 ------------------------------
06920 SETSC LDA #$F
06930 STA VPX
06940 LDA #0
06950 STA HSCNT
06960 STA NOSCROL
06970 LDA #TXT2
06980 STA HSLMS
06990 LDA /TXT2
07000 STA HSLMS+1
07010 RTS
}}}
This page (revision-7) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top