home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / OODRIVER.SRC.txt < prev    next >
Text File  |  2020-08-13  |  7KB  |  308 lines
  1. ; *** OBJECT ORIENTED DRIVER ***
  2. ;
  3. ;
  4.          ORG $2000
  5. ;
  6. OLDSTRT  EQU $3C   ;START ADRS FOR MOVE
  7. OLDEND   EQU $3E   ;END ADRS FOR MOVE
  8. NEWSTRT  EQU $42   ;DESTINATION FOR MOVE
  9. ;
  10. MOVE     EQU $FE2C ;MONITOR MOVE ROUTINE
  11. MLIALLOC EQU $BEF5 ;MLI MEMORY ALLOCATOR
  12. ;
  13. STACK    EQU $100
  14. PTR      EQU $06             ;FOR STEPPING THRU INLINE CODE
  15. ;
  16. ;
  17. ; *** RELOCATE THE OODRIVER TO HIGH MEMORY ***
  18. ;
  19. ; FILL OBJECT TABLE WITH ZEROES, THEN SET UP ENTRY FOR 'OSETUP' (OBJ #0)
  20. ; ADJUST OSETUP ENTRY IN THE OBJECT TABLE (WILL ALWAYS BE +7,+8)
  21. ; THEN ALLOCATE MEMORY AND MOVE THE WHOLE THING UP THERE
  22. ; 
  23.          CLC
  24.          LDA #>OTABLE         ;GET PTR INTO OTABLE+8
  25.          ADC #$08
  26.          STA PTR
  27.          LDA #<OTABLE
  28.          ADC #$00
  29.          STA PTR+1
  30. ;
  31.          LDX #$FF
  32. WHAP0    LDY #$00
  33.          LDA #$00
  34. WHAP1    STA (PTR),Y
  35.          INY
  36.          CPY #$08
  37.          BNE WHAP1
  38.          CLC
  39.          LDA PTR   ;GET NEXT ADDRESS FOR ZEROING
  40.          ADC #$08
  41.          STA PTR
  42.          LDA PTR+1
  43.          ADC #$00
  44.          STA PTR+1        
  45.          DEX
  46.          BNE WHAP0
  47. ;
  48. ; CALCULATE NUMBER OF PAGES NEEDED
  49. ;
  50.          SEC
  51.          LDA #<EOF
  52.          SBC #<OODRIVER
  53.          CLC
  54.          ADC #$01            ;ONE EXTRA PAGE FOR MESSAGE PASSING
  55.          STA PAGES
  56. ;
  57.          LDA PAGES           ;ALLOCATE THE BLOCK
  58.          JSR MLIALLOC
  59.          BCS ALLOCERR
  60.          STA PTR+1           ;SAVE POINTER TO ALLOCATED MEMORY
  61.          INC PTR+1           ;ADD 1 TO ALLOW FOR MESSAGE PAGE
  62.          LDA #$00
  63.          STA PTR
  64. ;
  65. ; ZERO OUT THE MESSAGE PAGE
  66.          DEC PTR+1
  67.          LDY #$00
  68.          LDA #$00
  69. ZEROIT   STA (PTR),Y
  70.          INY
  71.          BNE ZEROIT
  72.          INC PTR+1
  73. ;
  74. ; ADJUST ADDRESS OF OSETUP IN OBJECT TABLE
  75. ;
  76.          SEC
  77.          LDA #>OSETUP
  78.          SBC #>OODRIVER
  79.          STA OTABLE+6
  80.          LDA #<OSETUP
  81.          SBC #<OODRIVER
  82.          STA OTABLE+7
  83.          CLC
  84.          LDA OTABLE+6
  85.          ADC PTR
  86.          STA OTABLE+6
  87.          LDA OTABLE+7
  88.          ADC PTR+1
  89.          STA OTABLE+7         
  90. ;
  91. ;MOVE THE CODE
  92. ;
  93.          LDA #>OODRIVER
  94.          STA OLDSTRT
  95.          LDA #<OODRIVER
  96.          STA OLDSTRT+1
  97.          LDA #>EOF
  98.          STA OLDEND
  99.          LDA #<EOF
  100.          STA OLDEND+1
  101.          LDA PTR
  102.          STA NEWSTRT
  103.          LDA PTR+1
  104.          STA NEWSTRT+1
  105.          LDY #$00
  106.          JSR MOVE
  107. ;
  108. ;
  109. ;SET UP USR VECTOR AND EXIT
  110. ;
  111. JUMPINST EQU $4C
  112. USRVECT  EQU $0A
  113. ;
  114.          LDA #JUMPINST  ;JUMP INSTRUCTION
  115.          STA USRVECT
  116.          LDA PTR
  117.          STA USRVECT+1
  118.          LDA PTR+1
  119.          STA USRVECT+2
  120.          RTS
  121. ;
  122. PAGES    DFB $05  ;RECALCULATED BY PROGRAM
  123. ALLOCERR JSR $FDDA
  124.          BRK
  125. ;
  126.          BRK
  127.          BRK
  128. ;
  129. ;*** OODRIVER ***
  130. ;
  131. ; STACK POINTS TO LAST BYTE OF THE JSR THAT GOT HERE.
  132. ; FIRST GET THE ENTRY NAME, THEN READ THROUGH OTABLE UNTIL ENTRY FOUND
  133. ; THEN GET CODE ADDRESS.  ADD 3 TO GET VARIABLE PTR.  STORE VAR PTR IN ZP.
  134. ; THEN JUMP TO THE CODE ADDRESS.
  135. ;
  136. ;
  137. OODRIVER TSX                 ;READ STACK TO FIND OBJ TO BE CALLED
  138.          INX
  139.          LDA STACK,X
  140.          CLC
  141.          ADC #$01            ;ADD 1 TO GET TO THE DATA
  142.          STA PTR
  143.          LDA STACK+1,X
  144.          ADC #$00
  145.          STA PTR+1             ;WE NOW HAVE PTR TO OBJECT NAME TO CALL
  146. ;
  147. ; NOW GET A POINTER TO THE OBJECT TABLE
  148. ;
  149. MYADRS   EQU $0B   ;USER INVOKED US VIA USR() VECTOR. THIS IS ADRS OF OODRIVER
  150. TABLPTR  EQU $08   ;WE'LL CREATE THIS POINTER
  151. ;
  152.          SEC
  153.          LDA #>OTABLE        ;GET UNRELOCATED LO BYTE
  154.          SBC #>OODRIVER        ;SUBTRACT OODRIVER TO GET OFFSET
  155.          STA TABLPTR
  156. ;
  157.          LDA #<OTABLE        ;DO SAME FOR UNRELOCATED HI BYTE
  158.          SBC #<OODRIVER
  159.          STA TABLPTR+1
  160. ;                            ;NOW ADD OFFSET TO BASE ADDRESS
  161.          CLC
  162.          LDA TABLPTR
  163.          ADC MYADRS          
  164.          STA TABLPTR
  165.          LDA TABLPTR+1
  166.          ADC MYADRS+1
  167.          STA TABLPTR+1
  168. ;
  169. ;
  170.          LDX #$00
  171. SEARCH0  LDY #$00
  172. SEARCH1  LDA (TABLPTR),Y
  173.          CMP (PTR),Y         ;SEE IF ALL 6 CHARACTERS MATCH
  174.          BNE NOMATCH
  175.          INY
  176.          CPY #$06
  177.          BNE SEARCH1
  178.          BEQ FOUNDIT
  179. ;
  180. NOMATCH  CLC                 ;ADD 8 TO GET NEXT ENTRY
  181.          LDA TABLPTR
  182.          ADC #$08
  183.          STA TABLPTR
  184.          LDA TABLPTR+1
  185.          ADC #$00
  186.          STA TABLPTR+1
  187. ;
  188.          INX                 ;CHECK NEXT ENTRY
  189.          BNE SEARCH0
  190. ;
  191.          LDA #$00
  192.          JSR $FDDA           ;ABEND CODE $00 (OBJ NOT FOUND)
  193.          BRK                 ;ABEND IF NOT FOUND 
  194. ;
  195. ;
  196. FOUNDIT  LDA (TABLPTR),Y     ;Y WAS 7 WHEN WE FOUND IT.
  197.          STA PTR             ;SET UP CODE ADDRESS FOR JMP
  198.          INY
  199.          LDA (TABLPTR),Y
  200.          STA PTR+1
  201. ;
  202. ; *** FINAL RETURN ***
  203. ; ADJUST STACK RETURN ADRS BY 6 BYTES
  204. ; TO ACCOUNT FOR OBJECT NAME WE JUST READ
  205. ; THEN INVOKE OBJECT.
  206. ;
  207.          TSX        
  208.          INX
  209.          LDA STACK,X
  210.          CLC
  211.          ADC #$06            ;ADD 6 TO SKIP TO LAST BYTE OF NAME
  212.          STA STACK,X
  213.          LDA STACK+1,X
  214.          ADC #$00
  215.          STA STACK+1,X
  216. ;
  217.          JMP (PTR)           ;INVOKE THE OBJECT CODE
  218. ;
  219. ;
  220. ;
  221. ;
  222. ;*** OSETUP ***
  223. ;osetup POPS adrs from stack and stores adrs of codejump in table.
  224. ;adds 1 to get to name of object to store
  225. ;looks for free node (indicated by 00 in first byte).
  226. ;It then terminates so it doesn't return to object.
  227. ;
  228. OSETUP   CLC
  229.          PLA
  230.          ADC #$01
  231.          STA PTR
  232.          PLA
  233.          ADC #$00
  234.          STA PTR+1
  235. ;
  236. ; get addressability to object table
  237. ;
  238.          SEC
  239.          LDA #>OTABLE        ;GET UNRELOCATED LO BYTE
  240.          SBC #>OODRIVER        ;SUBTRACT OODRIVER TO GET OFFSET
  241.          STA TABLPTR
  242. ;
  243.          LDA #<OTABLE        ;DO SAME FOR UNRELOCATED HI BYTE
  244.          SBC #<OODRIVER
  245.          STA TABLPTR+1
  246. ;                            ;NOW ADD OFFSET TO BASE ADDRESS
  247.          CLC
  248.          LDA TABLPTR
  249.          ADC MYADRS          
  250.          STA TABLPTR
  251.          LDA TABLPTR+1
  252.          ADC MYADRS+1
  253.          STA TABLPTR+1
  254. ;
  255. ; look for a free node to store the new object
  256. ;
  257.          LDX #$00
  258. SRCHFRE0 LDY #$00
  259.          LDA (TABLPTR),Y
  260.          BNE NOTFREE
  261.          BEQ FOUNDFR
  262. ;
  263. NOTFREE  CLC                 ;ADD 8 TO GET NEXT ENTRY
  264.          LDA TABLPTR
  265.          ADC #$08
  266.          STA TABLPTR
  267.          LDA TABLPTR+1
  268.          ADC #$00
  269.          STA TABLPTR+1
  270. ;
  271.          INX                 ;CHECK NEXT ENTRY
  272.          BNE SRCHFRE0
  273. ;
  274.          LDA #$FF            ;ABEND CODE $FF (TABLE FULL)
  275.          JSR $FDDA
  276.          BRK                 ;ABEND IF NOT FOUND 
  277. ;
  278. FOUNDFR  LDY #$00            ;CREATE THE TABLE ENTRY
  279. ENTERIT  LDA (PTR),Y
  280.          STA (TABLPTR),Y
  281.          INY
  282.          CPY #$06
  283.          BNE ENTERIT
  284. ;                            ;STORE THE CODE ADDRESS IN THE TABLE.
  285.          CLC
  286.          LDA PTR           
  287.          ADC #$06
  288.          STA PTR
  289.          STA (TABLPTR),Y
  290.          INY
  291.          LDA PTR+1
  292.          ADC #$00
  293.          STA PTR+1
  294.          STA (TABLPTR),Y
  295.          RTS
  296. ;
  297. ;
  298. ; *** OBJECT TABLE ***
  299. ;
  300. ;EACH OBJECT HAS 6 BYTE NAME AND 2 BYTE ADDRESS
  301. ;
  302. OTABLE   ASC 'OSETUP'                  ;OBJECT 0 IS OSETUP
  303.          DFB >OSETUP,<OSETUP
  304. ;
  305.          DS  $07F8                ;ROOM FOR 255 MORE OBJECTS
  306. ;
  307. EOF      DFB $FF         ;MARKER FOR SIGHTING EOF
  308.