💾 Archived View for spam.works › mirrors › textfiles › programming › exam2_65.txt captured on 2023-11-14 at 11:49:40.
⬅️ Previous capture (2023-06-16)
-=-=-=-=-=-=-
==================================================================== DR 6502 AER 201S Engineering Design 6502 Execution Simulator ==================================================================== Supplementary Notes By: M.J.Malone 6502 Assembly Code Examples =========================== The remainder of this file will be in a format acceptable to TASM for direct assembly. The following are the basic routines used in a stack based mathematics system very similar to that used in the FORTH or PostScript languages. It is a good example of addressing modes and use and reuse of the most common 6502 instructions. It introduces the user to the assembly language level maintenance of a stack, movement of data and use of the zero page. Note there may be errors in the code, it is not intended that it be cut up and included in students files. It is intended only as an example of addressing modes and instructions. ;============================================================================== ; Coding Examples for the Students of AER201S ;============================================================================== ; ; .ORG $E000 SEI ; INITIALIZING THE STACK POINTER LDX #$FF TXS ; LDX #$00 ; Initial LDY #$00 Delay DEX BNE Delay DEY BNE Delay ; ; ; ================================= ; Definitions and memory allocation ; ================================= ; Start_Page = $10 ; Stack goes from $1000-$1FFF or pages $10-$20 End_Page = $20 ; Stack_Ptr = $FE ; Address of the pointer to the next free byte in ; the stack Memory_Ptr = $FC ; Address of a pointer to a piece of data in ; memory MTemp = $FB ; Temporary Variable used in memory routines MTemp1 = $FA ; Temporary Variable used in memory routines ; Reg_Len = $08 ; Use 8 byte utility registers ; Utl_Reg0 = $00 ; Utility Register 0 Used for Math and stack Utl_Reg1 = Utl_Reg0+Reg_len ; Utility Register 1 manipulations Utl_reg2 = Utl_Reg1+Reg_Len ; Utility Register 2 ; ; ; page 2 LDA #Start_Page ; Initialize the stack pointer to point to the STA Stack_Ptr+1 ; first byte of the space allotted to be stack LDA #$00 ; space STA Stack_Ptr ; JMP Main ; Jump to the main program, what follows are ; subroutines ; ; ; ; ; ============== ; Halt execution ; ============== ; Halt JMP Halt ; In case of an error, the program jumps here ; ; ; ; ; ; ; ===================================== ; Stack Maintenance Subroutines ; ===================================== ; ; ; ; ====================================================================== ; Will a (.A) byte long number pushed into the stack overflow the stack? ; ====================================================================== ; ; Call Name: Overrun ; ; Input Variables: .A Holds the number of bytes you want to push onto the ; stack ; ; Output Variables: None. The Routine stops execution when an overflow ; occurs. Ideally it would call an error trap routine ; and give some output. ; Overrun CLC ADC Stack_Ptr ; Add the number of bytes to the current BCS Try_Page ; stack pointer low byte - if less than a page RTS ; then it could not have overrun. Try_Page LDA #$01 ; It overrun a page, check to see if the next ADC Stack_Ptr+1 ; page is part of the stack area. CMP #End_Page BEQ Halt ; If it has overrun then Halt! RTS ; otherwise RTS - everything is OK ; ; ; ; page 3 ; ======================================================================= ; Will a (.A) byte long number pulled from the stack underflow the stack? ; ======================================================================= ; ; Call Name: Underrun ; ; Input Variables: .A Holds the number of bytes you want to pull from the ; stack ; ; Output Variables: None. The Routine stops execution when an underflow ; occurs. Ideally it would call an error trap routine ; and give some output. ; Underrun STA MTemp LDA Stack_Ptr ; Subtract the number of bytes from the stack SEC ; pointer. SBC MTemp BCC Try_Page ; If it has not underrun an page, then RTS ; RTS - everything is OK Try_Page LDA Stack_Ptr+1 ; It has underrun a page - check to see if SBC #$00 ; the previous page is part of the stack. CMP #Start_Page BMI Halt ; If not then Halt - there was an underrun ; The BMI instruction assumes the stack will never be allowed 32K. It assumes ; the 'N' flag will never be set from comparing two numbers more different ; then $80 resulting from a stack of $8000 length or more - 32K RTS ; ; ; ; ; ========================================================== ; Copy .Y bytes of data from the memory pointer to the stack ; ========================================================== ; ; Call Name: Mem_to_Stk ; ; Input Variables: .Y is the number of bytes of memory to move to the stack ; Memory_Ptr points to the first address of the piece of data ; ; Output Variables: None. ; ; Mem_to_Stk TYA JSR Overrun ; Check for a Stack Overrun STY MTemp ; Store #bytes temporarily LDY #$00 F_Ag LDA (Memory_Ptr),y ; Move data from Memory to STA (Stack_Ptr),y ; stack INY CPY MTemp BNE F_Ag ; until .Y=#bytes ; LDA MTemp ; Add the number of bytes to the stack CLC ; pointer so that it points to the next ADC Stack_Ptr ; free byte of stack space page 4 STA Stack_Ptr LDA #$00 ADC Stack_Ptr+1 STA Stack_Ptr+1 RTS ; ; ; ; ; ========================================================== ; Copy .Y bytes of data from the stack to the memory pointer ; ========================================================== ; ; Call Name: Stk_To_Mem ; ; Input Variables: .Y is the number of bytes of stack data to move to memory ; Memory_Ptr points to the first address of the piece of data ; ; Output Variables: None. ; Stk_To_Mem TYA JSR Underrun ; Check for a Stack Underrun STY MTemp ; Store #bytes temporarily LDA Stack_Ptr ; Subtract to find first address of SEC ; a .Y byte length piece of data in the SBC MTemp ; stack. Nothing prevents the user from STA Stack_Ptr ; pulling a different size data piece LDA Stack_Ptr+1 ; from the stack than was pushed in. In SBC #$00 ; fact that makes the stack useful in STA Stack_Ptr+1 ; doing string manipulations. ; LDY #$00 T_Ag LDA (Stack_Ptr),y ; Move data from the stack STA (Memory_Ptr),y ; to memory INY CPY MTemp BNE T_Ag ; until .Y=#bytes ; RTS ; ; ; ; ; ================================================================ ; Copy .Y bytes of data from the memory pointer to the Utl_Reg(.X) ; ================================================================ ; ; Call Name: Mem_to_Reg ; ; Input Variables: - .Y is the number of bytes of memory to move ; to Utl_Reg(.X) from a location pointed to by ; Memory_Ptr ; - .X is the number of the Utility register ; - Memory_Ptr points to the first address of the piece of ; data ; page 5 ; Output Variables: None. ; Mem_to_Reg CPX #$03 ; .X must be less than 3 BPL JHalt CPY #Reg_Len+1 ; .Y must be less than (Reg_Len+1) BPL JHalt JMP MR_Cont JHalt JMP Halt MR_Cont TXA STY MTemp ; Store #bytes temporarily ; ; The following assumes Reg_Len=8 and must be adjusted otherwise ; CLC ASL A ; Multiply .X by 8 to get the ASL A ; first address of the Utl_Reg(.X) ASL A ; STA MTemp1 ; Store the beginning address ADC MTemp ; Add the length of Number STA MTemp ; Store the ending of move address ; LDX MTemp1 ; Load address of beginning of data TXA ; on zero page (by .X index offset) CLC ADC #Reg_Len ; Add on the length of the register to STA MTemp1 ; find the end of the register ; LDY #$00 MR_Ag LDA (Memory_Ptr),Y ; Move Data from Memory_Ptr STA Utl_Reg0,X ; to the Utl_Reg INY INX CPX MTemp ; Until .X=end of move address BNE MR_Ag ; LDA #$00 MR_Zero CPX MTemp1 ; While the entire Utl_Reg is not BEQ MR_Done ; yet full (not reached end of register), STA Utl_Reg0,X ; Put #$00's in the rest of the locations INX JMP MR_Zero ; MR_Done RTS ; ; ; ; ; ============================================================ ; Copy .Y bytes of data from Utl_Reg(.X) to the memory pointer ; ============================================================ ; ; Call Name: Reg_to_Mem ; page 6 ; Input Variables: - .Y is the number of bytes of register data to move ; to memory ; - .X is the register number ; - Memory_Ptr points to the first address of the piece of data ; ; Output Variables: None. ; Reg_to_Mem CPX #$03 ; .X must be less than 3 BPL JHalt CPY #Reg_Len+1 ; .Y must be less than Reg_Len+1 BPL JHalt JMP RM_Cont JHalt JMP Halt RM_Cont TXA STY MTemp ; Store #bytes temporarily ; ; The following assumes Reg_Len=8 and must be adjusted otherwise ; CLC ASL A ; Multiply .X by 8 to get the ASL A ; first address of the Utl_Reg(.X) ASL A ; STA MTemp1 ; Store the beginning address ADC MTemp ; Add the length of Number STA MTemp ; Store the ending address ; LDX MTemp1 ; Load address of beginning of data LDY #$00 RM_Ag LDA Utl_Reg0,X ; Move data from Utl_Reg STA (Memory_Ptr),Y ; to the Memory_Ptr INY INX CPX MTemp ; Until .X=end address BNE RM_Ag RTS ; ; ; ; ; =============================================================== ; Copy .Y bytes of data from the stack pointer to the Utl_Reg(.X) ; =============================================================== ; ; Call Name: Stk_to_Reg ; ; Input Variables: - .Y is the number of bytes of memory to move ; to Utl_Reg(.X) from a location pointed to by ; Memory_Ptr ; - .X is the number of the Utility register ; - Memory_Ptr points to the first address of the piece of ; data ; ; Output Variables: None. ; page 7 Stk_to_Reg CPX #$03 ; .X must be less than 3 BPL JHalt CPY #Reg_Len+1 ; .Y must be less than Reg_Len+1 BPL JHalt JMP SR_Cont SRHalt JMP Halt ; SR_Cont TYA JSR Underrun ; Check for a Stack Underrun STY MTemp ; Store #bytes temporarily LDA Stack_Ptr ; Subtract to find first address of SEC ; a .Y length data element in the stack SBC MTemp STA Stack_Ptr LDA Stack_Ptr+1 SBC #$00 STA Stack_Ptr+1 ; TXA ; ; The following assumes Reg_Len=8 and must be adjusted otherwise ; CLC ASL A ; Multiply .X by 8 to get the ASL A ; first address of the Utl_Reg(.X) ASL A ; STA MTemp1 ; Store the beginning address ADC MTemp ; Add the length of Number STA MTemp ; Store the ending of move address ; LDX MTemp1 ; Load address of beginning of data TXA CLC ADC #Reg_Len ; Add on the length of the register STA MTemp1 ; to find the last address and store it ; LDY #$00 SR_Ag LDA (Stack_Ptr),Y ; Move Data from Memory_Ptr STA Utl_Reg0,X ; to the Utl_Reg INY INX CPX MTemp ; until .X=end of move address BNE MR_Ag ; LDA #$00 SR_Zero CPX MTemp1 ; While the entire 8 byte Utl_Reg is not BEQ SR_Done ; yet full (not at last address), STA Utl_Reg0,X ; Put Zero's in the higher order locations INX JMP SR_Zero ; SR_Done RTS ; ; ; ; page 8 ; =========================================================== ; Copy .Y bytes of data from Utl_Reg(.X) to the stack pointer ; =========================================================== ; ; Call Name: Reg_to_Stk ; ; Input Variables: - .Y is the number of bytes of register data to move ; to memory ; - .X is the register number ; - Memory_Ptr points to the first address of the piece of data ; ; Output Variables: None. ; Reg_to_Stk CPX #$03 ; .X must be less than 3 BPL JHalt CPY #Reg_Len+1 ; .Y must be less than Reg_Len+1 BPL JHalt JMP RM_Cont JHalt JMP Halt RM_Cont TXA STY MTemp ; Store #bytes temporarily ; ; The following assumes Reg_Len=8 and must be adjusted otherwise ; CLC ASL A ; Multiply .X by 8 to get the ASL A ; first address of the Utl_Reg(.X) ASL A ; TAX ; Store the beginning address ADC MTemp ; Add the length of move STA MTemp1 ; Store the end of move address ; LDY #$00 RM_Ag LDA Utl_Reg0,X ; Move data from Utl_Reg STA (Memory_Ptr),Y ; to the Memory_Ptr INY INX CPX MTemp1 ; Until .X=end of move address BNE RM_Ag ; LDA MTemp ; Take the number of bytes moved and add CLC ; it to the old stack pointer to make it ADC Stack_Ptr ; point at the next free byte of stack STA Stack_Ptr ; space LDA #$00 ADC Stack_Ptr+1 STA Stack_Ptr+1 RTS ; ; ; ; page 9 ; =============================== ; Mathematics Subroutines ; =============================== ; ; We will assume that all one byte manipulations can be handled in the ; user software or in user subroutines and any address calculations IE ; 2 byte math can be done most quickly by specialized user routines. ; Here then are a basic set of single precision and 4 byte integer math ; subroutines. ; ; Storage format: ; ; Offset of byte: +3 +2 +1 0 ; ; Integer: SIIIIIII IIIIIIII IIIIIIII IIIIIIII S-Sign bit ; I-Integer bits ; ; Single: EEEEEEEE SMMMMMMM MMMMMMMM MMMMMMMM E-Exponent bits ; / S-Mantissa Sign ; Decimal Point M-Mantissa Bits ; ; In single precision storage, the exponent is offset by $80 and the ; mantissa is assumed to be normalize so that the mantissa begins with ; %1.MMMMMMM... . The '1' is omitted and the decimal point is assumed ; leading to one more bit of significance. IEEE single precision ; format has the sign bit precede the 8 exponent bits however this leads ; to the exponent bits not being aligned on an even byte. Since this ; would slow manipulations of the numbers on an 8 bit computer, ; requiring the exponent to be reassembled each time, it is not used ; here. ; ; Sign1 = $F9 ; Variables that keep track of the sign bits of the Sign2 = $F8 ; two arguments and the answer Ans_Sign = $F7 ; ; Exp1 = $F6 ; Variables to hold the exponent bytes of the arguments Exp2 = $F5 ; and either the common exponent (used in add and Com_Exp = $F4 ; subtract) or the answer's exponent. ; ; ; ====================================== ; Move Utl_Reg2 to Utl_Reg0 (4 byte) ; ====================================== ; ; Call name: Two_to_0 ; ; No Input or Output variables ; Two_to_0 LDA Utl_Reg2 STA Utl_Reg0 LDA Utl_Reg2+1 STA Utl_Reg0+1 LDA Utl_Reg2+2 page 10 STA Utl_Reg0+2 LDA Utl_Reg2+3 STA Utl_Reg0+3 RTS ; ; ; ; ; ====================================== ; Move Utl_Reg2 to Utl_Reg1 (4 byte) ; ====================================== ; ; Call name: Two_to_1 ; ; No Input or Output variables ; Two_to_1 LDA Utl_Reg2 STA Utl_Reg1 LDA Utl_Reg2+1 STA Utl_Reg1+1 LDA Utl_Reg2+2 STA Utl_Reg1+2 LDA Utl_Reg2+3 STA Utl_Reg1+3 RTS ; ; ; ; ; ============================= ; Internal Addition Routine ; ============================= ; ; Simple add of Utl_Reg2=Utl_Reg0 + Utl_Reg1 with no sign considerations ; In_Add CLC LDA Utl_Reg0 ADC Utl_Reg1 STA Utl_Reg2 LDA Utl_Reg0+1 ADC Utl_Reg1+1 STA Utl_Reg2+1 LDA Utl_Reg0+2 ADC Utl_Reg1+2 STA Utl_Reg2+2 LDA Utl_Reg0+3 ADC Utl_Reg1+3 STA Utl_Reg2+3 RTS ; ; ; ; page 11 ; ================================ ; Internal Subtraction Routine ; ================================ ; ; Simple subtract of Utl_Reg2=Utl_Reg0 - Utl_Reg1 with no sign considerations ; In_Subt SEC LDA Utl_Reg0 SBC Utl_Reg1 STA Utl_Reg2 LDA Utl_Reg0+1 SBC Utl_Reg1+1 STA Utl_Reg2+1 LDA Utl_Reg0+2 SBC Utl_Reg1+2 STA Utl_Reg2+2 LDA Utl_Reg0+3 SBC Utl_Reg1+3 STA Utl_Reg2+3 RTS ; ; ; ; ; ======================================== ; Internal Reverse Subtraction Routine ; ======================================== ; ; Simple subtract of Utl_Reg2=Utl_Reg1 - Utl_Reg0 with no sign considerations ; In_R_Subt SEC LDA Utl_Reg1 SBC Utl_Reg0 STA Utl_Reg2 LDA Utl_Reg1+1 SBC Utl_Reg0+1 STA Utl_Reg2+1 LDA Utl_Reg1+2 SBC Utl_Reg0+2 STA Utl_Reg2+2 LDA Utl_Reg1+3 SBC Utl_Reg0+3 STA Utl_Reg2+3 RTS ; ; ; ; ; ====================== ; Integer 4 byte Add ; ====================== ; ; Call Name: IADD4 ; page 12 ; Input Variables: The two numbers to be added are assumed to be in Utl_Reg0 ; and Utl_Reg1 ; ; Output Variables: The answer appears in Utl_Reg2. ; ; ------------------------------------------------------------------------------ . . . The remainder of the file has been omitted. . . . ------------------------------------------------------------------------------- ; ; ; .ORG $FFFC .WORD $E000 .END <eof>